#0 durch "nichts" ersetzen

[Win32.API]

Nicht getestet:

Delphi-Quellcode:

  i := 0;
  SetLength(sTmp, Length(s));
  for c in s do
  begin
    if (c <> #0) then
    begin
      s[i] := c;
      inc(i);
    end;
  end;
  SetLength(sTmp, pred(i));