最基础的问题,类和对象的操作

Question

unit FAC;interfaceuses
     Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
     Dialogs, ComCtrls, StdCtrls, Grids, Calendar, ExtCtrls;type
     TForm1 = class(TForm)
          W_PrgVersion: TLabeledEdit;
          Button2: TButton;
          procedure Button2Click(Sender: TObject);     private
    { Private declarations }     public
    { Public declarations }
     end;var
     Form1: TForm1;function p2: integer;implementation
{$R *.dfm}
uses DataVersion;function p2: integer;
begin
  form1.W_PrgVersion.Text :=  aaaa.GetPrgVersion;
end;procedure TForm1.Button2Click(Sender: TObject);
begin
     p2;
end;end.
unit DataVersion;
interface
uses
     windows, SysUtils, Fac;
type
     TD1000 = class       //自定义类
     private
     public
          Data: array[0..255] of word; 
          //////数据:要封装,和当作参数传入的共2种,///////
          function GetPrgVersion: string;
     end;var
     aaaa: TD1000;implementation function TD1000.GetPrgVersion: string;
begin
     result := inttostr(data[0]);  /////此处操作不了/应当 如何做?////////////
end;end.

Answer 1

我个感觉不是数组初始化的问题，应该是没有创建类对象实例
function p2: integer; 
begin 
  form1.W_PrgVersion.Text :=  aaaa.GetPrgVersion; 
end; 应该有个aaa:=TD1000.Create;