{
Return data string as real or default value DefVal.
}
function rValDef(Data:String;DefVal:Real):Real;
var r:Real;
begin
 r:=rVal(Data);
 if IsNan(r) or IsInf(r) then rValDef:=DefVal else rValDef:=r;
end;
