|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Удаление повторяющихся символов в ComboBBox
Здравствуйте подскажите пожалуйста как в combobox е удалить повторяющиеся символы
У меня в combobox записывается строки из СтринГрида и получается, что то типа Промрегион Авиа-Техавто Дельта Авиа-Техавто Промрегион Сонна Сонна Дельта А нужно получить , Промрегион Авиа-Техавто Сонна Дельта И еще вопрос, может кто знет, как записать в Экзеле в последнюю незаполненную строчку, |
#2
|
|||
|
|||
что бы не удалять повторяющиеся слова, нужно их не записывать, делай так:
Код:
if ComboBox1.Items.IndexOf(тут_текст) = -1 then ComboBox1.Items.Add(тут_текст); взялся из неоткуда, ничего не прошу, помогаю просто так ICQ: 593977748 - стучать в случае КРАЙНЕЙ необходимости, ну, или если вы со Ставрополя |
#3
|
|||
|
|||
Блин как просто, то спасибо, целый день сидел в массивы загонял и форматировал, а в талице больше 500 строк, А на счет екзеля может кто подскажет..я в экзель сохраняю построчно, что бы знать в какую строчку записать на данный момент использую просто счетчик, не ужели нет функции которая определяет конец записанных строк в екзеле
|
#4
|
|||
|
|||
вам нужно определить конец таблицы в Excel? если да, то:
Код:
var e_app: Variant; begin e_app := CreateOleObject('Excel.Application'); e_app.WorkBooks.Open('test.xls'); rowcount := e_app.ActiveSheet.UsedRange.Rows.Count; colcount := e_app.ActiveSheet.UsedRange.Columns.Count; e_app.Quit; end; взялся из неоткуда, ничего не прошу, помогаю просто так ICQ: 593977748 - стучать в случае КРАЙНЕЙ необходимости, ну, или если вы со Ставрополя Последний раз редактировалось Assistant, 31.05.2011 в 18:33. |
#5
|
|||
|
|||
подскажите пожалуйста,
почему у меня Sheets не работает, при выборе активного листа var e_app: Variant; begin e_app := CreateOleObject('Excel.Application'); e_app.WorkBooks.Open('D:\программа\фаил.xls'); e_app.WorkBooks.WorkSheets.Item['3'].Name; Edit1.Text := e_app.ActiveSheet.UsedRange.Rows.Count; Edit2.Text := e_app.ActiveSheet.UsedRange.Columns.Count+1; e_app.Quit; end; |
#6
|
|||
|
|||
Код:
e_app.WorkBooks[1].WorkSheets[3].Select; // возможно и 2 или 4, точно не помню Код:
e_app.WorkBooks.WorkSheets.Item['3'].Name; взялся из неоткуда, ничего не прошу, помогаю просто так ICQ: 593977748 - стучать в случае КРАЙНЕЙ необходимости, ну, или если вы со Ставрополя Последний раз редактировалось Assistant, 01.06.2011 в 14:00. |