Mehre Edit Felder auf Inhalt prüfen?

[Sharky]

Hai ohnny Bravo,

wenn Du das öfters in deinem Code brauchst würde ich eventuell eine Funktion zum prüfen verwenden. z.B. so:

Delphi-Quellcode:

function OneEditIsEmpty(aEdits: array of TEdit): Boolean;
var
  i: Integer;
begin
  i := Low(aEdits);
  result := False;
  repeat
    result := Length(aEdits[i].Text) = 0;
    inc(i);
  until (i = High(aEdits) + 1) or (result);
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
  if OneEditIsEmpty([edit1, edit2]) then
  begin
    ShowMessage('Edit1 oder Edit2 sind leer');
  end;
end;