написал вот так
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
ComboBox1.Items.AddObject('I квартал 2008',TObject(4063,00));
Memo2.Text := IntToStr(Integer(ComboBox1.Items.Objects[ComboBox1.ItemIndex]));
end;
end.
1. Если удалить все строки в Tstring, то ничего не выбирается, показывает пустую строку, а если в Tstring ввести что либо, то при выборе идет типа копирования строки "I квартал 2008", т.е. сколько раз будешь выбирать, то с каждым разом строк I квартал 2008 становиться больше.
2. В остальном работает, в поле Edit1 подставляется то что надо.
|