#0 durch "nichts" ersetzen

[Helmi]

Hallo,

ich habe folgenden Code:

Delphi-Quellcode:

  //FileStream und StringStream erzeugen
  FileStream    := TFileStream.Create(Datei, fmOpenRead);
  StringStream  := TStringStream.Create(S);

  try
    //FileStream in StringStream kopieren
    FileStream.Position := 0;
    StringStream.CopyFrom(FileStream, FileStream.Size);

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

    //#0 durch #32 ersetzen
    for i := 1 to length(S) do
      begin
        If S[i] = #0 then
          S[i] := #32;
      end;

    //Text in StringList laden
    SL_NCUpgrade.Text := S;

Dort ersetz ich #0 durch #32 (Leerzeichen)
Wie kann ich aber das #0 durch nichs ersetzen? - also komplett löschen?
Muss ich da wirklich mittels delete arbeiten?

[mkinzler]

Oder StringReplace()

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

[himitsu]

Delete

[Win32.API]

Zitat:

Zitat von RAD Studio VCL Reference Delete

If count specifies more characters than remain starting at the index, System::AnsiStringBase::Delete removes the rest of the string. If count is less than 0, no characters are deleted.

Also nicht sonderlich performant.

[Helmi]

Zitat:

Zitat von mkinzler (Beitrag 1042086)

Oder StringReplace()

StringReplace hört aber beim ersten #0 auf, meines Wissens nach

Zitat:

Zitat von Win32.API (Beitrag 1042087)

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

mmh - eigentlich kein schlechtes Beispiel - hätt ich auch selbst drauf kommen können
werd ich mal ausprobieren
(wobei for ... in ... do in Delphi 7 noch nicht vorhanden ist)

[Daniela.S]

Delphi-Quellcode:

   str := StringReplace( str, #0, '', [rfReplaceAll] );

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