Führende Null entfernen

[Schaedel]

Delphi-Quellcode:

function LoescheFuehrendeNullen(Text :String):string;
var i : integer;
begin  // wenn führende Nullen im Datensatz sind lösche diese
  for i := 1 to (length(text)-1) do begin
    if not (text[2]= ',') then begin
      if text[1] = '0' then  begin
         text := copy(text,2,length(text));
      end else begin
         break;
      end;
      break;
    end;
  end;   
 result := text;
end;

Suchst du sowas?