AI摘要
本文介绍了如何在Delphi中使用System单元的Set8087CW函数来控制FPU（浮点运算单元）的开关。提供了两个过程，Set8087CW和Default8087CW，分别用于设置和获取FPU的控制字。文章还提供了一个示例程序，展示了如何在表单上添加单选按钮来控制FPU的开关，并在按钮点击事件中计算浮点数的乘除运算。
//FPU:浮点运算器,Floating Point Unit的简写,浮点运算单元是专门用于浮点运算的处理器,集成于CPU之内,效率高、执行快
//Set8087CW(开关FPU)
//Set8087CW($1372):开FPU,默认值
//Set8087cw($133f):闭FPU
//Procedure Set8087CW(NewCW: Word);
//Default8087CW: Word = $1332;
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text:=FloatToStr(100.123*123.456/788.88);end;
procedure TForm1.FormCreate(Sender: TObject);
begin
RadioGroup1.Items.Add('Open FPU');
RadioGroup1.Items.Add('Close FPU');
Edit2.Text:=IntToStr(System.Default8087CW);end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
System.Set8087CW($1372);end;
procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
if RadioGroup1.ItemIndex=0 then
System.Set8087CW($1372);
if RadioGroup1.ItemIndex=1 then
System.Set8087CW($133f);end;