Edit Felder, jede Menge Edit Felder ............

[Josef_D]

Hallo an alle,

ich habe in einem Formular sehr viele ( >50 ) Edit - Eingabefelder. Diese müssen zu Beginn eines neuen Arbeitsschrittes alle gelöscht werden. Gibt es außer

Edit1.Text := ....
Edit2.Text := ....
usw.

eine elegantere Methode, zum Beispiel in einem Loop, alle Felder zu initialisieren.

Wünsche ein frohes neues Jahr und freue mich auf Antworten.

Josef

[Josef_D]

Tja, bißchen lesen, bißchen nachdenken, und man braucht eigentlich keine neue Diskussion starten. So gehts:

j := Form1.ControlCount;

for i:=0 to j-1 do
begin
if Form1.Controls[i] is TEdit then
(Form1.Controls[i] as TEdit).Text := '';
end;

Vielleichts hilfts ja jemandem weiter.

Gruß

Jose