Wahrscheinlich liegt es auch an der Uhrzeit aber ich blicke nicht mehr durch )
<PRE>
EV2 := StrToInt(lblFinalAtt.caption);
If EV = 0 then EV := 1;
EV := (EV2 * 100) div EV;
If EV = 100 then lblErgebnis.caption := '50';
If EV > 100 then
begin
EV := EV - 100;
EV := EV * 2.63 + 50;
end
</PRE>
Wenn ich EV als Integer deklariere, schreit er bei der 2.63 (Komma) wie am Spieß, deklariere ich EV als Single, rechnet er nicht mehr mit EV2 (Integer).
Im Endeffekt möchte ich nur einen String aus einem Label als Zahl übernehmen, damit weiterrechnen (dezimal) und das Ergebnis hinterher wieder in einem Label ausgeben.
Wahrscheinlich sehe ich den Wald vor lauter Bäumen nicht )
<PRE>
EV2 := StrToInt(lblFinalAtt.caption);
If EV = 0 then EV := 1;
EV := (EV2 * 100) div EV;
If EV = 100 then lblErgebnis.caption := '50';
If EV > 100 then
begin
EV := EV - 100;
EV := EV * 2.63 + 50;
end
</PRE>
Wenn ich EV als Integer deklariere, schreit er bei der 2.63 (Komma) wie am Spieß, deklariere ich EV als Single, rechnet er nicht mehr mit EV2 (Integer).
Im Endeffekt möchte ich nur einen String aus einem Label als Zahl übernehmen, damit weiterrechnen (dezimal) und das Ergebnis hinterher wieder in einem Label ausgeben.
Wahrscheinlich sehe ich den Wald vor lauter Bäumen nicht )
Comment