[実数型への変換]

それぞれの型を、実数型に変換します。

program tips0009;
{$APPTYPE CONSOLE}
uses SysUtils;
var
 a:Integer;      //整数型
 b:TDateTime;    //日付型
 c:Boolean;      //論理型
 d:String;      //文字列型
 e,f,g,h :Double;  //実数
begin
 a:=10;
 b:=now;
 c:=True;
 d:='-1.012';

 e:=a;        //整数はそのまま代入する
 f:=Double(b);    //日付はそのまま、または、Doubleでキャストする
 g:=Ord(c);     //論理型はOrd関数でキャストする
 h:=StrToFloat(d);  //文字列はStrToFloatでキャストする

 WriteLn(FloatToStr(e));
 WriteLn(DateTimeToStr(f));
 WriteLn(FloatToStr(g));
 WriteLn(FloatToStr(h));
end.

dcc32 tips0009.pas 
tips0009.exe  > tips0009.txt
pause

10
2009/05/23 22:48:49
1
-1.012