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 :roll: ). Ich denke dabei an soetwas wie eine Schleife, aber logischer weiße kann man nicht einfach

Delphi-Quellcode:

 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. :shock: Trotzdem genau gucken : meine Zeilen sind etwas anders wegen dem "as".

[Cyf]

Zitat:

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. :shock: 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:

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. :shock: 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 :oops:

[Cyf]

Zitat:

Zitat von mkinzler

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

:gruebel: Dachte eigentlich auch

Zitat:

Zitat von DeddyH

Wieso, is ermittelt doch den Typ.

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