Re: TZF - empty file

Hey Pierre

Have you tried the Zap routine?

function IZapTable():Boolean;
begin
  with TzVFile1 do
  begin
    Active    := True;
     try
      ZAP;
      Result  := True;
    except;
      Result    := False;
    end;
  end;
end;


I use that in several of my applications.

Greetings from Greenland
Dino

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
==^================================================================