setfocus; vor else !?!

[Daniel B]

Seltsam.

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
begin

  if Edit1.Text = '' then
    Edit1.SetFocus
  else;

  if Edit1.Text <> '' then
  begin
    Edit1.SetFocus;
  end
  else;

end;

Ist sogar getestet!

Grüsse, Daniel