Re: TZF - empty file

Marie Vihonsky <[email protected]> Mon, 07 Jul 2003 17:51:47 -0400

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

If you wish to TOTALLY delete all the records from a database, use the
ZAP method.

    TzDbf1.Zap;

Marie

Pierre Wittwer wrote:
> 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
==^================================================================