Einzelnen Beitrag anzeigen

Benutzerbild von SirThornberry
SirThornberry
(Moderator)

Registriert seit: 23. Sep 2003
Ort: Bockwen
12.235 Beiträge
 
Delphi 2006 Professional
 
#7

Re: Dynamische Bezeichner / variable Variablen

  Alt 18. Jun 2004, 22:53
Sollte dann ungefähr so aussehen (bei 4 Edits)
Delphi-Quellcode:
[...]
  private
    fEdits: Array[1..4] of TEdit;
[...]
procedure TForm1.FormCreate(Sender: TObject);
var LCount: Integer;
begin
  for LCount := 1 to 4 do
  begin
    fEdits[LCount] := TEdit(FindComponent('Edit' + Inttostr(LCount)));
  end;
end;
[...]
var LCount: Integer;
begin
  for LCount := 1 to 4 do
  begin
    fEdits[LCount].Text := 'Testtext'; //allen Edits den selben Text zuweisen
  end;
end;
Jens
Mit Source ist es wie mit Kunst - Hauptsache der Künstler versteht's
  Mit Zitat antworten Zitat