Einzelnen Beitrag anzeigen

Benutzerbild von idontwantaname
idontwantaname

Registriert seit: 31. Aug 2004
Ort: Traiskirchen
575 Beiträge
 
Turbo Delphi für Win32
 
#4

Re: aktionen nacheinander ausführen

  Alt 31. Mai 2005, 18:51
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 Delphi-Referenz durchsuchenFindComponent 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;
Oliver Hanappi
Besucht meine neue Homepage: http://oli.hux.de
  Mit Zitat antworten Zitat