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;