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