Code verkürzen (Clear bei mehreren Edits)

[Hagbart]

halllo,

Erstma Sorry für den Sche.. Titel, aber wusste nicht wie ich das sonst beschreiben sollte. Aber jetzt zum eigentlichen Problem (dabei ist es ja gar kein Problem )
Ich hab mir so eben die Frage gestellt, ob man diesen Code nicht einfacher bzw. kürzer fassen kann (ich finde es sieht irgendwie unprofessionell aus ). Ich denke dabei an soetwas wie eine Schleife, aber logischer weiße kann man nicht einfach Edit + variable + .Clear; machen.

Delphi-Quellcode:

procedure TForm2.Button2Click(Sender: TObject);
begin
  Edit2.Clear;
  Edit3.Clear;
  Edit4.Clear;
  Edit5.Clear;
  Edit6.Clear;
  Edit7.Clear;
  Edit8.Clear;
  Edit9.Clear;
  Edit10.Clear;
  Edit11.Clear;
  Edit12.Clear;
  Edit13.Clear;
  Edit14.Clear;
end;

[youuu]

Delphi-Quellcode:

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

Sollte funktionieren, wenn du alle Edit Felder löschen möchtest in deiner TForm.
Oder geht es wirklich nur um die genannten?

[Hansa]

Zuerst : ComponentCount <F1>

Prinzip ist so :

Delphi-Quellcode:

if (MeineKomponente is TEdit) then
  (MeineKomponente as TEdit).Clear;

Uff, fast schon zu spät. Trotzdem genau gucken : meine Zeilen sind etwas anders wegen dem "as".

[Cyf]

Zitat von Hansa:

Zuerst : ComponentCount <F1>

Prinzip ist so :

Delphi-Quellcode:

if (MeineKomponente is TEdit) then
  (MeineKomponente as TEdit).Clear;

Uff, fast schon zu spät. Trotzdem genau gucken : meine Zeilen sind etwas anders wegen dem "as".

Dann kann man sich das as schenken.

Delphi-Quellcode:

TForm.FindChildControl
TForm.FindComponent

Aber alle Edits in eine TObjectList stecken und die durchlaufen wäre imho deutlich eleganter.

[DeddyH]

Zitat von Hansa:

Zuerst : ComponentCount <F1>

Prinzip ist so :

Delphi-Quellcode:

if (MeineKomponente is TEdit) then
  (MeineKomponente as TEdit).Clear;

Uff, fast schon zu spät. Trotzdem genau gucken : meine Zeilen sind etwas anders wegen dem "as".

Das spielt hier aber keine Rolle, da der Typ ja direkt vorher erst ermittelt wird.

[mkinzler]

Zitat:

Dann kann man sich das as schenken.

Delphi-Quellcode:

TForm.FindChildControl
TForm.FindComponent

Nicht unbedingt, denn auch eine andere Komponente könnte Edit1 o.ä. heissen, aber kein TEdit sein.

[DeddyH]

Wieso, is ermittelt doch den Typ.

[mkinzler]

War als Antwort für Cyf gedacht (hat sich mit deiner Antwort überschnitten)

[DeddyH]

Achso, sry, mein Fehler

[Cyf]

Zitat von mkinzler:

War als Antwort für Cyf gedacht (hat sich mit deiner Antwort überschnitten)

Dachte eigentlich auch

Zitat von DeddyH:

Wieso, is ermittelt doch den Typ.

[Edit]Ok, war vielleicht oben ungünstig untereinander gesetzt.