獲取當前選定的組合框的值，並把它作爲變量

Question

我的問題是關於德爾福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;