Retornar mais de um valor na mesma função

Delphi

14/12/2006

Pessoal

Existe uma forma de retornar mais de um valor na mesma função ??

Estou fazendo assim:

if iRet = 0 then result := ´´
else
begin
result := SqlBuscaCad.FieldByName(´NOM_CID´).AsString;
result := SqlBuscaCad.FieldByName(´NOM_EST´).AsString;
result := SqlBuscaCad.FieldByName(´NOM_REG´).AsString;
end;

Quero retornar esses tres valores mas estou um fazendo um em cada linha, mas tem como retornar todos fazendo somente com um result ??

Aguardo retorno

Rogério


Rogeranalista

Rogeranalista

Curtidas 0

Respostas

Macario

Macario

14/12/2006

Ola.

Faça um array para o retorno da função.


type

  TMeuArray : Array[1..3] of string;
{....}


function MinhaFunction : TMeuArray;
begin
 {...}
end;


[]´s


GOSTEI 0
POSTAR