Hallo,
Du könntest anstatt PChar auch String nehmen und die Recordfelder einzeln in einen Stream schreiben. Dafür habe ich mir jeweils für TMemoryStream und TFileStream einen Nachfahren gebastelt. Diese beide Stream-Klassen habe jeweils die Methoden WriteStringToStream und ReadStringFromStream.
Delphi-Quellcode:
unit Streaming;
interface
uses Sysutils, Classes;
Type
TMemoryStreamExt =
class(TMemoryStream)
public
procedure WriteStringToStream(aStr :
String);
function ReadStringFromStream :
String;
end;
TFileStreamExt =
class(TFilestream)
public
procedure WriteStringToStream(aStr :
String);
function ReadStringFromStream :
String;
end;
implementation
{ TFileStreamExt }
procedure TFileStreamExt.WriteStringToStream(aStr :
String);
var
aStrLen : Integer;
begin
aStrLen:=Length(aStr);
WriteBuffer(aStrLen,SizeOf(Integer));
WriteBuffer(Pointer(aStr)^,aStrLen);
end;
function TFileStreamExt.ReadStringFromStream:
String;
var
aStrLen : Integer;
begin
ReadBuffer(aStrLen,SizeOf(Integer));
SetLength(Result,aStrLen);
ReadBuffer(Pointer(Result)^,aStrLen);
end;
{ TMemoryStreamExt }
function TMemoryStreamExt.ReadStringFromStream:
String;
var
aStrLen : Integer;
begin
ReadBuffer(aStrLen,SizeOf(Integer));
SetLength(Result,aStrLen);
ReadBuffer(Pointer(Result)^,aStrLen);
end;
procedure TMemoryStreamExt.WriteStringToStream(aStr:
String);
var
aStrLen : Integer;
begin
aStrLen:=Length(aStr);
WriteBuffer(aStrLen,SizeOf(Integer));
WriteBuffer(Pointer(aStr)^,aStrLen);
end;
end.
Die Reihenfolge mit der Du die einzelnen Recordfelder in den Stream schreibst bestimmt die Reihenfolge mit der Du die einzelnen Recordfelder wieder aus dem Stream liest.
Tip:
Wenn Du die Rcords in einer Liste hälst empfiehlt es sich anstett Records Nachfahren von TCollectionItem zu verwenden. TCollectionItem in Verbindung mit TCollection ist hier extrem leistungsfähig (meine Meinung). Die Recordfelder werden als published properties von TCollectionItem deklariert. Dann rezeugt man eine Dummykomponente. Eine published property der Dummykomponente ist dann TCollection. Zum Speichern schreibt man die Dummykomponente mit TStream.WriteComponent in den Stream. Zum lesen verwendet man dann TStream.ReadComponent.
Der Clou an der Sache ist, dass man dann das delphiinterne Streaming verwendet. D.h. das die TCollection incl. aller TCollectionItem Elemente automatisch gespeichert werden. Besonders sinnvoll wird dieses Verfahren, wenn die properties von TCollectionItem wiederrum Listen sind.
D.h. mit diesem Verfahren kann man sehr bequem Listen in Listen in Listen usw speichern.
Ich hoffe, ich habe mich verständlich ausgedrückt.
Ich habe irgendwo noch ein Beispiel. Ich werde mal auf die Suche gehen.