String-Problem

[Christian Seehase]

Moin Seddto,

Zitat von seddto1977:

Doch ist eine von mir erstellte Textdatei...
.....
Was mache ich falsch?

Ich vermute mal, dass Du die Datei nicht richtig erstellst.

Das sieht nämlich so aus, als würdest Du nicht den String speichern, sondern Pointer.

Beispiel:

Delphi-Quellcode:

var
  fsWork : TFileStream;
  sWork  : string;

begin
  sWork  := 'Teststring';

  // Der Pointer auf den Inhalt von sWork und das 
  // was im Speicher dahintersteht werden gespeichert
  fsWork := TFileStream.Create('c:\temp\test1.txt',fmCreate);
  try
    fsWork.Write(sWork,length(sWork));
  finally
    FreeAndNil(fsWork);
  end;

  // Der String wird gespeichert
  fsWork := TFileStream.Create('c:\temp\test2.txt',fmCreate);
  try
    fsWork.Write(sWork[1],length(sWork));
  finally
    FreeAndNil(fsWork);
  end;
end;