Anfängerproblem !?

[Lemmy]

Zitat von ItsMe1:

Code:

begin
  if edit3.text='0' then
    begin
      showmessage('Zahl 3 bitte ändern')
      edit3.SetFocus;
    end else
    begin
      label1.Color:=clred;
      label1.Caption:= Floattostr(strtofloat(Edit1.Text)/strtofloat(edit2.text)/strtofloat(edit3.text)); 
    end;
end;

Du hast das begin-End beim Else vergessen. Als weitere Option würde sich ein edit3.SetFocus anbieten, damit der Cursor gleich wieder im Editfeld steht. Mit Edit3.SelectAll kannst Du dann den inhalt auch gleich markieren zum überschreiben...