#0 durch "nichts" ersetzen

[himitsu]

StringReplace nutzt intern blöder Weise einen PChar-Pos, welches bei 0 endet und ignoriert die Längenangabe des Strings.

Also For+Delete oder das Schnellere von Win32.API oder eine PChar-Variante, welche auf die Längenangabe und nicht auf ein #0 hört.

[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);

[Helmi]

Danke für eure Antworten!

Habs jetzt endgültig so gemacht:

Delphi-Quellcode:

    //String aus StringStream auslesen
    S_Data := StringStream.DataString;

    //String auf die Länge des Datenstrings setzen
    SetLength(S, length(S_Data));

    //#0 ausfiltern und in neuen String schreiben
    for i := 1 to length(S_Data) do
      begin
        If S_Data[i] <> #0 then
          begin
            inc(j);
            S[j] := S_Data[i];
          end;
      end;

    //wirkliche Größe des Strings setzen
    SetLength(S, j);