#0 durch "nichts" ersetzen

[DeddyH]

Kleine Änderung (allerdings auch ungetestet):

Delphi-Quellcode:

  i := 0;
  SetLength(sTmp, Length(s));
  for c in s do
  begin
    if (c <> #0) then
    begin
      //erst erhöhen, sonst Zugriff auf String[0]
      inc(i);
      s[i] := c;      
    end;
  end;
  //jetzt müsste i der exakten Länge entsprechen
  SetLength(sTmp, i);