Соберем все файлы, кроме папок из определенной директории на FTP сервере при помощи компонента idFTP //Recursive listing of files… procedure TVisualFrame_PSFTPClient.ListAllFilesCore(dir:string); var DL: TStringList; i: Integer; Читать на сайте автора.
Как организовать удобную структуру для хранения и переноса своих программ и компонентов? Пока не нашел ответа на этот вопрос. Это короткая заметка об использовании компонентов Читать на сайте автора.
Часто встречается множество булевых параметров, которые нужно хранить в базе. Что-то существует или не существует. Что-то true или false. И когда таких параметров несколько десятков Читать на сайте автора.
Простая проверка возможности прочитать файл. //True – файл открыт для чтения. Иначе – False. function IsFileOkToRead(const aFileName : String; var EMessage:string) : Boolean; var F:TFileStream; begin Result:=false; Читать на сайте автора.
Данный пост является развитием предыдущего. Будем сортировать один TStringList -другие же приводить в соответствие с переставленными элементами. SLToSort SLToSort BeforeSort AfterSort 0 1 0 3 1 Читать на сайте автора.
Что делаем? Есть у нас некоторый TStringList, скажем SLToSort:TStringlist. Нужно его отсортировать – задача элементарная, пишем компараторы для наших данных, включаем CustomSort и всё готово. Читать на сайте автора.