Realmente acho que preciso toma um CAFÉ.......aparentemente compilou... É que tava esquecendo de colocar o '[x]' Não era nem o SetLength..... pois errei na transcrição para o forum...
tipo tava fazendo assim: HDD.Dsk.Serial := 'bla'; E o certo (pelo menos compilou) seria: HDD.Dsk[x].Serial := 'bla'; É que o café só sai as 15:00hs.. kkkkkkkkkkkkk vou testar vlw... []s 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 ------------------------------------------------------------------------------------------- From: José Mário Silva Guedes Sent: Tuesday, August 19, 2008 2:28 PM To: delphi-br@yahoogrupos.com.br 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 ?????????? > > 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] [As partes desta mensagem que não continham texto foram removidas]
