Eu, particularmente, usaria TCollection e TCollectionItem. Mas, enfim ...
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:28:35 -0300
Subject: Re: [delphi-br] ARRAY OF RECORD dentro de outro RECORD tem jeito ?
Creio que falte uma instrução parecida com esta:
SetLength( hdd.Dsk, 2 );
2008/8/19 Luiz ESCobar <[EMAIL PROTECTED]>
> 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 ??????????
_________________________________________________________________
Conheça o Windows Live Spaces, a rede de relacionamentos do Messenger!
http://www.amigosdomessenger.com.br/
