[[oscarac]]

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