#pas
function THIDataToFile.dtSingle;
var c:single;
begin
   if val = nil then
    begin
      st.read(c,4);
      Share.dtReal(Result,c);
    end
   else
    begin
      c := ToReal(val^);
      st.Write(c,4);
    end;
end;