Hilfe zu Funktion "DeleteChars"

[himitsu]

Delphi-Quellcode:

    begin 
      PResIdx^ := PSIdx^; 
      Inc(ResLen); 
    end;

Der Fehler ist, dass nur das Zeichen, welches dem zu löschenden Zeichen folgt um eines nach vorne verschoben wird.
Aber es müßn alle nachvolgenden Zeichen verschoben werden.

In deinem Beispiel soll der Punkt gelöscht werden und es wird deinem Code entsprechenden das c um ein Beit nach vorne kopiert.

Du solltes also statt PResIdx^ := PSIdx^; eine Funktion wie Move, oder MemCopy verwenden, um alle nachfolgenden Zeichen, bis zum Stringende zu verschieben.


[add]
Oh, hab mich wohl verlesen ... dachte dass due den Resultstring vorher schonmal gesetzt hättest und in der Schleife die unerwünschten Zeichen wieder entfernst.

Aber versuch es mal so

Delphi-Quellcode:

if S <> '' then
  while PSIdx <> #0 do begin
    if ((Delete = deExcept) and (PSIdx^ in CharSet)) or
      ((Delete = dremove) and not (PSIdx^ in CharSet)) hen begin
      PResIdx^ := PSIdx^;
      Inc(ResLen);
      Inc(PResIdx);
    end;
    Inc(PSIdx);
  end;

Also Robert schein recht zu haben.

PS: Als guter Programmierer könntest du ja ResLen weglasen ... die entsprechende Länge kann man ja leicht aus der Ausgansgposition (@Result[1]) und der Position des letzten ResultZeichens (PResIdx) errechnen