Entwickler-Ecke :: Thema anzeigen - Textfelder vorbelegen

beljo - Di 14.03.06 13:19
Titel: Textfelder vorbelegen

hallo Leute,
also ohne eure Tatkräftige unterstützung hätte ich bestimmt schon die Flinte ins Korn geworfen.
Mein Problem Heute.
Ich möchte alle Textfelder von beginn an neu besetzten.

Delphi-Quelltext

1:
2:
3:
4:

procedure TForm1.FormCreate(Sender: TObject);
begin
     TEdit.text:='0';
end;

So funktioniert es nicht, ich möchte nicht immer edit1.text und etit2,text usw Aufschreiben
kann mir jemand helfen?

Moderiert von Christian S.: Topic aus Delphi Language (Object-Pascal) / CLX verschoben am Di 14.03.2006 um 12:35

cherry - Di 14.03.06 13:46

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:

for i := 1 to ComponentCount -1 do
begin
 if (Components[i] is TEdit) then
 begin
  (Components[i] as TEdit).Clear {Inhalt löschen}
  // (Components[i] as TEdit).Text := '0' {Inhalt auf setzen!}
 end;
end;

Hux - Di 14.03.06 13:51

so isses irgendwie leichter...

Delphi-Quelltext

1:
2:
3:

for i:=1 to Component.Count-1 do begin
TRichEdit(findcomponent('RichEdit'+IntToStr(i))).Clear;
end;

Also des is eigentlich des gleiche was cherry geschrieben hat...

cherry - Mi 15.03.06 10:59

Hux hat folgendes geschrieben:

so isses irgendwie leichter...

Naja nicht ganz!
Angenommen du willst mehrere Eigenschaften der Komponente ändern,
geht dies schneller!

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

for i := 1 to ComponentCount -1 do  
begin  
 if (Components[i] is TEdit) then  
 begin  
  (Components[i] as TEdit).Clear
  (Components[i] as TEdit).Color := clAqua;
  (Components[i] as TEdit).ReadOnly := true;
  {...}
 end;  
end;

Ist vom handling her irgendwie einfacher, die
Komponente muss nur einmal "gesucht" werden!

Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!