führende null entfernen

[p80286]

@Redeemer

Dafür müßtest Du das erste nicht 0 suchen, und dann kannst Du es am Stück löschen.

Delphi-Quellcode:

i:=0;
if length(mystring)>0 then begin
  repeat
    if mystring[i+1]<>'0' then inc (i,1);
  until (mystring[i+1]<>'0') or (i>=length(mystring));
  if i>0 then delete(mystring,1,i);
end;

Gruß
K-H

@KodeZwerg
Dein zweites Beispiel kann Ärger machen, da Du die Länge des String nicht berücksichtigst.

[KodeZwerg]

Zitat von p80286:

Dein zweites Beispiel kann Ärger machen, da Du die Länge des String nicht berücksichtigst.

Ich versuche gerade Nachzuvollziehen an welcher Stelle es böse ausgehen könnte, deswegen kommentare rangeklebt damit ihr seht was ich anstellen wollte, vielleicht ist umsetzung falsch

Delphi-Quellcode:

function RemDelLeadChar(const Input: string; const LeadChar: Char): string;
var
  i: Integer;
begin
  i := 1; // String Index auf 1 (der erste) setzen
  Result := Input; // result mit input initialisieren
  if ((Length(Input) > 0) and (Input[1] = LeadChar)) then // wenn länge +1 und mit LeadChar anfängt dann...
  begin // block anfangen damit delete korrekt ausgeführt wird
   while (Input[i] = LeadChar) do inc(i); // solange leadchar vorne [i] vorkommt gib +1 auf i
   Delete(Result, 1, i-1); // da wenigstens ein LeadChar vorkam kann man bedenkenlos ausführen
  end; // ende vom länge/leadchar block
  if Result = '' then Result := LeadChar; // falls string leer ist, gib wenigstens ein leadchar wieder
end;

[KodeZwerg]

Zitat von p80286:

Delphi-Quellcode:

i:=0;
if length(mystring)>0 then begin
  repeat
    if mystring[i+1]<>'0' then inc (i,1);
  until (mystring[i+1]<>'0') or (i>=length(mystring));
  if i>0 then delete(mystring,1,i);
end;

Das führt bei mir zu einer Endlos-Schleife, aber so klappts:

Delphi-Quellcode:

function DelLeadChar(const Input: string; const LeadChar: Char): string;
var
  i: Integer;
begin
  i:=0;
  Result := Input;
  if length(Input)>0 then
   begin
     repeat
       if Input[i+1]=LeadChar then inc (i,1);
//       if Input[i+1]<>LeadChar then inc (i,1); // nicht gut ^_^
     until (Input[i+1]<>LeadChar) or (i>=length(Input));
     if i>0 then delete(Result,1,i);
   end;
end;