führende null entfernen

[SProske]

Wenn die Version im Profil stimmt, könnte man das natürlich auch über

nr_pzn_bereinigt := nr_pzn_bereinigt.TrimLeft(['0']); lösen

[Dr. Jack]

Zitat von SProske:

Wenn die Version im Profil stimmt, könnte man das natürlich auch über

nr_pzn_bereinigt := nr_pzn_bereinigt.TrimLeft(['0']); lösen

genau Trimleft super. danke das war die Lösung! Daumen hoch!

[KodeZwerg]

Ich habe auch noch etwas herumgespielt, sowas kam dabei raus:

Delphi-Quellcode:

function RemLeadChar(const Input: string; const LeadChar: Char): string;
var
  i, ii: Integer;
begin
  ii := 0;
  if Length(Input) > 0 then // ein zeichen minimum um weiter zu kommen
   if Input[1] = LeadChar then // fängt String nicht mit LeadChar an gibts nichts zu tun
    for i := 1 to Length(Input) do // komplette stringlänge abarbeiten initialisieren
      if Input[i] = LeadChar then ii := i else Break; // kommt vorne ein LeadChar vor Position merken
    if ii > 0 then Result := Copy(Input, ii+1, Length(Input)) // entweder anfang verwerfen
     else Result := Input; // oder eingabe zurück
end;

Beispiel Aufruf: Memo1.Lines.Add(RemLeadChar(Edit1.Text,'0'));

[Neutral General]

Wie wärs einfach hiermit?

Delphi-Quellcode:

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