[delphi-br] ARRAY OF RECORD dentro de outro RECORD tem jeito ?

Tue, 19 Aug 2008 10:23:26 -0700 

Tentei fazer algo assim, porem to com uma dificuldade, parece não ser valido 
deste modo:

Type
TDskReg = record  
          Serial  : String;
          TypeDsk : string;
          end;
TVolReg = record
          Letter  : String[1];
          Name    : String;
          Serial  : String;
          NameLen : Integer;
          SysName : string;
          Size    : Int64;
          Free    : Int64;
          Used    : Int64;
          end;                 
THDDReg = record
          countDsk : Integer;
          Dsk         : array of TDskReg;
          CountVol  : Integer;
          Vol          : array of TVolReg;         
          end;
Var
   HDD : THDDReg;

Begin
    SetLength( hdd, 4 )
     HDD.countDsk := 4;
     HDD.Dsk[1].serial := serial;
     HDD.Dsk[2].TypeDsk := tDisk;
     bla bla bla....
end;

ALLguem tem alguma sugestão ??????????


Luiz Escobar - Analista/Desenvolvedor:
WEB - HTML/JavaScript/PHP/MySQL 
WINDOWS - Delphi/ASSEMBLY/MySQL/xBase
SERVIDORES - CNA IntraNetWare4.11, LINUX-(RedHat9/Suse11), Windows 2K/XP
HARBOUR 
--------------------------------------------------------------------------
Borland C++ 5.5.1 (32 bit)
Harbour 1.0.0 Intl. (Rev. 9029) 
xHarbour Compile build 1.1.0 (Simplex)
Harbour MiniGUI 1.5 Extended Edition (Build 54) - 2008.07.30
-------------------------------------------------------------------------------------------

[As partes desta mensagem que não continham texto foram removidas]

Responder a