Problem mit #0 in einer Text-Datei beim Laden

[Helmi]

Hallo oki,

danke für den Code! - Irgendwie stand ich auf dem Schlauch.

Ich hab jetzt deinen Code genommen, getestet und umgebaut:

Delphi-Quellcode:

function ReadText(AFileName : String): String;
var
  FStream: TFileStream;
  SStream: TStringStream;
  S: String;
  i: Integer;

begin
  S := '';

  If not FileExists(AFileName) then
    exit;

  FStream := TFileStream.Create(AFileName, fmOpenRead);
  SStream := TStringStream.Create(S);

  try
    FStream.Position := 0;
    SStream.CopyFrom(FStream, FStream.Size);
    SStream.Position := 0;
    S := SStream.ReadString(SStream.Size);
//    S := StringReplace(S, #0, #32, [rfReplaceAll]);

    for i := 1 to length(S) do
      If S[i] = #0 then
        S[i] := #13;

    Result := S;
  finally
    FreeAndNil(FStream);
    FreeAndNil(SStream);
  end;
end;

StringReplace hat leider nicht funktioniert. Nach StringReplace waren die #0 trotzdem
noch vorhanden.
Die for-Schleife funktioniert und ersetzt die #0 durch #13 (Zeilenumbruch)