Banco de dados - aplicativos com db sem bde

Top  Previous  Next

Esta é uma boa saída para utilizar dados sem um BD. O único problema é que vários processos que seriam automáticos terão que ser feitos na mão, como por exemplo, colocar os valores nas caixas de edição.

Em primeiro lugar, você precisa ter um componente com os dados que deseja.

Caso não saiba criar um componente, consulte o arquivo de Ajuda do Delphi.

 

Suponhamos que você tenha um componente TComp coms dois campos:

Tcomp = class(TComponent)  // Deve ser descendente da classe

     s  : String;                              // TComponent

     i   : Integer;

     b :  Boolean;

 

Use uma variável do tipo TFileStream. Consulte o Help do Delphi para maiores

detalhes.

 

var

   fs : TfileStream;

   c : TComp;

begin

  fs := TFileStream.Create("Nome do arquivo",fm_create); //

  fs.WriteComponent(c);

  fs.Free;

end;

 

para carregar o arquivo:

 

var

   fs: TFileStream;

   c: Tcomponent;

begin

 fs := TFileStream.Create("Nome do arquivo",fm_openread); //

  fs.ReadComponent(c);

  fs.Free;

end;