无效的浮点运算Delphi

Question

我在Delphi程序中遇到了一个问题，我正在编写。问题是这段代码：

type
  TRobot = class(TObject)
  private
  public
    fAcceso: Boolean;
    fOra: TTime;
    fCode: Integer;
    mex: string;
    constructor Create;
  end;

// ...

myrobot.mex:= ('Acceso: '+  BoolToStr(myrobot.fAcceso) + 
               ',Tempo:' +  TimeToStr(myrobot.fOra) + 
               ',Codice:' + IntToStr(myrobot.fCode));  
memo.Lines.add(myrobot.mex);

正好与TimeToStr(myrobot.fOra) 出现问题是

  

＆＃34;无效的浮点运算＆＃34;。

有人能帮帮我吗？

Answer 1

此错误消息表示除以零，负值的平方根和类似问题。使用myrobot.fOra或格式设置看起来有问题。

在此行设置断点并检查fOra值。如果它看起来不错，请使用F7进入TimeToStr（是的，您可以调试系统库例程......也许您需要安装VCL源和/或设置项目的'use debug dcu（s）'选项） 。使用它，您将能够找到确切的错误位置并检查错误。