Ik wil een query cache (linked list) maken:
Code:
TYJSONString = AnsiString;
TYQueryResult = class
private
FLastAccess: TDateTime;
FKey: AnsiString;
FPrior: TYQueryResult;
FNext: TYQueryResult;
FJSONResult: TYJSONString;
public
destructor Destroy; override;
property LastAccess: TDateTime read FLastAccess write FLastAccess;
property Key: Ansistring read FKey write FKey;
property Prior: TYQueryResult read FPrior write FPrior;
property Next: TYQueryResult read FNext write FNext;
property JSONResult: TYJSONString read FJSONResult write FJSONResult;
end; {TYQueryResult}
De lengte van Key en JSONResult zijn variabel. Kennelijk liggen de tijden van New/GetMem/Dispose/FreeMem inmiddels te ver weg.
Hoe werkte het ook al weer?
Code:
NewResult: TYQueryResult;
.
.
GetMem(NewResult, sizeof(NewResult));
.
Ik zit in dubio hoe de variabele lengte van Key en JSONResult meegenomen moet worden, of is dat al geregeld?
Bookmarks