Felder initialisieren + function

[KermitFrosch]

wie kann eine function aussehen, mit der man alle Felder eines progs initialisieren kann?

[Sharky]

Zitat:

Zitat von KermitFrosch

wie kann eine function aussehen, mit der man alle Felder eines progs initialisieren kann?

Hai Frosch ;-)

Was verstehst Du denn unter "initialisieren"? Sollen alle TEdit z.B. leer sein?

[KermitFrosch]

jap, meine ich :)

[MrKnogge]

Einfach so wird das nicht gehen, aber du könntest sie mit findcomponent suchen und die procedure clear aufrufen.

Wie heisen denn die ganzen Edit-Felder ?
Haben sie noch die von Delphi vergeben Namen also Edit1, Edit2, ... ?

[KermitFrosch]

jap haben sie (es gibt n edit und n memo)

[MrKnogge]

wieviele ?

[KermitFrosch]

ein edit = edit1
ein memo = memo1

[MrKnogge]

Delphi-Quellcode:

edit1.clear;
memo1.clear;

und schon ist alles leer...

[KermitFrosch]

ja, dies function sieht ja doll aus... und wie soll man das aufrufen usw?

[MrKnogge]

Wann möchtest du deine Felder leer haben ?

Von anfang an, dann doppelklick auf deine Form, nun müsste Delphi dir einen Procedure-Rahmen namens Form1Create erstellen, hier fügst du nun den oben genannten Code ein.

[KermitFrosch]

es soll anhand einer function geschehen... also, ich schreibe eine function die man dann später aufrufen kann!!!

[Die Muhkuh]

Ich würds mit einer Procedure machen:

Delphi-Quellcode:

type
  TForm1 = Class(TForm)
  ...
    private
      procedure ClearAll;

...

procedure TForm1.ClearAll;
begin
  Edit1.Clear;
  Memo1.Clear;
end;

Was willst du den bei einer Function zurückgeben?

[KermitFrosch]

Mir schon klar, dass es mit ner procedur einfacher geht... doch es soll durch eine function geschehen!

[MrKnogge]

dann nimmst du eben

Delphi-Quellcode:

type 
  TForm1 = Class(TForm) 
  ... 
    private 
      function ClearAll(): boolean; 

... 

function TForm1.ClearAll(): boolean; 
begin 
  Edit1.Clear; 
  Memo1.Clear; 
  if (Edit1.Text = '') and (Memo1.Text = '') then
    result := true
  else
     result := false;
end;

Und was bringt dir nun der unterschied ?

[Edit]verdamte Tippfehler[/Edit]
[Edit2]Danke@mirage, das hatte ich glatt übersehen[/Edit2]

[mirage228]

Zitat:

Zitat von MrKnogge

[Edit]verdamte Tippfehler[/Edit]

Einen haste noch übersehen:

Zitat:

Delphi-Quellcode:

procedure TForm1.ClearAll(): boolean;

:mrgreen:

mfG
mirage228

[Die Muhkuh]

Vielleicht damit er weiß ob wirklich alles leer ist:

Delphi-Quellcode:

if ClearAll = true then
  ShowMessage('Alle leer');

Aber was bringts?



:party: :party: :firejump: 1000. Post!:party: :party: :firejump: