O nome é Rubem! Sds.
________________________________ To: delphi-br@yahoogrupos.com.br From: [EMAIL PROTECTED] Date: Tue, 19 Aug 2008 14:49:39 -0300 Subject: Re: [delphi-br] ARRAY OF RECORD dentro de outro RECORD tem jeito ? Vlw Rubens, mas acho que agora vai...... qualquer coisa eu tento este exemplo ou parto pra 'TList' ou a sua outra dica 'TCollection'. []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: Rubem Nascimento da Rocha Sent: Tuesday, August 19, 2008 2:29 PM To: delphi-br@yahoogrupos.com.br Subject: RE: [delphi-br] ARRAY OF RECORD dentro de outro RECORD tem jeito ? 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 ?????????? _________________________________________________________________ Cansado de espaço para só 50 fotos? Conheça o Spaces, o site de relacionamentos com até 6,000 fotos! http://www.amigosdomessenger.com.br