array auf Inhalt überprüfen

[C.Schoch]

Hi,
Wenn ich das richtig sehe dann sollte es doch so gehen:

Delphi-Quellcode:

  procedure FindFirstEmptyEdit();
var
  i: Integer;
begin
  for i := 0 to Form3.ControlCount - 1 do
  begin
    if Form1.Controls[i] is TEdit then
    begin
      if (Form1.Controls[i] as TEdit).Text = '' then
      begin
        (Form1.Controls[i] as TEdit).SetFocus;
        Break;
      end;
    end;
  end;
end;

Edit: Der erste Versuch war nichts so ganz das gewünschte
Edit2: Fehler beseitigt