TZF - empty file

Pierre Wittwer <[email protected]> Mon, 7 Jul 2003 21:34:19 +0000 (UTC)

Newsgroups	gmane.comp.lang.delphi.topaz
Message-ID	<[email protected]>

Hello Topaz friends

is there another and simplier possibility to empty a file deleting each record and to pack the file. 

My solution is:

with TzFile do begin
   GoTop;
   while not deof do begin
     deleteRec;                           
     Skip(1);
   end;
   pack;
end;


Thanks and good bye

Pierre Wittwer
CH Stans

==^================================================================
This email was sent to: [email protected]

EASY UNSUBSCRIBE click here: http://topica.com/u/?clvXPN.a5kvff.Z2NsZHQt
Or send an email to: [email protected]

TOPICA - Start your own email discussion group. FREE!
http://www.topica.com/partner/tag02/create/index2.html
==^================================================================