Uniendo mis mensajes anteriores....
Código Delphi [-]
uses qrexpr,QRCTRLS;
var x:tqrevresult;
valor:Variant;
begin
case x.Kind of
resInt : valor := x.intResult;
resDouble : valor := x.dblResult;
resString : valor := x.strResult;
resBool : valor := x.booResult;
else
valor := Unassigned;
end;
end;
Saludos
__________________
Si usted entendió mi comentario, contácteme y gustosamente,
se lo volveré a explicar hasta que no lo entienda, Gracias.
|