wie kann ich alle editfenster wieder leer machen

[Robertlu]

Guten abend

mir tut sich mal wieder ein problem auf, undzwar:

wenn ich mein programm starte und werte in die edit fenster eingebe dann bleiben sie dadrin selbst wenn ich das fenster schliese, das projekt aber noch läuft.

Also ich hab ein hauptmenü wenn ich dann eine berechnung machen will klicke ich auf berechnen dann tut sich ein neues fenster auf. in diesem fenster werden werte in die edit fenster eingegeben. wenn ich nun das fenster schliese und wieder neu öffne stehen die werte noch in den editfenstern drinne.

Meine frage ist also wie bekomme ich bevor ich das fenster schliese die werte aus den edit fenstern raus?????



mfg Rob

danke für die Hilfe im vorraus

[dizzy]

TEdit.Text := '';

\edit: Das da oben sind zwei einzelne Hochkommata, kein "Gänsefüßchen"

[Luckie]

Falsch dizzy.
Edit1.Text := ''; Wenn es mehrere sind, würde sich wohl ein Konstrukt mit FindComponent anbieten.

[dizzy]

... das gilt aber nur für "Edit1", nicht für alle edits! Daher "TEdit" als Platzhalter für beliebige Edits

[Alexander]

Wenn alles auf einer Form geleertt werden soll, bietet es sich auch an, die Form einfach neu zu createn.
Oder sonst mit FindComponent arbeiten, aber da gibt es hier genügend Beispiele

[dizzy]

Wie ist das eigentlich: Ich hab eine Form mit ein paar Kompos drauf. Nun "Free'e" ich diese Form. Sind dann die Child-Kompos auch ge-free-d? Und wenn ich dieses Form dann wieder erzeuge, werden die Kompos dann auch mit created?
Das Freigeben müsste ja eigentlich => property "Parent". Aber beim createn?

\edit: Dieser Thread gibt mir eine kleine Antwort...

[Luckie]

Wenn die Kontrolls das Fenster / Formular als Parent haben ja. Und wenn du es zur Entwurfszeit erstellst, ist das automatisch der Fall.

[Robertlu]

Danke erstmal


dennoch weis ich nicht wie das mit findcontrol gehen soll??

ich kann da zwar irgendwelche edit fenster finden aber nicht alle die ich dann leeren kann

tut mir leid aber ich habs nicht so richtig verstanden und würde mich über etwas genaueres sehr freuen.

mfg Rob

[Luckie]

Drei Edits und ein Button:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  i : Integer;
begin
  for i := 1 to 3 {Anzahl Edits} do
  begin
    with TEdit(FindComponent('Edit'+IntToStr(i))) do
    begin
      if Text = '' then ShowMessage('Edit'+IntToStr(i)+' ist leer');
    end;
  end;
end;

[Matze]

Mal ne Zwischenfrage:

Gibt es einen Unterschied zwischen

Edit1.Text := ''; und

Edit1.Clear; ?