请问为什么会出现Invalid variant type conversion

Question

if  MainComm.FieldByName('begin_value')<> ''  then
       if(MainComm.FieldByName('begin_value') = -1) then
            NewItem.SubItems.Add(formatfloat('0.00',0))
       else
请问为什么执行到formatfloat的时候会出现 Invalid variant type conversion

Answer 1

Edit1.Text := FormatFloat('0.00',0)我这里没办法截图给你看呢

Answer 2

就是我用delphi用执行这个语句是没有问题的，能够正确执行。就不是这个的问题，你看下是不是上下文的问题，还有就是NewItem的问题。procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.Text := FormatFloat('0.00',0);
end;

Answer 3

试下这个if  MainComm.FieldByName('begin_value').asstring<> ''  then
       if(MainComm.FieldByName('begin_value').asinteger = -1) then
            NewItem.SubItems.Add(formatfloat('0.00',0))
       else

Answer 4

代码错误不少.FieldByName返回的是TField跟字符可不好比