Okay das sieht dann so aus:
Zitat:
var
Form1: TForm1;
a, b, U, F: real;
implementation
{$R *.dfm}
procedure TForm1.Button2Click(Sender: TObject);
begin
Close;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
a := StrToFloat(Edit1.Text);
b := StrToFloat(Edit2.Text);
U:=a+a+b+b;
F:=a*b;
Edit3.Text:=FloatToStr(U);
Edit4.Text:=FloatToStr(F);
end;
end.
Es läuft
Viiieeelleeen Dank Jungs!
Alles weitere bekomme ich dann auch durch probieren raus....