Clear aller Edit-Felder

Plochinger · Hält's aus hier Beiträge: 5 D7 Pers

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

jakobwenzel · Verfasst: So 25.06.06 15:48

FINDCOMPONENT

_________________
I thought what I'd do was, I'd pretend I was one of those deaf-mutes.

Jakob Schöttl · Beiträge: 929 Erhaltene Danke: 1 Delphi 7 Professional

Damit du nicht lang suchen brauchst:

markieren

Delphi-Quelltext

1:
2:

for n := 1 to 5 do
  TEdit(FindComponent('Edit' + IntToStr(n)).Clear;

Plochinger · Hält's aus hier Beiträge: 5 D7 Pers

Danke für die Hilfe

markieren

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 · Beiträge: 929 Erhaltene Danke: 1 Delphi 7 Professional

übrigens wäre es bei so vielen edits sinnvoll, wenn du sie in einem array verwalten würdest, das wäre schöner:

markieren

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.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme