Felder initialisieren + function

[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 von MrKnogge:

[Edit]verdamte Tippfehler[/Edit]

Einen haste noch übersehen:

Zitat:

procedure TForm1.ClearAll(): boolean;

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?



1000. Post!