数组类型指针
2013-12-05 18:17
309 查看
{使用一个元素的数组指针} PMyRec = ^TMyRec; TMyRec = record F1: Char; F2: Word; end; procedure TForm1.Button1Click(Sender: TObject); type PArr = ^TArr; TArr = array [0 .. 0] of TMyRec; var buf: PArr; i: Integer; begin GetMem(buf, SizeOf(TMyRec) * 3); for i := 0 to 2 do begin buf[i].F1 := 'A'; ShowMessage(buf^[i].F1); end; FreeMem(buf); end;
相关文章推荐
- english短语
- HttpClient 4.3 开发学习(4)
- Linux 挂载Window共享文件
- 求本年、本月、本周等数据
- 关于进程句柄 窗口句柄的关系
- 二分查找(实现)
- 多线程编程之三——线程间通讯
- 多线程编程之四——线程的同步
- 函数指针
- C++基础学习笔记----第八课(类的封装)
- 多线程编程之二——MFC中的多线程开发
- Android应用作为jar包导入到其他app中资源文件找不到问题
- <摘>成功道路上容易被忽视的5项技能
- 博客园安家记录下
- seajs 使用jquery插件
- 1588: [HNOI2002]营业额统计
- 批处理、shell 使用日期时间作为文件名的方法
- 多线程编程之—问题提出
- Commenting and uncommenting XML via Python
- 让数据库变快的10个建议