Ottenere valore Combobox attualmente selezionato e usarlo come variabile

Question

La mia domanda riguarda Delphi 7. ho bisogno di ottenere il valore ComboBox1 attualmente selezionata per utilizzarlo come Floating variabile punto nel mio codice:

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

Grazie!

Answer 1

Non so se la TryStrToFloat è già in Delphi 7, ma se sì, lo farei in questo modo.

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;