Entwickler-Ecke
Sonstiges (Delphi) - Clear aller Edit-Felder
Plochinger - So 25.06.06 15:34
Titel: Clear aller Edit-Felder
Hallo,
ich habe einige Edits und suche einen Befehl, mit dem ich alle auf einmal zurücksetzen kann, anstatt jedes einzeln z. B. mit
"Edit1.Clear"
aufzurufen. Gibt es da einen Befehl oder Trick mit dem man auf alle Edits zugreifen kann?
Danke schonmal im Voraus,
Plochinger
Jakob Schöttl - So 25.06.06 16:48
Damit du nicht lang suchen brauchst:
Delphi-Quelltext
1:
2:
| for n := 1 to 5 do
TEdit(FindComponent('Edit' + IntToStr(n)).Clear; |
Plochinger - So 25.06.06 16:59
Danke für die Hilfe
Delphi-Quelltext
1:
2:
3:
4:
5:
| var i:integer;
begin
for i := 1 to 240 do
TEdit(FindComponent('edit'+inttostr(i))).Text :=''
end; |
Plochinger
Jakob Schöttl - So 25.06.06 17:06
übrigens wäre es bei so vielen edits sinnvoll, wenn du sie in einem array verwalten würdest, das wäre schöner:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
| type TAlleEdits = array [1..240] of TEdit;
var AlleEdits: TAlleEdits;
procedure alleeditslöschen;
begin
for n := 1 to 240 do AlleEdits[n].Clear;
end; |
der einzige nachteil ist, dass du sie per hand in der procedure Form1Create erzeugen musst.
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!
FINDCOMPONENT