#0 perfomanceschonend aus String entfernen

[shmia]

Wenn man mit Zeigern arbeitet, dann sollte das Ratz-Fatz gehen (nur Assembler wäre schneller):

Delphi-Quellcode:

var
  p : PChar;
  i : integer;
begin
  UniqueString(S);
  p := PChar(S);
  for i := 1 to length(S) do
  begin 
    If p^ = #0 then 
      p^ := #32; 
    Inc(p);
  end;

Wenn man "an der RTL vorbei" Strings über Zeiger verändert muss man vorher UniqueString() aufrufen.