wie kann ich alle editfenster wieder leer machen

[Treffnix]

Mein Vorschlag:

Delphi-Quellcode:

Procedure ClearEdits;
var
  i: Integer;
Begin
  For i:= 0 to Form1.ControlCount -1 Do Begin
    If Form1.Controls[i] is TEdit Then
      TEdit( Form1.Controls[i] ).Text:= '';
  End;
End;

Dann sind die Namen der Edits auch Wurst und wenn mal eins hinzukommt brauchste nichts ändern.