关闭

数组类型指针

580人阅读 评论(0) 收藏 举报
{使用一个元素的数组指针} 
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;

0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:373616次
    • 积分:6079
    • 等级:
    • 排名:第4125名
    • 原创:215篇
    • 转载:126篇
    • 译文:1篇
    • 评论:43条
    最新评论