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