functiones que devuleve un record
 

buenas noches

declaro este registro

Código Delphi [-]
type
  Tretorno = record
    _Dato  : string;
    _Valor : Double;
  end;

lo declaro en una funcion como retorno

Código Delphi [-]
function _CalcularCaloria(Alias: TDataSource; _Plato, _Contrato, _Tipo: string): Tretorno;
var _Calorias : double;
..
..
 with _result do
      begin
        _dato := 'Calculo 1';
        _valor := _Calorias;
      end;

invoco a la funcion

Código Delphi [-]
variable := _CalcularCaloria(dsqryCalculoCaloria, edtCodigo.text, '', 'G')

como hago para que la funcion me devuelva _dato y _Valor en VARIABLE ???


no se si se logra entender

Hola


Si "Variable" es de tipo TRetorno no veo cual es el problema

Código Delphi [-]
variable := _CalcularCaloria(dsqryCalculoCaloria, edtCodigo.text, '', 'G');
Showmessage(Variable._Dato); //Muestra Dato
Showmessage(Floattostr(Variable._Valor));//Muestra valor

Bueno no se si entendi bien. En tal caso podrias replantear tu duda.

Saludos

ayer investigando un poco mas, descubrí que así era.


ahora la pregunta del millon es...

que pasa si tengo que devolver una lista de registros

el record también trae la lista? o tengo que crear un array de Tretorno ?

Correcto.
Puedes utilizar un array (o un TArray).
En ese caso yo prefiero pasarlo como parámetro en lugar de como retorno de la función, porque a veces no queda claro (con el retorno) quien debe crearlo y destruirlo.

buen dato, no me habia percatado de la potencia de usar "record"
quiza porque nunca tuve la necesidad, pero me gusta como se ve y se usa.

gracias...