For-Schleifen-Problem

[Tommy1988]

Delphi-Quellcode:

Btn, item: TButton;
i, x: Integer;

Folgender Code funktioniert einwandfrei..

Delphi-Quellcode:

    for i:= 1 to 46 do
    begin
      Btn := TButton(Form1.FindComponent('TBXButton'+IntToStr(i)));
      if Btn <> NIL then Btn.Enabled:= True;
    end;

Der folgende jedoch unter der Meldung, dass TButton und TTBXItem inkompatibel sind, nicht.

Delphi-Quellcode:

    for x:= 1 to 5 do
    begin
      item := TTBXItem(Form1.FindComponent('TBXItem'+IntToStr(x)));
      if item <> NIL then item.Enabled:= True;
    end;

Was ist da falsch :oops:

[Tommy1988]

Fehler gefunden.!!!! wie kann man so Blöd sein !?!ß

Delphi-Quellcode:

Btn, item: TButton; // <--
i, x: Integer;

[Dax]

Delphi-Quellcode:

item: TButton;

Also Junge.. ;)

[Tommy1988]

Man kann sich mal mal verlesen :P

Ich hab den Fehler erst gesehen, als ich die Deklarationen hierhin kopiert habe :stupid: