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
