Probleme mit einem Rechner

[brinkee]

So, mit deinen Edits ist alles im Lot. Ich weiß zwar nicht genau, was Du damit vorhast, aber okay...

Delphi-Quellcode:

[..]

var
  Form1: TForm1;
  r, u, d, A, r2: extended;
  ergebnis1, ergebnis2, ergebnis3, ergebnis4: string;
  pi: extended;
  lol: integer;


implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin

r := strtofloat(Edit1.Text);
u := strtofloat(Edit2.text);
d := strtofloat(Edit3.Text);
A := strtofloat(Edit4.Text);
pi := 3.14159265358;

if lol = 1 then
begin
  ergebnis2 := FloatToStr(2* pi * r);
  Label2.Caption := ergebnis2;
  ergebnis3 := FloatToStr(2* r);
  Label3.Caption := ergebnis3;
  ergebnis4 := FloatToStr(pi* r * r);
  Label4.Caption := ergebnis4;
end;

if lol = 2 then
begin
  ergebnis1 := FloatToStr(u / 2 * pi);
  Label1.Caption := ergebnis1;
  r2 := strtofloat(ergebnis1);// StrToFloat, statt StrToInt!!!
  ergebnis3 := FloatToStr(r2 * 2);
  Label3.Caption := ergebnis3;
  ergebnis4 := FloatToStr(pi* r2 *r2);
  Label4.Caption := ergebnis4;
end;

if lol = 3 then
begin
  ergebnis1 := FloatToStr(d / 2);
  Label1.Caption := ergebnis1;
  r2 := strtofloat(ergebnis1);// StrToFloat, statt StrToInt!!!
  ergebnis2 := FloatToStr(2* pi * r2);
  Label2.Caption := ergebnis2;
  ergebnis4 := FloatToStr(pi* r2 * r2);
  Label4.Caption := ergebnis4;
end;

if lol = 4 then
begin
  ergebnis1 := FloatToStr(pi * A / 2);
  Label1.Caption := ergebnis1;
  r2 := strtofloat(ergebnis1);// StrToFloat, statt StrToInt!!!
  ergebnis2 := FloatToStr(2* pi * r);
  Label2.Caption := ergebnis2;
  ergebnis3 := FloatToStr(r2* 2);
end;

end;
[...]

Wie gesagt: beschäftige Dich mal damit, was String, Integer, Float, Real usw. bedeuten und wie man sie ineinander umwandelt. Mir scheint, als hättest Du von Variablentypen noch nie etwas gehört...

LG, Markus