Question

我正在创建一个用于编写和读取数组的类打开文件，关闭文件一切正常。此外，我能够向bin文件写一个数组。但是从班级中返回一个阵列是远远的桥梁到目前为止，还有两个我无法解决的问题

1）在公共部分函数ReadArrFromFile：单个数组; ==＆GT;预期的标识符，但找到的数组＆amp;不兼容的类型单个和动态数组

2）在函数 Tbinfiles.ReadArrFromFile：单个数组的实现中， ==＆GT;我总是得到E2029标识符，但找到了ARRAY

对于1），如果我在主程序中定义单个数组，则不会导致任何问题 2）ReadArrFromFile的相同功能在主程序

上正常工作

我正在使用代码集RAD delphi 2007＆amp; windows vista。

 unit UbinFiles;

interface

type
    TBinFiles = Class
      private
        pFileName        : String;          //  File name (FILENAME.bin)
        pFileType        : string;          //  File type (of .. )
        pFileLoc         : string;          //  FileLocation path
        pMyarr           : array of single; //  array to receive / provide results
        pArrLen          : integer;         //  To define arraylength
        pFKA             : file;            //  File Known As or the internal name
        pRecsWritten     : integer;         //  # of blocks written towards file
        pRecsRead        : integer;         //  # of blocks read from file

      public
        procedure SetFname(const Value: String);
        procedure SetFtype(const Value: String);
        procedure SetFLoc(const Value: String);
        procedure SetArrLen(const Value: integer);

        constructor Create;                                                   overload;
        constructor Create(Fname : String);                                   overload;
        constructor Create(Fname : String ; Ftype : string);                  overload;
        constructor Create(Fname : String ; Ftype : string ; FLoc : String);  overload ;

        procedure OpenMyFile;
        procedure CloseMyFile;
        procedure Write2MyFile(Myarr : array of single );
        procedure ReadFromMyFile;
        function CheckBackSpace(MyPath : string) : string ;
        procedure TSTreadAnArray(Myarr : array of single);
//---first problem 
        function ReadArrFromFile : array of single;

      published

        property Fname : String read pFileName write SetFname;
        property Ftype : String read pFileType write SetFtype;
        property FLoc : String read pFileLoc write SetFLoc;
        property ArrLen : integer read pArrLen write SetArrLen;

end;

implementation

uses
    Dialogs, SysUtils, StrUtils;   // controls required for this class
//
//---Constructors-----------------------------
//
constructor TBinFiles.Create;               // void constructor
 begin
   inherited;
    self.pFileName       := 'MyBinary';
    self.pFileType       := '';
    self.pFileLoc        := 'C:\Users\';
    self.pRecsWritten    := 0;
    self.pRecsRead       := 0;
 end;

 constructor TBinFiles.Create(Fname: String); // contructor + Fname
 begin
    self.pFileName       := Fname;
    self.pFileType       := '';
    self.pFileLoc        := 'C:\Users\';
    self.pRecsWritten    := 0;
    self.pRecsRead       := 0;
 end;

 constructor TBinFiles.Create(Fname: String ; Ftype : string); // constructor etc..
 begin
    self.pFileName       := Fname;
    self.pFileType       := Ftype;
    self.pFileLoc        := 'C:\Users\';
    self.pRecsWritten    := 0;
    self.pRecsRead       := 0;
 end;

 constructor TBinFiles.Create(Fname: String ; Ftype : string ; FLoc : string);
 begin
    self.pFileName       := Fname;
    self.pFileType       := Ftype;
    self.pFileLoc        := CheckBackSpace(FLoc);
    self.pRecsWritten    := 0;
    self.pRecsRead       := 0;
 end;
//
//----setters---------------------------------------
//
procedure TBinFiles.SetFname(const Value: String);  // pFileName
 begin
   pFileName         := Value;
 end;

 procedure TBinFiles.SetFtype(const Value: String); // pFileType
 begin
   pFileType         := Value;
 end;

 procedure TBinFiles.SetFLoc(const Value: String);  // pFileLoc
 begin
   pFileLoc         := Value;
 end;

 procedure TBinFiles.SetArrLen(const Value: integer);
 begin
   pArrLen         := Value;
 end;


 //
 //---general functions / procs----
 //
procedure Tbinfiles.OpenMyFile;
begin
  try
    AssignFile(self.pFKA, self.pFileLoc + self.pFileName +'.bin');
    ReWrite(self.pFKA);
  except
    on E : Exception do
      begin
        ShowMessage(E.ClassName+' error raised, with message : '+E.Message);
      end;
  End;
end;

procedure Tbinfiles.CloseMyFile;
begin
    CloseFile(self.pFKA);
End;

procedure Tbinfiles.Write2MyFile(Myarr : array of single );
begin
    BlockWrite(self.pFKA, Myarr, 1,self.pRecsWritten);
End;

procedure Tbinfiles.ReadFromMyFile;
begin
    BlockRead(self.pFKA, self.pMyarr, 1,self.pRecsread);
End;

//------second problem----------------------------------------------<<<<<< doesn't work 

function Tbinfiles.ReadArrFromFile : array of single  ;
begin
    BlockRead(self.pFKA, self.pMyarr, 1,self.pRecsread);
End;

function Tbinfiles.CheckBackSpace(MyPath : string) : string ;
begin
  if AnsiRightStr(MyPath, 1) = '\'
  then Result := MyPath
  else Result := MyPath + '\'
  ;
end;

procedure Tbinfiles.TSTreadAnArray(Myarr : array of single );
var i:integer;
begin
  for i := 0 to high(Myarr) do
    begin
      showmessage('Element ' + intToStr(i)+ floatToStr(MyArr[i]) );
    end;
end;

end.

Answer 1

您不能将数组作为属性，但可以使用数组属性：

TMyObject = class
private
    function GetSingleArray(aIndex: Integer): Single;
    procedure SetSingleArray(aIndex: Integer; const Value: Single);
    function GetSingleArrayCount: Integer;
    procedure SetSingleArrayCount(const Value: Integer);
  public
    property SingleArray[aIndex: Integer]: Single read GetSingleArray write SetSingleArray;
    //returns or sets the length of the single array
    property SingleArrayCount: Integer read GetSingleArrayCount write SetSingleArrayCount;
end;

Answer 2

您可以使用命名的类型 - 从单元TSingleDynArray尝试Types。但是，使用数组属性（请参阅The_Fox's answer）可能更合适。

Answer 3

1）首先声明数组类型..

type
  TpMyarr = array of single;

...而且你可以做到：

function ReadArrFromFile : TpMyarr;

2）在写入dinamic数组之前先调用SetLength。

3）没有必要使用'自我'。在你的程序中！

4）而不是BlockRead / BlockWrite使用TFileStream delphi类。

如何在类中创建单个动态数组作为属性

3 个答案: