delphi - 获取当前选择的 Combobox 值并将其用作变量

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;

Answer 2

// ItemIndex is the index of the selected item
// If no item is selected, the value of ItemIndex is -1
if (ComboBox1.ItemIndex >= 0) then
begin
  t := t + StrToFloat(ComboBox1.Items[ComboBox1.ItemIndex]);
end;

Answer 3

在 Delphi 10.2 Tokyo 我只是这样做：

[字符串] := ComboBox.Selected.Text