Hallo!
Da Du einen "Haufen" Edits hast, noch eine kleine Ergänzung:
Wenn Du die alle mit Edit1.Clear zurücksetzen willst, brauchst Du ziemlich viel Code. Einfacher geht es in einer Schleife.
Benenne einfach deine Edit-Felder mit Edit1, Edit2, Edit3, usw.
Dann kannst Du in einer Schleife alle so löschen:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
| var i: Integer;
begin
For i:=1 to MAX_EDIT do begin
TEdit(FindComponent('Edit'+IntToStr(i))).Clear;
end;
end; |
Statt MAX_EDIT musst Du den höchsten Index eingeben, also bei Edit12 zum Beispiel 12.
Erklärung:
Mit FindComponent(name: String) kannst Du eine beliebige Komponente auf deinem Formular finden, die den angegebenen Namen hat. Du bekommst dann aber ein TComponent zurück. Das muss mit TEdit(...) in eine Edit-Feld umgewandelt werden und schon kannst Du das selbe machen wie bei jedem anderen Edit-Feld, das Du direkt angibst.
MfG,
S.J.
UGrohne
