Wie kann ich einen Record in eine Datei schreiben/lesen

[mytar]

Zitat:

Delphi-Quellcode:

procedure WriteStringToStream(stream: TFileStream; str: string); 
var 
len: integer; 
begin 
len := length(str);             // Länge des strings ermitteln 
stream.write(len, SizeOf(len)); // Länge des Strings speichern 
stream.write(PChar(str)^, len); // String mittels PChar speichern 
end; 


procedure ReadStringFromStream(stream: TFileStream; var str: string); 
var 
len: integer; 
begin 
stream.read(len, SizeOf(len)); // Länge des Strings auslesen 
SetLength(str, len);           // Länge des Srings setzen 
stream.read(PChar(str)^, len); // Strings mittels PChar auslesen 
end;

Ich denke, das ganze müsste auch so gehen:
stream.write(str[1], 255); und
stream.read(str[1], 255); greetz