Inhalt von Edit

[X-Dragon]

und so könnte das mit einer Schleife aussehen:

Delphi-Quellcode:

var
  i : Integer;
begin
  for i := 1 to AnzahlDeinerEditFelder do
    if TEdit('Edit'+IntToStr(i)).Text = '' then
    begin 
      TEdit('Edit'+IntToStr(i)).SetFocus;
      ShowMessage('Hier ist nix eingetragen!');
      break;
    end;  
end;