Forum: Algorithmen, Datenstrukturen und Klassendesign
by Delphi.Narium,
1. Aug 2018
oder
function RemLeadChar(const Input: string; const LeadChar: Char): string;
begin
Result := Input;
if Length(Result) > 0 then while Result = LeadChar do delete(Result, 1, 1);
end;
Forum: Algorithmen, Datenstrukturen und Klassendesign
by Delphi.Narium,
1. Aug 2018
Ja schon, und deshalb fällt der Fehler nicht auf. Wenn man mal ohne break arbeitet, sieht man, dass man auch mittendrinnen ggfls. noch die eine oder andere 0 entfernen würde, was dann den Fehlergrund offensichtlich machen würde.
Forum: Algorithmen, Datenstrukturen und Klassendesign
by Delphi.Narium,
1. Aug 2018
nr_pzn_bereinigt := IntToStr(StrToInt(nr_pzn_bereinigt));
geht, solange nur Ziffern vorkommen, kommt mal ein Buchstabe (oder besser einen Nichtziffer) geht's schief.
while Copy(nr_pzn_bereinigt,1,1) = '0' do begin
nr_pzn_bereinigt := Copy(nr_pzn_bereinigt,2,Length(nr_pzn_bereinigt));
end;
Beispiel zu Deinem Vorgehen:
i ist 1