Alle TEdit Felder leeren

[youuu]

Hi,

gibt es eine Möglichkeit alle TEdit- Felder in einer Form zu leeren per Schleife, ohne das man extra alles einzeln hin schreiben muss?


Danke.

[mkinzler]

Schleife über Form.Components[] und dann Typ abprüfen

[Meflin]

Delphi-Quellcode:

for i := 0 to ComponentCount - 1 do
    if Components[i] is TEdit then
        (Components[i] as TEdit).Text := '';

[himitsu]

oder

Delphi-Quellcode:

for i := 0 to ComponentCount - 1 do
  if Components[i] is TEdit then
    TEdit(Components[i]).Clear;

[youuu]

Perfekt danke.

[youuu]

Eine Frage noch dazu.

Delphi-Quellcode:

if Components[i] is (TEdit) or (TJvEditor) Then 
Begin
  TEdit(Components[i]).Clear;
  TJvEditor(Components[i]).Clear;
End;

ist aber nicht möglich oder? Jedenfalls gibt er mir dann einen Fehler, dass der Operandentyp nicht anwendbar ist.

[DeddyH]

Aber so sollte es gehen:

Delphi-Quellcode:

if Components[i] is TEdit Then
  TEdit(Components[i]).Clear
else if Components[i] is TJvEditor then
  TJvEditor(Components[i]).Clear;

[youuu]

Ja so hatte ich es auch, dachte nur ich kann es etwas verkleinern :)

[DeddyH]

Du könntest evtl. nachschauen, ob beide Komponenten einen gemeinsamen Vorfahren haben, der die Clear-Methode implementiert, und gegen diesen dann casten.

[himitsu]

ist der TJvEditor von TEdit abgeleitet?
wenn ja, dann sollte TJvEdit auch von TEdit gehandelt werden.

oder gleich alle Editcontrols zusammen
(Edit, Memo, RichEdit, JvEdit ..... halt alles was von TCustomEdit abgeleitet ist)

Delphi-Quellcode:

if Components[i] is TCustomEdit Then
  TCustomEdit(Components[i]).Clear;

[edit] tschuldschung deddy, hab dich ganz übersehn :oops: