Zitat von
xeLa-:
kann geschlossen oder gelöscht werden
Wozu denn ?? Ich will ja noch was schreiben
Zuerstmal:
Herzlich Willkommen in der
DP
... juhu, schon 2 Leute Willkommen gegrüßt
Jetzt aber zum Thema:
Eine elegantere Art wäre
FindComponent zu verwenden. Hier ein Beispiel:
Delphi-Quellcode:
procedure Button1Click(Sender: TObject);
var
i : Integer;
MyEdit : TEdit;
begin
for i := 4 { was das Maximum ist ;) } downto 1 do
begin
MyEdit := ( FindComponent( 'Edit' + IntToStr(i) ) as TEdit ); // Edit: kleiner Tippfehler
if( MyEdit.Color = clWhite ) then
begin
MyEdit.Color := clGreen; // Edit: von clRed auf clGreen ausgebessert
Break;
end;
end;
end;