Alle Edit-Felder auf Eingaben prüfen

[Sharky]

Hai Ati,

hier mal mein Quick and Dirty Code. Es werden alle TEdits beachtet deren Tag <> 1 ist.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  test: Boolean;
  i : integer;
begin
  test := True;
  for i := 0 to Form1.ComponentCount -1 do
  begin
    if (Components[i] is TEdit) and (Components[i].Tag <> 1) then
    begin
      if Length((Components[i] as TEdit).Text) = 0 then
      begin
        test := False;
        break;
      end;
    end;
  end;

  if not (Test) then
  begin
    ShowMessage('Fehler bei der Eingabe');
  end;
end;