führende null entfernen

[DeddyH]

Auf dem Tablet direkt im Editor getippt, daher komplett aus dem Kopf:

Delphi-Quellcode:

function StrippedLeft(const Input: String; const Leading: Char): String;
var 
  i, idx: integer;
begin
  idx := 0;
  for i := 1 to Length(Input) do
    if Input[i] <> Leading then 
      begin
        idx := i;
        Break;
      end;
  if idx > 0 then
    Result := Copy(Input, idx)
  else 
    Result := ´´;
end;