+ -
当前位置:首页 → 问答吧 → 既可以是RECORD 又同时是ARRAY

既可以是RECORD 又同时是ARRAY

时间:2011-12-05

来源:互联网

工作中遇到问题,一个指针指向一个RECORD,但是从业务上看是一个List,我很疑惑,难道可以同时是RECORD又是ARRAY嘛?
在线等,,我是初学者。。刚接触DELPHI

作者: zeus177169   发布时间: 2011-12-05

Delphi(Pascal) code

var
  p: PPoint;
  i: Integer;
  buf: array[0..255] of Char;
type
  ArrPoint = array of TPoint; {用于转换的自定义类型}
begin
  p := GetMemory(4 * SizeOf(TPoint));

  for i := 0 to 3 do
  begin
    ArrPoint(p)[i].X := i;
    ArrPoint(p)[i].Y := i * i;
  end;

  wvsprintf(buf, '%d,%d; %d,%d; %d,%d; %d,%d', PChar(p));
  ShowMessage(buf); {0,0; 1,1; 2,4; 3,9}

  FreeMemory(p);
end;



作者: chenzhuo   发布时间: 2011-12-05

热门下载

更多