Форум: "Основная";
Поиск по всему сайту: 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.013 c
14-57213          Undert                2001-12-29 15:29  2002.02.18  
Windows XP


6-57176           Victor                2001-11-30 12:42  2002.02.18  
Socket


3-57032           kserg@ukr.net         2002-01-24 17:16  2002.02.18  
DBGrid - как запретить


7-57223           Русский               2001-11-12 14:23  2002.02.18  
Компонент ButtonNew!


6-57158           serg2000              2001-11-25 11:41  2002.02.18  
Глупый вопрос