TFileStream mit AnsiString

[Helmi]

Hallo,

ich lade mir eine Text-Datei in eine StringList ein, modifizier die StringList etwas und speichere danach den Inhalt der StringList mittels TFileStream (ja - ich weiss - es gibt auch StringList.SaveToFile - aber ich speichere mehrere Text-Dateien in der gleichen Datei)

Delphi-Quellcode:

var
  S: String;
  FileStream: TFileStream;

begin
{...}
  StringList.LoadFromFile(Pfad + Datei);
  S := StringList.Text;
  FileStream.WriteBuffer(S[1], length(S));
{...}

Wenn ich das so mache, dann erhalte ich nach jedem Zeichen in der Datei #0.
Ist S als AnsiString deklariert, dann funktionierts (natürlich).
Aber dann erhalte ich als Warnung:

Zitat:

[DCC Warnung] MainUnit.pas(222): W1058 Implizite String-Umwandlung mit potenziellem Datenverlust von 'string' zu 'AnsiString'

So etwas wie AnsiFileStream gibts es ja leider nicht - aber wie geht man nun bei so was vor? - Also einen String zu speichern ohne #0 nach jedem Zeichen und ohne das man die Warnung erhält?

[DeddyH]

Wie wäre es denn mit einem TStringStream?

[Helmi]

Zitat:

Zitat von DeddyH (Beitrag 1196616)

Wie wäre es denn mit einem TStringStream?

Jetzt hast dir aber ein Geschenk heute abend verdient :mrgreen:

Danke für den Tip - funktioniert perfekt.
Ich kannte TStringStream gar nicht (mehr) - habs immer mit FileStream gemacht
(hab grad gesehen dass ich es schon mal in einem anderen Projekt nutze - ich werd einfach alt)