Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.18;
Скачать: [xml.tar.bz2];




Вниз

Как 


чайничек   (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. Спасибо всем!




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.18;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.017 c
3-57001           jenbond               2002-01-24 09:48  2002.02.18  
защита


7-57236           Apus                  2001-11-14 09:51  2002.02.18  
Cd-rom


7-57230           guliver               2001-11-16 07:25  2002.02.18  
Как написать Virtual CD?


1-57114           Delphir               2002-02-02 11:45  2002.02.18  
Cloning ListView and ComboBox


1-57092           Юрий М.               2002-02-02 06:33  2002.02.18  
Работа с LPT портом