Servus!
Zeile 23
Delphi-Quellcode:
for e := s to length(help)-1 do
hs := hs + help[e];
ist so nicht korrekt. Dadurch schneidest du das letzte Zeichen deiner Zahl sozusagen ab.
Immer dran denken: Strings sind 1-basiert, nicht 0-basiert.
Mit
Delphi-Quellcode:
for e := s to length(help) do
hs := hs + help[e];
sollte es eigentlich funktionieren. (habs jetzt allerdings nicht getestet)
Axel Sefranek
A programmer started to cuss, cause getting to sleep was a fuss.
As he lay there in bed, looping round in his head
was: while(!asleep()) ++sheep;