Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- type
- TMyRecord = record
- W: word;
- S: String;
- end;
- TMyRecordArray = array [1 .. 315] of TMyRecord;
- TArrayPointer = ^TMyRecordArray;
- var
- PageBase: TArrayPointer;
- procedure TTestForm.FormCreate(Sender: TObject);
- var
- iRecord: TMyRecord;
- begin
- PageBase := AllocMem(SizeOf(TMyRecordArray));
- iRecord.W := 1;
- iRecord.S := 'TEST';
- PageBase^[1] := iRecord;
- end;
- procedure TTestForm.FormDestroy(Sender: TObject);
- begin
- PageBase^[1] := Default (TMyRecord);
- FreeMem(TPageBase);
- end;
- New(PageBase);
- Dispose(PageBase);
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement