Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как

чайничек © (2002-02-03 13:07:00)
Выручайте дорогие мои. Замаялся. Надо из Combo и Edit внести в один Edit индексы списка, чтобы сформировать один код. Заранее благодарю.

чайничек (2002-02-03 17:50:00) [1]
Братцы! Я уже чего-то начинаю "дотумкивать"! Нет не из-за then , конечно, но пошло предложенное Songom, только конечно не StrToInt, а IntToStr. Спасибо всем!

Petrovich (2002-02-03 17:40:00) [2]
Наверное из-за 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:32:00) [3]
Увы. На предложенное Songом Delphi-6 "запел" до боли знакомую песнь "incompotable Types "String" и "Integer". А на предложенное Petrovichem вообще, кроме этого же, начал "материться", дескать оператор не подходит. ???

aus (2002-02-03 16:41:00) [4]
мммда.

Song (2002-02-03 16:33:00) [5]
Edit1.Text:=StrToInt(ComboBox1.ItemIndex);

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

Petrovich (2002-02-03 16:09:00) [6]
Наверное типа этого . Пищется для каждого 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;";
и т.д.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »