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

[Rubem Nascimento da Rocha]

Tente as seguintes declarações:

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; 

  TVolRegs = array of TVolReg;
  TDsks = array of TDskReg;

  THDDReg = record
    countDsk : Integer;
    Dsk : TDsks;
    CountVol : Integer;
    Vol : TVolRegs;
  end;


Sds.

________________________________
To: delphi-br@yahoogrupos.com.br
From: [EMAIL PROTECTED]
Date: Tue, 19 Aug 2008 14:23:13 -0300
Subject: [delphi-br] ARRAY OF RECORD dentro de outro RECORD tem jeito ?


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]








_________________________________________________________________
Receba GRÁTIS as mensagens do Messenger no seu celular quando você estiver 
offline. Conheça  o MSN Mobile!
http://mobile.live.com/signup/signup2.aspx?lc=pt-br