String lässt sich nicht in die Datei schreiben...

[Christian Seehase]

Moin Thunder,

erst einmal herzlich Willkommen hier in der Delphi-PRAXiS.

Das Problem ist, dass StringReplace intern AnsiPos verwendet um die Position des zu ersetzenden Zeichens zu finden.
AnsiPos benutzt AnsiStrPos, eine Funktion für nullterminierte Strings.
Es wird also geprüft, ob der String zu Ende ist, also ein Nullbyte auftaucht, was bei jedem gefundenen Muster, dass mit einer #00 beginnt der Fall ist, und somit können solche Muster nicht gefunden werden.

Die Einzige Abhilfe wäre hier sich das StringReplace selber zu erstellen.

[Dani]

Hi,
Kannst du nicht schon beim Einlesen mit dem Filestream die #0-Zeichen ersetzen? Du könntest die Daten z.B. zuerst in einem Puffer speichern und diesen per for-Schleife durchgehen, bevor der Puffer an den Ergebnis-String angehängt wird...

[nur-ein-weiterer-thunder]

Erstmal Dank euch beiden, so wie es aussieht, werd ich also um eine FOR-Schleife nicht drumherum kommen :?
Bisher hab ich mich nämlich durch

Delphi-Quellcode:

FileStream.Read(ReturnStr[1],filestream.size);

gut davor drücken können :wink:

Naja, mal schaun :)

[Christian Seehase]

Moin Thunder,

Du kannst auch weiterhin so einlesen, am besten dann aber in eine Hilfsvariable.
Das eigentliche Ziel initialisierst Du dann

Delphi-Quellcode:

// Annahme: #00 wird aus dem Ursprung gelöscht
ReturnStr := StringOfChar(#00,FileStream.Size);

und anschliessend überträgst Du in einer Schleife die eingelesenen Daten in ReturnStr.
Hierbei brauchst Du dann noch eine Variable als Index für ReturnStr[..], und lässt immer die #00 weg beim Übertragen.

Zum Schluss noch ein

Delphi-Quellcode:

ReturnStr := trimright(ReturnStr);

und schon hast Du das Gewünschte.