Delphi-Quellcode:
implementation
{$R *.dfm}
procedure TForm1.Button2Click(Sender: TObject);
begin
close
end;
procedure TForm1.Button1Click(Sender: TObject);
var a,b,c
begin
a:=StrToFloat(Edit1.Text);
b:=StrToFloat(Edit2.Text);
c:=StrToFloat(Edit2.Text);
if (a+b>c) and (a+c>b) then Dreieck:=true;
end;
end.
er sagt mir immer Fehler bei Begin an.