|
摘要：
//这段代码在Delphi 2007和delphi 7下是可以执行的，所以正确使用结构体数组和指针应该是这样的，已验证unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; Memo1: TMemo; procedure Button1Click(Sender: TObject); private ... 阅读全文
摘要：
就一个button事件procedure TForm1.btn7Click(Sender: TObject); Type TMyArr = array of array of array of Integer; {定义一个三维动态数组类型} Pint = ^TMyArr; var PArr: Pint; {动态数组指针变量} i,j,k,ic,jc,kc: Integer; begin Memo1.Lines.Clear; {用作维数的变量} ic := 2; jc := 3; kc := 4; {分配内存; 按说动态数组还需要 8 个管理字节, 我不知... 阅读全文
|
