Für beliebig lange Zahlen am Stringende:
Delphi-Quellcode:
i:= length(str)-1;
// String wird von hinten durchgegangen und geschaut, wann die erste nicht-Zahl auftaucht.
while str[i]
in ['
0'..'
9']
do
dec(i);
result:= strtoint(copy(str,i,length(str)-i));
Das ist eher als Idee als als fertiger Code gedacht, aber (+/-) 1 müsste er funktionieren.