Daily Archives: 14.11.2015

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

Posted on 14.11.2015 by Stanislav_Panteleev

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}

Posted in Delphi, FireMonkey, Без рубрики | Comments Off

Daily Archives: 14.11.2015

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

MY PROJECTS

Recent Posts

Categories