führende null entfernen

[Hobbycoder]

Ein hätte ich auch noch:

Delphi-Quellcode:

function RemoveLeftZero(input: string): string;
var
  i: integer;
begin
  result:='';
  for i:=1 to length(input) do
    if result<>'' then 
      result:=result+input[i] 
    else
      if input[i]<>'0' then result:=result+input[i];
end;

Performance ist aber sicher nicht die beste, aber darum geht's hier ja nicht.