voce pode até fazer uma procedure. mas passe os dois valores como parâmetros por referencia nela.
procedure IncreaseValues(var aValue1, aValue2: integer); begin aValue1 := aValue1 * 2; aValue2 := aValue1 + aValue2; end; var iValue, iSum: integer begin iValue := 0; iSum := 0; IncreaseValues(iValue,iSum); ShowMessage(IntToStr(iValue)) ShowMessage(IntToStr(iSum)) end; preste atenção na declaração dos parâmetros na procedure, você os declara como var: var aValue1, aValue2: integer []s Walter Alves Chagas Junior Projeto e desenvolvimento Telemont Engenharia de telecomunicações [EMAIL PROTECTED] Fone: (31) 3389-8215 Fax: (31) 3389-8200 > -----Mensagem original----- > De: tiago_econtabil [mailto:[EMAIL PROTECTED] > Enviada em: sexta-feira, 11 de março de 2005 15:30 > Para: delphi-br@yahoogrupos.com.br > Assunto: [delphi-br] Function retornando 2 valores > > > > > Pessoal, tem como fazer uma function retornar dois valores? Como eu > declaro? Quero q retorne um valor String e um valor integer. Tem > como? > > > > > > -- > <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> > > Para ver as mensagens antigas, acesse: > http://br.groups.yahoo.com/group/delphi-br/messages > > Para falar com o moderador, envie um e-mail para: > [EMAIL PROTECTED] ou [EMAIL PROTECTED] > > Links do Yahoo! Grupos > > > > > > > > [As partes desta mensagem que não continham texto foram removidas] -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html