Buscar por:

Retornar mais de 1 valor numa function

Código

// 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;