@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.