In
Unit JclStrings könnte man
StrTrimCharLeft('00850046', '0');
aufrzufen um einen "850046" String zu erhalten, ansonsten schließe ich mich Dalei an, hier ein mini Beispiel dazu:
Delphi-Quellcode:
function EntferneNullen(const Input: String): String;
begin
Result := IntToStr(StrToIntDef(Input,0));
end;