, 12 2015 . 07:10
+
. , - , ...
...
[Code]
type
PRecordData = ^TRecordData;
TRecordData = packed record
ID: integer;
Name: string;
end;
...
var
tmpData: PRecordData;
...
begin
GetMem(tmpData,sizeof(TRecordData));
ZeroMemory(tmpData,sizeof(TRecordData));
tmpData.ID := ...;
tmpData.Name := '......;
....
//
tmpData.Name ...
http://www.delphikingdom.com/asp/answer.asp?IDAnswer=82972
