[delphizip] new property ??

  • From: "Matthias Lueck" <M.Lueck@xxxxxxxxxx>
  • To: <delphizip@xxxxxxxxxxxxx>
  • Date: Thu, 5 Dec 2002 10:31:06 +0100

Hello Eric,

is it possible, to create a new property in the ZipMaster-Component ??

:
private
  FArchivEncrypted: Boolean;  // ==> Check-Flag, Archiv is encrypted
public
  ArchivEncrypted: Boolean read FArchivEncrypted default false;
:

in the procedure TZipMaster.List:
:
  pzd^.Encrypted:= (pzd^.Flag and 1) > 0;
  FArchivEncrypted:= pzd^.Encrypted;
:

Matthias Lück

Globus SB-Warenhaus Holding GmbH & Co. KG
D-66606 St. Wendel (GERMANY)
IT-Entwicklung (Infosysteme)
Tel.: +49 6851 / 909-1182
Fax : +49 6851 / 909-601
Mail: m.lueck@xxxxxxxxxx


Other related posts: