[Elza]

как посчитать количество заполненных строк в listbox а результат вывести в edit1.
А еще вопросик, как ограничить число строк до 300, и выводить в edit2 количество пустых строк=)) Зарание спасибо!

[ART]

Код:

Edit1.text := IntToStr(Listbox1.count);

Код:

var
 i, cnt: integer;
begin
 cnt := 0;
 for i := 0 to ListBox1.count - 1 do 
  if Trim(Listbox1.items[i]) = '' then cnt := cnt + 1;
 Edit2.text := IntToStr(cnt);
end;

[Elza]

Спасибки, работает, только вот как сделать пустые строчки в конец списка не подскажешь?

[ART]

Не знаю, я не такой умный, как вначале может показаться ))

[M.A.D.M.A.N.]

Используй РегЭкспы (с) бу-го-га А вообще, такую сортировку сделать - раз плюнуть.

[Elza]

подскажите еще, как сохранять в Ini файл всё из listbox и загружать, а то пример нашла по работе с Ini, а про listbox там нету=((

[Pyro]

PHP код:

listbox.items.savetofile('1.txt')
...loadfromfile... 


но не в ini а в обычный текстовый пишет, ини для других целей какб

[Elza]

Сообщение от Pyro

PHP код:

listbox.items.savetofile('1.txt')
...loadfromfile... 


но не в ini а в обычный текстовый пишет, ини для других целей какб

Спасибо! А то я и думаю, что так глючит(добавляет лишнии строки) если с ini =)