小编DrS*_*ani的帖子

嗨我已经在我的项目中定义了一些记录,这些记录可能包含其他记录以及普通数据类型和其他记录的动态数组,它是记录类型的n个示例

  Type1=record
    x:integer;
  end;
  Type2=record
    Y:array of X;
    str:string;
  end;

当我尝试将这些记录类型的变量之一保存到具有blockwrite函数的文件时,如下所示:

var
  Temp1:Type2;
  begin
    setlength(temp1.y,100);
    blockwrite(MyFile,Temp1,sizeOf(Temp1);

它写的只是纯记录的大小,但是temp1有一个调整大小的dynmic数组,有人可以告诉我如何将复杂的记录写入文件,我的意思是像VB6中使用的那样.谢谢

有人可以告诉我是否有办法捕获额外的操纵杆按钮？我的意思是按钮编号5,6,7,8等等.

我使用此代码捕获按钮事件:

procedure MMJOY1BUTTONDOWN (var LocMessage: TMMJoyStick); message MM_JOy1BUTTONDOWN;

但问题是它只捕获4个标准按钮,而不是任何额外的按钮.

非常感谢