Получить текущее выбранное значение 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