PChar: Zeichen rechts abschneiden?

[SirThornberry]

wäre aber auch unperformant, außerdem sollen nur die letzten punkte gelöscht werden

Delphi-Quellcode:

procedure RemoveLastDots(AVal: PChar);
var LLen, LLastNoDot: Integer;
begin
  LLen := Length(AVal);
  if LLen > 0 then
  begin
    LLastNoDot := LLen;
    while (LLastNoDot >= 0) and (AVal[LLastNoDot - 1] = '.') do
      dec(LLastNoDot);
    AVal[LLastNoDot] := #0;
  end;
end;

[Edit]Ich seh da grad noch nen Fehler, wird gleich behoben[/Edit]
[Edit2]Gab doch keinen Fehler[/Edit2]