| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

TStrings - уничтожение лишних строк. [D7, XP]

guest__ ©   (2005-12-09 19:14:00) 

for i:=0 to f.Count-1 do
 begin
 if f.strings[i]='*' then
 f.Delete(i);
 end;
Эмм..как это можно реализовать другим способом или что подставить вместо коунт дабы не вылазила ошибка о том что новер строки не найдет, т.к. ее уже удалили...=)

---

begin...end   (2005-12-09 19:16:00) [1]

for i := f.count - 1 downto 0 do ...

---

Наверх