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 ?????????? > > 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] > > > -- José Mário Silva Guedes Analista Programador Delphi http://pgviavel.blogspot.com/ [As partes desta mensagem que não continham texto foram removidas]
