führende null entfernen

[Delphi.Narium]

oder

Delphi-Quellcode:

function RemLeadChar(const Input: string; const LeadChar: Char): string;
begin
  Result := Input;
  if Length(Result) > 0 then while Result[1] = LeadChar do delete(Result, 1, 1);
end;