ich hab jetzt ein bisschen rumgedebugged(was für ein wort) und es scheint an meiner if-abfrage zu liegen dessen teil der o.g. quelltext ist und nicht daran. Vielen dank trotzdem
ach ja auch da find ich den fehler nicht(nicht erschrecken das ist gerade so verkompliziert weil ich den fehler gesucht hatte und es deshalb zerlegt in einzelne schritte)
Delphi-Quellcode:
var
erg2: String;
erg3: Integer;
erg4, erg5: Real;
//...
procedure Runden(erg1: String);
var i: Integer;
for i := 1 to length(erg1) do
begin
erg2:=erg2+'0';
erg2[i]:=erg1[i];
if erg1[i]= ',' then
begin
erg2[i+1]:=erg1[i+1];
erg2[i+2]:=erg1[i+2];
if erg1[i+3]='5' or if erg1[i+3]='6' or if erg1[i+3]='7' or if erg1[i+3]='8' or if erg1[i+3]='9' then
begin
erg3:=round(StrToInt(erg2)*100);
erg2:=IntToStr(erg3);
erg4:=StrToFloat(erg2);
erg5:=erg4/100.0;
erg2:=FloatToStr(erg5);
erg2:=IntToStr(erg3);
end; //hier liegt der fehler
end;
end;
end;