Главная страница
    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.007 c
1-57107
Lotus
2002-02-02 13:53
2002.02.18
about TMemo


1-57081
Zuvom
2002-02-02 00:10
2002.02.18
Как проверить если дискета в дисководе?


6-57177
sh@dowww
2001-11-30 14:27
2002.02.18
Sockets


1-57043
SAlex
2002-02-04 11:57
2002.02.18
вставка таблицы в RichEdit


14-57212
Yuraz
2001-12-29 10:58
2002.02.18
EURO+ERO





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский