Переименование файлов
Функция RenameFile if not RenameFile('c:\2.com','c:\3.com') then ShowMessage('Ошибка переименования'); У всех вышесказанных командах параметры исходного и конечного файла имеет тип PChar. Это строковый тип с завершающимся нулем. Возможно, вы раньше слышали о таком формате строковых данных. В такую переменную можно занести строку очень большой длины. Ее размер ограничивается наличием нулевого байта в конце. Теоретически такая переменная может иметь бесконечный размер. На практике она ограничивается размерами выделяемой памяти для программы (2Гб). Преобразование обычной строковой переменной, типа String в PChar производится функцией: PChar(Строковая_переменная). При этом, для команд файловых операций возможны объединение строк. Например: procedure TForm1.Button1Click(Sender: TObject); Var InDir,OutDir:String; // объявление строковых переменных begin InDir:='c:\1\'; // каталог исходных файлов OutDir:='c:\2\'; // каталог записуемых файлов CopyFile(PChar(InDir+'1.txt'),PChar(OutDir+'1.txt'),false); CopyFile(PChar(InDir+'2.txt'),PChar(OutDir+'2.txt'),false); end; Здесь налицо операция соединения двух строковых переменных. В итоге этой процедуры будет копирование файлов c:\1\1.txt и c:\1\2.txt в каталог c:\2. Файлы копируются под теми же именами.
|
