Вот еще более быстрый метод
отличается от вышеуказанного тем что не нужно ставить размер
copyfrom(_src, _src.size) если его не указывать а такое желательно делать не
если эта функция будет выполнять копирование сразу большого колличества файлов
не будет захломлять процессор подсчетом размера файла ...
Найдено 3 результата
- 08.06.2010 12:09:11
- Форум: Файловая система
- Тема: Как скопировать файл из одного места в другое?
- Ответы: 3
- Просмотры: 33612
- 08.06.2010 12:00:40
- Форум: Файловая система
- Тема: Проверить, есть ли в папке файлы?
- Ответы: 1
- Просмотры: 23829
Re: Проверить, есть ли в папке файлы?
function GetCount(dir:String):Integer;
var
// Объект поиска
F:TSearchRec;
// Счетчик найденых файлов
I:Integer;
begin
// Сбрасываем на 0 перед началом
i:=0;
// Возвращаем результат функции 0
GetCount:=i;
// Ищем файл в указанной папке по заданому расширению
if ...
var
// Объект поиска
F:TSearchRec;
// Счетчик найденых файлов
I:Integer;
begin
// Сбрасываем на 0 перед началом
i:=0;
// Возвращаем результат функции 0
GetCount:=i;
// Ищем файл в указанной папке по заданому расширению
if ...
- 07.06.2010 22:15:21
- Форум: Потрепаться
- Тема: Delphi 2011 против Lazarus
- Ответы: 8
- Просмотры: 11596
Re: Delphi 2011 против Lazarus
А я во тесли требует начальство программу под выньXP то пишу под win на Delphi а если под linux то пишу на fp Просто перебабахивать цельный проект кросскомпилировать учитоывать завязки на компоненты ууууу лучше буду дальше сидеть с двумя осями вынь и линь 
)
)