Galgenmännchen - Abfrageproblem -

[htxmlx]

Super dankeschön...der haupt fehler lag am copy, ich hatte das anders im kopf das man (string, von, bis) macht...also danke nocmal für die hilfe derrichtige code sieht jetzt so aus:

Delphi-Quellcode:

procedure TForm1.BitBtn1Click(Sender: TObject);
var i, wlange:Integer; key:STring;
  begin
  key := Edit1.Text;
  wlange := Length (wort);
  for i := 1 to (wlange) do
    begin
    if Copy (wort,i,1) = key then
      begin
      TButton (FindComponent('Button' + IntToStr (i))).Caption := key;
      end;
    end;
  end;

Gruß, htxmlx