Zitat von
DGL-luke:
Ach ja - die komisch lange Zahlen lassen sich durch eine geeignete verstringungsroutine verhindern, indem du die genauigkeit auf zwei stellen reduzierst:
Panel23.Caption := FloatToStrF(wert, ffGeneral, 2, 2, []) +' €';
weiteres unter
FloatToStrF.
das geht bei mir nicht ???
muss ich vielleicht irgendetwas noch verändern ???
bei rassen die aktien immer höer, sie sinken um keinen deut !!!
Delphi-Quellcode:
if wert = 0 then
wert := 100;
akte := random(1) +1;
plus_m := random(100) / 10;
if akte = 1 then
wert := wert + {akte} plus_m
else
wert := wert- {akte} plus_m;
Panel23.Caption := floattostr(wert)+' €';
EDIT: Das mit dem hoch gehen hab ich behoben !!!