[Foxi_]

Здравствуйте подскажите пожалуйста как в combobox е удалить повторяющиеся символы
У меня в combobox записывается строки из СтринГрида и получается, что то типа

Промрегион
Авиа-Техавто
Дельта
Авиа-Техавто
Промрегион
Сонна
Сонна
Дельта
А нужно получить ,
Промрегион
Авиа-Техавто
Сонна
Дельта

И еще вопрос, может кто знет, как записать в Экзеле в последнюю незаполненную строчку,

[Assistant]

что бы не удалять повторяющиеся слова, нужно их не записывать, делай так:

Код:

if ComboBox1.Items.IndexOf(тут_текст) = -1 then
  ComboBox1.Items.Add(тут_текст);

при каждом добавлении слова из базы (стринггрида или что у вас там), IndexOf будет проверять, если слово уже есть, оно вернёт 0,1 и т.д., больше -1 и оно не попадёт в ComboBox1

[Foxi_]

Блин как просто, то спасибо, целый день сидел в массивы загонял и форматировал, а в талице больше 500 строк, А на счет екзеля может кто подскажет..я в экзель сохраняю построчно, что бы знать в какую строчку записать на данный момент использую просто счетчик, не ужели нет функции которая определяет конец записанных строк в екзеле

[Assistant]

вам нужно определить конец таблицы в 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;

покажет кол-во строк и столбцов на активном листе.

[Foxi_]

подскажите пожалуйста,
почему у меня 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;

[Assistant]

Код:

e_app.WorkBooks[1].WorkSheets[3].Select; // возможно и 2 или 4, точно не помню

вместо:

Код:

e_app.WorkBooks.WorkSheets.Item['3'].Name;