Задача — перемещать строки в TStrings.

(читать всё…)

удалить дубликаты вместе с оригиналом из Tstrings, если первые 4 символа равны 4 символам других строк, пробовал такой код, но ошибка list index out of bounds 0, причем если написать условие

if t = t[q] then t.delete(q);

то все нормально. Главное еще оптимизировать код под работу через F:textfile; (главное чтобы работало быстро и не через оперативную память)

var T:Tstringlist;
i,q:integer;
...
for I := t.Count-1 downto 0 do
for q := i-1 downto 0 do
if Copy(t,1,4) = Copy(t[q],1,4) then t.Delete(q);

(читать всё…)

найти все jpg файлы в каталоге и отправить их в переменную типа TStrings. (читать всё…)

Необходимо из xls файла сделать xml.Сам xls представляет собой довольно большую таблицу,расписание занятий.Пробовал обращаться к таблице через Variant,но дело в том,что программа должна быть универсальной для любого количества столбцов и строк,а также любой разметки.Поэтому пришлось сохранять как Текстовый документ(с разделителем табуляцией).Подскажите как мне вытащить данные и записать их в группы,по столбцам. (читать всё…)