Zitat von
XDF900:
...Gibt es da eine elegantere und vor allem weniger programmieraufwändige Möglichkeit?
Hai XDF900,
die Antwort lautet JAEIN. Du musst deine Variablen, und Objekteigenschaften schon selber wieder auf ihre Startwerte setzen.
Wenn Du mehrere Objekte vom selben Typ hast versuche es mal mit
FindComponent
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
i : Integer;
begin
for i := 1 to 10 do
begin
TEdit(FindComponent('Edit' + IntToStr(i))).Text := '';
end;
end;
Dieser Code setzt zum Beispiel die Eigenschaft
Text von Edit1 bis Edit10 auf '';
Stephan B.
"Lasst den Gänsen ihre Füßchen"