小编Rea*_*itt的帖子

我有Delphi应用程序,我添加了服务,我如何通过主窗体按钮安装和启动和停止它？

我可以在单独的项目服务中完成它,但我的目标是使服务接口控制它.

谢谢

我有Canvas DrawText的问题,我从我想要显示的文本中得到了前4个字符.

例如,我有文本'离线'它将显示'offl'.

这段代码有什么不对.

代码

procedure TStatusCombo.Paint ;
var DrawRect : TRect ;
    StatusColor : TColor ;
    iTextWidth : Integer ;
    r : TRect ;
begin
DrawRect := ClientRect ;

//colors
Canvas.Brush.Style := bsClear ; //transparent background
Canvas.Brush.Color := Tcolor($4D4D4D) ;
Canvas.Pen.Color :=  Tcolor($4D4D4D)   ;

Canvas.RoundRect(DrawRect.Left , DrawRect.Top ,
            DrawRect.Right , DrawRect.Bottom , 15, 15);

//Drawing
//SetRect(DrawRect, DrawRect.Left+3, DrawRect.Top+3, DrawRect.Right-3, DrawRect.Bottom-3);

case ChatStatus of
  sNormal: StatusColor  :=   TColor($00FF78) ;
  sOnline: StatusColor  :=   TColor($00FF78) ;
  sBusy: StatusColor  :=   TColor($00FF78) ;
  sAway: …

在Delphi 5中,当将两个类型的double和一个正值以及另一个负值相同的值相加时,我会遇到奇怪的问题.

例如

dbv = 50071763.721
crv = -50071763.721

当两个值相加时结果应为0但是我得到了一些像0.0000000074505805969这样的结果

我在excel中得到了总和我得到0结果.