PChar: Zeichen rechts abschneiden?

[SirThornberry]

noch eine variante:

Delphi-Quellcode:

procedure RemoveLastDots(AVal: PChar);
var LMax: PChar;
begin
  LMax := AVal + Length(AVal) - 1;
  while (LMax >= AVal) and (LMax[0] = '.') do
    dec(LMax);
  LMax[1] := #0;
end;