uses System.IOUtils

Список и размер дисков

procedure TForm1.bGetDisksClick(Sender: TObject);
var SDA:TStringDynArray; i:integer;
begin
 Combobox1.Clear;
 SDA:=Tdirectory.GetLogicalDrives;
 for i := 0 to High(SDA) do 
   Combobox1.Items.Add(SDA[i]);
 Combobox1.ItemIndex:=0;
end;

//Размер диска (на примере диска С это номер 3 функции DiskSize)
//Выводим в ListBox
ListBox1.Clear; 
ListBox1.Items.Add( inttostr( DiskSize(3))+'   bytes'  ) ;

procedure TForm1.bGetDisksClick(Sender: TObject);

var SDA:TStringDynArray; i:integer;

begin

Combobox1.Clear;

SDA:=Tdirectory.GetLogicalDrives;

for i := 0 to High(SDA) do

Combobox1.Items.Add(SDA[i]);

Combobox1.ItemIndex:=0;

end;

//Размер диска (на примере диска С это номер 3 функции DiskSize)

//Выводим в ListBox

ListBox1.Clear;

ListBox1.Items.Add( inttostr( DiskSize(3))+' bytes' ) ;

Сбор сведений о каталогах и файлах

procedure TForm1.GetDirsAndFilesClick(Sender: TObject);
var SDA:TStringDynArray; i:integer;
begin
SDA:=TDirectory.GetFileSystemEntries('C:\','*.*');
ListBox1.Clear;
for i := 0 to High(SDA) do 
  ListBox1.Items.Add(SDA[i]);
end;
{Также полезные функции GetFiles и GetDirectories}

procedure TForm1.GetDirsAndFilesClick(Sender: TObject);

var SDA:TStringDynArray; i:integer;

begin

SDA:=TDirectory.GetFileSystemEntries('C:\','*.*');

ListBox1.Clear;

for i := 0 to High(SDA) do

ListBox1.Items.Add(SDA[i]);

end;

{Также полезные функции GetFiles и GetDirectories}

Проверка существования диска / директории / файла

procedure TForm1.DriveDirectoryFileExistsClick(Sender: TObject);
begin
if TPath.DriveExists('C:\') then 
  Showmessage('Drive Exists');

if TDirectory.Exists('C:\Test') then
  Showmessage('Directory Exists');

if TFile.Exists('C:\Test\test.txt') then
  Showmessage('File Exists');
end;

procedure TForm1.DriveDirectoryFileExistsClick(Sender: TObject);

begin

if TPath.DriveExists('C:\') then

Showmessage('Drive Exists');

if TDirectory.Exists('C:\Test') then

Showmessage('Directory Exists');

if TFile.Exists('C:\Test\test.txt') then

Showmessage('File Exists');

end;

Создание, удаление, копирование и перемещение

Создание директории

procedure TForm1.CreateDirClick(Sender: TObject);
begin
if not TDirectory.Exists('C:\Test\Test1') then
  Tdirectory.CreateDirectory('C:\Test\Test1');
end;

procedure TForm1.CreateDirClick(Sender: TObject);

begin

if not TDirectory.Exists('C:\Test\Test1') then

Tdirectory.CreateDirectory('C:\Test\Test1');

end;

Удаление директории

procedure TForm1.DeleteDirClick(Sender: TObject);
begin
if TDirectory.Exists('C:\Test\Test1') then
  Tdirectory.Delete('C:\Test\Test1',true);
{Если 2 параметр True, тогда папка удаляется вместе с вложенными элементами}
end;

procedure TForm1.DeleteDirClick(Sender: TObject);

begin

if TDirectory.Exists('C:\Test\Test1') then

Tdirectory.Delete('C:\Test\Test1',true);

{Если 2 параметр True, тогда папка удаляется вместе с вложенными элементами}

end;

Копирование директории

procedure TForm1.CopyDirClick(Sender: TObject);
begin
  Tdirectory.Copy('C:\Test','C:\TestCopy');
//Здесь параметры - начальная и конечная директории
end;

procedure TForm1.CopyDirClick(Sender: TObject);

begin

Tdirectory.Copy('C:\Test','C:\TestCopy');

//Здесь параметры - начальная и конечная директории

end;

Перенос директории

procedure TForm1.MoveDirClick(Sender: TObject);
begin
  Tdirectory.Move('C:\Test','C:\TestCopy1');
end;

procedure TForm1.MoveDirClick(Sender: TObject);

begin

Tdirectory.Move('C:\Test','C:\TestCopy1');

end;

Для файлов методы аналогичны, только пишем TFile.Create, Tfile.Copy, TFile.Move, TFile.Delete, в случае TFileCreatе создается файловый поток TFileStream.

Также для файлов есть метод TFile.Replace который заменяет один файл другим и создает резервную копию.

Запись в файл и чтение из файла

Запись в файл

procedure TForm1.CreateFileWriteToFileClick(Sender: TObject);
var 
  fs:TFilestream; 
  fileName:string;
  buf:integer;
begin
 Filename:='Test';
 TDirectory.CreateDirectory('C:\Test');
 if Tfile.Exists('C:\Test\'+FileName) then
   TFile.Delete('C:\Test\'+FileName);
 fs:=TFile.Create('C:\Test\'+FileName);

 try
   Buf:=application.MainForm.Left;
   fs.Write(Buf,SizeOf(Buf));
   Buf:=application.MainForm.Top;
   fs.Write(Buf,Sizeof(Buf));
 finally
   fs.Free;
 end;
end;

procedure TForm1.CreateFileWriteToFileClick(Sender: TObject);

var

fs:TFilestream;

fileName:string;

buf:integer;

begin

Filename:='Test';

TDirectory.CreateDirectory('C:\Test');

if Tfile.Exists('C:\Test\'+FileName) then

TFile.Delete('C:\Test\'+FileName);

fs:=TFile.Create('C:\Test\'+FileName);

try

Buf:=application.MainForm.Left;

fs.Write(Buf,SizeOf(Buf));

Buf:=application.MainForm.Top;

fs.Write(Buf,Sizeof(Buf));

finally

fs.Free;

end;

Чтение из файла

procedure TForm1.bLoadFromFileClick(Sender: TObject);
var 
  fs:TFileStream; 
  Buf:integer;
begin
  if TFile.Exists('C:\Test\Test') then
  begin
    fs:=Tfile.Open('C:\Test\Test',TFileMode.fmOpenOrCreate);
    try
      fs.Read(Buf,SizeOf(Buf));
      Application.MainForm.Left:=Buf;
      fs.Read(Buf,SizeOf(Buf));
      Application.MainForm.Top:=Buf;
    finally
     fs.Free;
    end;
  end;
end;

procedure TForm1.bLoadFromFileClick(Sender: TObject);

var

fs:TFileStream;

Buf:integer;

begin

if TFile.Exists('C:\Test\Test') then

begin

fs:=Tfile.Open('C:\Test\Test',TFileMode.fmOpenOrCreate);

try

fs.Read(Buf,SizeOf(Buf));

Application.MainForm.Left:=Buf;

fs.Read(Buf,SizeOf(Buf));

Application.MainForm.Top:=Buf;

finally

fs.Free;

end;

Можно работать с текстовыми файлами, а можно с “чистыми байтами”.
Для текстовых файлов есть полезные функции

ReadAllLines (const Path:string):TStringDynArray;
WriteAllLines(const Path:string; const Contents:TStringDynArray);

1 2	ReadAllLines (const Path:string):TStringDynArray; WriteAllLines(const Path:string; const Contents:TStringDynArray);

Для “байтовых”

ReadAllBytes(const Path:string):TBytes;
WriteAllBytes(const Path:string; const Contents:TStringDynArray);

1 2	ReadAllBytes(const Path:string):TBytes; WriteAllBytes(const Path:string; const Contents:TStringDynArray);

Аттрибуты файла и каталога

Чтение атрибутов файла

procedure TForm1.FileDirAttributesClick(Sender: TObject);
var 
  FA:TFileAttributes;
begin
FA:=TFile.GetAttributes('C:\Test\test');
if TFileAttribute.faHidden in FA then
  Showmessage('fa Hidden') else showmessage('Not Hidden');;
end;

procedure TForm1.FileDirAttributesClick(Sender: TObject);

var

FA:TFileAttributes;

begin

FA:=TFile.GetAttributes('C:\Test\test');

if TFileAttribute.faHidden in FA then

Showmessage('fa Hidden') else showmessage('Not Hidden');;

end;

Установка атрибутов файла

procedure TForm1.SetFileAttributesClick(Sender: TObject);
var 
  FA:TFileAttributes;
begin
  FA:=[];
  FA:=FA+[TFileAttribute.faHidden,TFileAttribute.faTemporary];
  TFile.SetAttributes('C:\Test\test',FA);
end;

procedure TForm1.SetFileAttributesClick(Sender: TObject);

var

FA:TFileAttributes;

begin

FA:=[];

FA:=FA+[TFileAttribute.faHidden,TFileAttribute.faTemporary];

TFile.SetAttributes('C:\Test\test',FA);

end;

Дата и время создания файла и каталога

Здесь полезны следующие методы (подробную справку по ним можно получить скопировав в проект имя метода, нажав на него мышкой и нажав F1)

GetCreationTime
SetCreationTime

GetLastAccessTime
SetLastAccessTime

GetLastWriteTime
SetLastWriteTime

GetCreationTime

SetCreationTime

GetLastAccessTime

SetLastAccessTime

GetLastWriteTime

SetLastWriteTime

Работа с дисками, папками, файлами. Обзор System.IOUtils

Список и размер дисков

Сбор сведений о каталогах и файлах

Проверка существования диска / директории / файла

Создание, удаление, копирование и перемещение

Запись в файл и чтение из файла

Аттрибуты файла и каталога

Дата и время создания файла и каталога

MY PROJECTS

Recent Posts

Categories