Delphi dicas

Retornar mais de 1 valor numa function

// Primeiramente teremos que declarar um tipo.



type TExDelphi = Record

        Serie  : String [4];

        Numero : Integer;

end;







// Depois declaramos em private, ou public se for ser chamada

// em outra Unit.



private



function  BuscaSerNum (Ref : Integer ): TExDelphi;

// a função tem que ser do tipo  criamos



Implementation



function BuscaOrca (RefTransa : Integer ) : TExDelphi;

begin

        Result.Serie := '';

        Result.Numero := 0;



        {depois é só fazer a busca na tabela ou o cálculo, se for

        necessário,  e retornar na variáveis do tipo criado }



        Result.Numero := NNNNN  // Valor do Número da Nota

        Result.Serie     := SSS     // Valor da Série da Nota

end;

por : William S. Campana