Hi,
erstmal nicht:
Delphi-Quellcode:
if lol = 1 then
ergebnis2 := Format('%.2f',[2* pi * r]);
Label2.Caption := ergebnis2;
ergebnis3 := Format('%.2f',[2* r]);
Label3.Caption := ergebnis3;
ergebnis4 := Format('%.2f',[pi* r * r]);
Label4.Caption := ergebnis4;
sondern: in deinem Fall wohl eher:
Delphi-Quellcode:
if lol = 1 then
begin
ergebnis2 := Format('%.2f',[2* pi * r]);
Label2.Caption := ergebnis2;
ergebnis3 := Format('%.2f',[2* r]);
Label3.Caption := ergebnis3;
ergebnis4 := Format('%.2f',[pi* r * r]);
Label4.Caption := ergebnis4;
end;
Aber das schlimmste ist, dass Du mit
r2 := strtoint(ergebnis1);
Versuchst, einen String, in dem '1.45333' oder so (also ein Gleitkommawert in einen String konvertert), in ein Integer umzuwandeln, also eine Ganzzahl. Da meckert er mit Recht. Alo entweder runden, oder in Float konvertieren.
LG, Markus