Tiago/Rubens,
Tb é possivel usando um record para isto.
Veja como :
unit BLABLABLA;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs, etc, etc, etc;
type
TRetorno = Record
Valor : Currency;
Descricao : String;
Existe : Boolean;
Quantidade : Integer;
end;
TForm1 = class(TForm)
etc etc etc
Function SeiLaoQue(parametro1 : string ) : TRetorno;
Var
MeuRetorno : TRetorno;
Begin
With MeuRetorno do
Begin
Valor := 10.25;
Descricao :='Teste com Record';
Existe :=False;
Quantidade :=1;
end;
Result MeuRetorno;
End;
[ ]´s
Moacir
Rubem Rocha escreveu:
>Isto é uma regra fundamental em programação, seja ela feita na linguagem que
>for. Toda função SEMPRE retorna um único valor. Se quiser que retorne mais de
>um valor, das duas uma:
>
>1) Crie uma procedure contendo parâmetros por referência para que eles
>retornem os valores que vc quer, ou;
>2) Cria uma função que retorne UM vetor com os valores que vc quer.
>
>[]s
>
>-----Mensagem original-----
>De: tiago_econtabil [mailto:[EMAIL PROTECTED]
>Enviada em: sexta-feira, 11 de março de 2005 14: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?
>
>
>
>
>
>
>
--
No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.308 / Virus Database: 266.7.1 - Release Date: 9/3/2005
--
<<<<< 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
