führende null entfernen

[p80286]

@Redeemer

Dafür müßtest Du das erste nicht 0 suchen, und dann kannst Du es am Stück löschen.

Delphi-Quellcode:

i:=0;
if length(mystring)>0 then begin
  repeat
    if mystring[i+1]<>'0' then inc (i,1);
  until (mystring[i+1]<>'0') or (i>=length(mystring));
  if i>0 then delete(mystring,1,i);
end;

Gruß
K-H

@KodeZwerg
Dein zweites Beispiel kann Ärger machen, da Du die Länge des String nicht berücksichtigst.