Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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. Спасибо всем!



Страницы: 1 вся ветка

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

Наверх





Память: 0.45 MB
Время: 0.004 c
3-57032
kserg@ukr.net
2002-01-24 17:16
2002.02.18
DBGrid - как запретить


1-57122
fag2000@ok.ru
2002-02-01 14:39
2002.02.18
А где можно найти статьи, примеры разработки COM+ серверов и клиентов?


6-57168
UnderSun
2001-11-23 16:48
2002.02.18
О выделеной линии и сокетах


14-57211
Serg!
2001-12-29 12:15
2002.02.18
Сколько может стоить?


1-57045
Санька
2002-02-02 10:52
2002.02.18
Delphi 6 и Delphi 4





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский