Obtener valor Combobox seleccionado en ese momento y lo utilizan como variables

Question

Mi pregunta es sobre Delphi 7. que necesito para obtener el valor ComboBox1 actualmente seleccionado para utilizarlo como variable de coma flotante en mi código:

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

Gracias!

Answer 1

No estoy seguro si la TryStrToFloat ya está en Delphi 7, pero si es así me gustaría hacerlo de esta manera.

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;