Соберем все файлы, кроме папок из определенной директории на 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 и всё готово.