Editfeld überprüfen

[Sharky]

Hai ninja,

Du könntest z.B. mit einer Variablen arbeiten.

Delphi-Quellcode:

var
 b_EditsEmpty : Boolean;
begin
 b_EditsEmpty := False;
If Edit1.Text = '' Then
  begin
    Showmessage ('Message!');
    b_EditsEmpty := True;
  end;
If Edit2.Text = '' Then
  begin
    Showmessage ('Message!');
    b_EditsEmpty := True;
  end;
If Edit3.Text = '' Then
  begin
    Showmessage ('Message!');
    b_EditsEmpty := True;
  end;
if Not (b_EditsEmpty) then
  begin
  end;

[EDIT]Habe mal meine Variable von Treu auf True gesetzt [/Edit]