delphi - 获取当前选定的组合框值并将其用作变量

Question

我的问题是关于 Delphi 7 的。

我需要获取当前选定的ComboBox1值以将其用作代码中的浮点变量:

t:=t+ComboBox1. // Not sure what to write here...

谢谢!

Answer 1

不确定TryStrToFloat是否已经在 Delphi 7 中了，但如果是的话我会这样做。

procedure TForm1.ComboBox1Change(Sender: TObject);
var
  Value: Double;
begin
  if TryStrToFloat(ComboBox1.Text, Value) then
    T := T + Value
  else
    ShowMessage('You''ve entered wrong value ...');
end;