Alle Edit-Felder auf Eingaben prüfen

[AndreasP]

mahlzeit,

nachfolgender code müßte dein problem lösen. er läst sich noch optimieren wie z.b. ein forzeitiger abbruch oder das nich das ganze formular abgefragt wird. aber das prinzip sollte klar sein.

Delphi-Quellcode:

var a, i: integer;
begin
  a := 1;
  for i := 0 to Form1.ComponentCount -1 do
  begin
    if Form1.Components[i] is TEdit then
      a := a * (Length(TEdit(Form1.Components[i]).Text));
  end;

  if a = 0 then
    ShowMessage('Bitte Eingabe überprüfen');