[Resolvido] Funcao retornar + de 1 variavel

[Marcelo_Ribeiro 0]

E aí. fiz uma funcao.

criei 3 variaveis precisaria q a funcao retornasse essas 3 variaveis.

 

aí, pensava (se der) em fazer assim (algo do tipo):

 

variavel1 = funcao.var1

variavel2 = funcao.var2

variavel3 = funcao.var3

 

as variaveisX foram criadas no form, e as varX sao as criadas na funcao

 

tem como fazer isso?

 

abs

[Tico_Beer 0]

procedure CarregarVariaveis(var Var1: Integer, var Var2: Integer, var Var3: Integer);
begin
  Var1 := 0;
  Var2 := 1;
  Var3 := 2;
end;

E você chama:

 

...
var
  Variavel1,Variavel2,Variavel3: Integer;
begin
  CarregarVariaveis(Variavel1,Variavel2,Variavel3);
end;

Espero que eu tenha ajudado.

[Marcelo_Ribeiro 0]

deu certo.

 

vlw