Ich habe zwar den Fehler nicht gefunden aber einen Alternativvorschlag: Nimm doch TFileStream zum Schreiben und Lesen von Dateien. Hier ein kleines Beispiel:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
| procedure Speicherwas(Inhalt: TIrgendwas);
var Datei: TFileStream;
begin
Datei:=TFileStream.Create('C:\Testdatei.xxx',fmCreate);
Datei.Write(Inhalt,SizeOf(Inhalt));
Datei.Free;
end;
function Lesewas(): TIrgendwas;
var Datei: TFileStream;
begin
Datei:=TFileStream.Create('C:\Testdatei.xxx',fmOpenRead);
Inhalt:=Datei.Read(SizeOf(Inhalt));
Datei.Free;
end; |
Ich hoffe ich habe keinen Fehler gemacht, aber in der Delphi Hilfe sind Streams recht gut erklärt. TStream ist die Basisklasse. TFileStream schreibt in eine Datei, TMemoryStream in den RAM, außerdem gibt es noch THandleStream, TBlobStream und TWinSockStream.
Ich denke damit wird es übersichtlicher und einfacher (kein IOResult mehr!)
