File>new>VCM Froms Application -Delphi for win32工程
新建工程实现一个计算的功能，有3个文本框分别代表：货款单价，数量和应付款，一个BUTTON（计算）
在BUTTON的Onclick事件中
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit3.Text=FloattoStr(StrtoFloat(Edit1.Text)*StrtoInt(Edit2.Text));
end;
end.
但在编译的时候报错
program Project1;
uses
Forms,
Unit1 in 'Unit1.pas' {Form1};//（这行为红色）[Fatal Error] Project1.dpr(5): F2063 Could
not compile used unit 'SysConst.pas'
{$R *.res}
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.

[code delphi]
Edit3.Text := FloattoStr(StrtoFloat(Edit1.Text)*StrtoInt(Edit2.Text));
[/code]

是你的表达式写错了。应该是
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit3.Text:=FloattoStr(StrtoFloat(Edit1.Text)*Strtofloat(inttostr(strtoint(Edit2.Text))));
end;
end.
就可以了。

------
断断续续的学了几年，还是一个初学者，永远支持Delphi !

谢谢啊~~我去试一下啊~~小弟弟刚开始学,有点毛啊~~再次感谢你

客气了。大家都是初学者，，别忘记给分哦

------
断断续续的学了几年，还是一个初学者，永远支持Delphi !

長官：

這訊息是告訴您，您的程式 Unit1.pas 有 uses (參照) Delphi 內建的一隻程式 SysConst.pas (位於：c:\program files\borland\delphi7\source\rtl\sys\sysconst.pas)，而這隻程式 SysConst.dcu 壞了，你可以將他從 Uses 中移除，或是重新將他加入程式專案中執行 Build All。