将DBEDIT1.field.fieldbyname('单价').asCurrency改为:
StrToFloat(DBEDIT1.Text)
—————————————————————————————————
MaximStr := '宠辱不惊,看庭前花开花落,去留无意;
毁誉由人,望天上云卷云舒,聚散任风。';
if Not Assigned(I) then
I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”等字样,删除它们';
I.Desire := '加不加分随你';
—————————————————————————————————
StrToFloat(DBEDIT1.Text)
—————————————————————————————————
MaximStr := '宠辱不惊,看庭前花开花落,去留无意;
毁誉由人,望天上云卷云舒,聚散任风。';
if Not Assigned(I) then
I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”等字样,删除它们';
I.Desire := '加不加分随你';
—————————————————————————————————
解决方案 »
- 如何用ADOQUERY1和ADOCONNECTION来做一个远程的备份
- Delphi中,串口的发送接收超时的重发机制,如何处理实现的?快帮忙呀!
- 一个服务程序判断启动的问题
- 怎样激活多个mdi窗口中的某一个?
- 画曲线
- 如何让创建的窗体在view form中不可见,如何设置,但在project manager中可见?(在线等)?
- 怎样计算负的浮点数的n次幂?
- XaudioPlayer问题
- 请教一下,cxgrid怎么知道数据显示完了
- 如何在DELPHI程序中调Windos的拨号程序?
- 求助 关于光盘系统的
- 我用的delphi6,装了teechart5.02后,decision cube就不能用了,怎么办?
将DBEDIT1.field.fieldbyname('单价').asCurrency改为:
StrToCurr(DBEDIT1.Text)
—————————————————————————————————
MaximStr := '宠辱不惊,看庭前花开花落,去留无意;
毁誉由人,望天上云卷云舒,聚散任风。';
if Not Assigned(I) then
I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”等字样,删除它们';
I.Desire := '加不加分随你';
—————————————————————————————————
—————————————————————————————————
MaximStr := '宠辱不惊,看庭前花开花落,去留无意;
毁誉由人,望天上云卷云舒,聚散任风。';
if Not Assigned(I) then
I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”等字样,删除它们';
I.Desire := '加不加分随你';
—————————————————————————————————