Как

← →
чайничек (2002-02-03 13:07) [0]

Выручайте дорогие мои. Замаялся. Надо из Combo и Edit внести в один Edit индексы списка, чтобы сформировать один код. Заранее благодарю.

← →
Petrovich (2002-02-03 16:09) [1]

Наверное типа этого . Пищется для каждого ComboBox
procedure TF_New_Ent.ComboBox1Click(Sender: TObject);
begin
if ComboBox1.Text="итем1" Edit1.text:=Edit1.text:+"1;";
if ComboBox1.Text="итем2" Edit1.text:=Edit1.text:+"2;";
и т.д.

← →
Song (2002-02-03 16:33) [2]

Edit1.Text:=StrToInt(ComboBox1.ItemIndex);

ЗЫ: Это если по порядку

← →
aus (2002-02-03 16:41) [3]

мммда.

← →
чайничек (2002-02-03 17:32) [4]

Увы. На предложенное Songом Delphi-6 "запел" до боли знакомую песнь "incompotable Types "String" и "Integer". А на предложенное Petrovichem вообще, кроме этого же, начал "материться", дескать оператор не подходит. ???

← →
Petrovich (2002-02-03 17:40) [5]

Наверное из-за then

procedure TF_New_Ent.ComboBox1Click(Sender: TObject);
begin
if ComboBox1.Text="итем1" then Edit1.text:=Edit1.text:+"1;";
if ComboBox1.Text="итем2" then Edit1.text:=Edit1.text:+"2;";
end;

← →
чайничек (2002-02-03 17:50) [6]

Братцы! Я уже чего-то начинаю "дотумкивать"! Нет не из-за then , конечно, но пошло предложенное Songom, только конечно не StrToInt, а IntToStr. Спасибо всем!

Как Найти похожие ветки