Uê, Eu já fiz muitas funções e prodedimentos aqui aonde eu passava o array como parametro sem que fosse tipo. A questão é que o Array será sempre passado por referencia. Nunca por valor.
Eu vou até confirmar isto aqui num projeto que mexi ano passado. []s Walter Alves Chagas Junior Projeto e desenvolvimento de sistemas Telemont Engenharia de telecomunicações S/A Belo Horizonte - MG - Brasil [EMAIL PROTECTED] Fone: (31) 3389-8217 Fax: (31) 3389-8215 -----Mensagem original----- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Ezequiel Enviada em: sexta-feira, 9 de março de 2007 14:23 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Trabalhando com Array em Procedure/Function O Delphi não aceita arrays como parametro. O que vc pode fazer é criar um tipo de dado que contenha um array e aí sim passar como parametro. Ex: TMatriz = record linhas: array of String; end; procedure Atualiza(var mat: TMatriz); []'s Ezequiel Joao Morais escreveu: > > > Wilian Domingues - Analista de wrote: > > > Gostaria de saber se é possível passar como parâmetro para uma > procedure/function um array. > > > > Por > > exemplo, numa aplicação onde vários registros são inseridos/atualizados > > de uma vez, gostaria de saber se poderia enviar um array como parâmetro > > para uma procedure/function, evitando chamar procedure/function para > > cada registro, desta forma manipulando o array dentro da > > procedure/function. > > O melhor é usar open array. > > procedure Atualiza(AClientes: array of TCliente); > > -- > Joao Morais > > > Mensagens neste tópico > <http://br.groups.yahoo.com/group/delphi-br/message/168471;_ylc=X3oDMTM4aWFubjVjBF9TAzk3NDkwNDM3BGdycElkAzEwNTg3NzgEZ3Jwc3BJZAMyMTM3MTExMjY0BG1zZ0lkAzE2ODQ5OQRzZWMDZnRyBHNsawN2dHBjBHN0aW1lAzExNzM0NTgyMTAEdHBjSWQDMTY4NDcx> > > (3) Responder (através da web) > <http://br.groups.yahoo.com/group/delphi-br/post;_ylc=X3oDMTJycXJza245BF9TAzk3NDkwNDM3BGdycElkAzEwNTg3NzgEZ3Jwc3BJZAMyMTM3MTExMjY0BG1zZ0lkAzE2ODQ5OQRzZWMDZnRyBHNsawNycGx5BHN0aW1lAzExNzM0NTgyMTA-?act=reply&messageNum=168499> > > | Adicionar um novo tópico > <http://br.groups.yahoo.com/group/delphi-br/post;_ylc=X3oDMTJlMGwwZDk2BF9TAzk3NDkwNDM3BGdycElkAzEwNTg3NzgEZ3Jwc3BJZAMyMTM3MTExMjY0BHNlYwNmdHIEc2xrA250cGMEc3RpbWUDMTE3MzQ1ODIxMA--> > > > Mensagens > <http://br.groups.yahoo.com/group/delphi-br/messages;_ylc=X3oDMTJlN3RqN25rBF9TAzk3NDkwNDM3BGdycElkAzEwNTg3NzgEZ3Jwc3BJZAMyMTM3MTExMjY0BHNlYwNmdHIEc2xrA21zZ3MEc3RpbWUDMTE3MzQ1ODIxMA--> > > | Arquivos > <http://br.groups.yahoo.com/group/delphi-br/files;_ylc=X3oDMTJmYnZlMDlmBF9TAzk3NDkwNDM3BGdycElkAzEwNTg3NzgEZ3Jwc3BJZAMyMTM3MTExMjY0BHNlYwNmdHIEc2xrA2ZpbGVzBHN0aW1lAzExNzM0NTgyMTA-> > > | Fotos > <http://br.groups.yahoo.com/group/delphi-br/photos;_ylc=X3oDMTJlb2pzdWVsBF9TAzk3NDkwNDM3BGdycElkAzEwNTg3NzgEZ3Jwc3BJZAMyMTM3MTExMjY0BHNlYwNmdHIEc2xrA3Bob3QEc3RpbWUDMTE3MzQ1ODIxMA--> > > | Links > <http://br.groups.yahoo.com/group/delphi-br/links;_ylc=X3oDMTJmZWJlOWQ1BF9TAzk3NDkwNDM3BGdycElkAzEwNTg3NzgEZ3Jwc3BJZAMyMTM3MTExMjY0BHNlYwNmdHIEc2xrA2xpbmtzBHN0aW1lAzExNzM0NTgyMTA-> > > | Banco de dados > <http://br.groups.yahoo.com/group/delphi-br/database;_ylc=X3oDMTJjM2pra2Y2BF9TAzk3NDkwNDM3BGdycElkAzEwNTg3NzgEZ3Jwc3BJZAMyMTM3MTExMjY0BHNlYwNmdHIEc2xrA2RiBHN0aW1lAzExNzM0NTgyMTA-> > > > -- -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Links do Yahoo! Grupos