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]