वर्तमान में चयनित Combobox मूल्य प्राप्त करें और चर

Question

मेरा प्रश्न डेल्फी 7. के बारे में है कि मैं अपने कोड में बिंदु चर फ्लोटिंग के रूप में उपयोग करने के लिए वर्तमान में चयनित ComboBox1 मूल्य प्राप्त करने की आवश्यकता के लिए इसका इस्तेमाल:

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

धन्यवाद!

Answer 1

सुनिश्चित नहीं हैं कि अगर TryStrToFloat डेल्फी 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;