Classe TFilesStreams

Unit

mi.rtl.Objects.Methods.Collection.FilesStreams

Declaração

type TFilesStreams = class(TCollection)

Descrição

• A classe TFilesStreams é usada para armazenar todos os arquivos abertos pelo sistema para poder fecha-los caso o programa aborte inesperadamente.

  • EXEMPLO DE USO

    
    procedure TMi_Rtl_Tests.TabSheet_TFilesStreamsEnter(Sender: TObject);
      var
       i,L : integer;
       s:AnsiString;
    
    begin
      filesStreams.DeleteAll;
      StringGrid1.Clear;
    
      filesStreams.Mask := edit2.Text;
      StringGrid1.RowCount := filesStreams.Count+1;
    
      LabelCount2.Caption := Format('FilesStreams.Count %d',[filesStreams.Count]);
      LabelCount2.Show;
      L := 0;
      StringGrid1.Cells[0,l] := 'Seq';
      StringGrid1.Cells[1,l] := 'FileName';
      StringGrid1.Cells[2,l] := 'FileSize';
      inc(l);
      if filesStreams.Count > 0
      then begin
              for i := 0 to filesStreams.Count-1 do
              with filesStreams.FileByNum(i) do
              begin
                StringGrid1.Cells[0,l] := Format('%d',[l]);
                StringGrid1.Cells[1,l] := FileName;
                s := Format('%d',[FileSize(FileName)]);
                StringGrid1.Cells[2,l] := s ;
                inc(L);
              end;
           end;
    
    end;
    
    procedure TMi_Rtl_Tests.Edit2Change(Sender: TObject);
    begin
      TabSheet_TFilesStreamsEnter(Self);
    end;

Hierarquia

• TObjectsTypes
• TObjectsConsts
• TObjectsMethods
• TCollection
• TFilesStreams

Visão Geral

Métodos

	Procedure SetMask(a_Mask : AnsiString);
	CONSTRUCTOR Create;
	Function FileByNum(const Index:Longint):TFileStream;
	Function FileByName(const aFileName:AnsiString):TFileStream;
	Function CopyFiles(aPathDest:PathStr):Integer;
	Function DeleteFiles():Integer;
	PROCEDURE Error(Code, Info: Integer); Override;
	Procedure Create_Progress1Passo(ATitle : tString;Obs:tString ; ATotal : Longint); Override;
	Procedure Set_Progress1Passo(aNumero_Segundos_que_deve_esperar : Longint); Override;
	Procedure Destroy_Progress1Passo; Override;

Propriedades

property Mask : AnsiString Read _mask write SetMask;

Descrição

Métodos

	Procedure SetMask(a_Mask : AnsiString);
O método SetMask é usado para filtrar os arquivo da pasta corrente do banco de dados. Nota Para compreender essa função é bom ler o exemplo: TFiles.FindFiles

	CONSTRUCTOR Create;

	Function FileByNum(const Index:Longint):TFileStream;

	Function FileByName(const aFileName:AnsiString):TFileStream;

	Function CopyFiles(aPathDest:PathStr):Integer;

	Function DeleteFiles():Integer;

	PROCEDURE Error(Code, Info: Integer); Override;

	Procedure Create_Progress1Passo(ATitle : tString;Obs:tString ; ATotal : Longint); Override;

	Procedure Set_Progress1Passo(aNumero_Segundos_que_deve_esperar : Longint); Override;

	Procedure Destroy_Progress1Passo; Override;

Propriedades

	property Mask : AnsiString Read _mask write SetMask;
A propriedade Mask é usada como filtro na função SysUtils.FindFirst

---

Gerado por PasDoc 0.16.0.