BorlandTalk.com Forum Index BorlandTalk.com
Borland discussion newsgroups
 
Archives   FAQFAQ   SearchSearch   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

How to to reindex table foxpro?

 
Post new topic   Reply to topic    BorlandTalk.com Forum Index -> Delphi Databases (Desktop)
View previous topic :: View next topic  
Author Message
Bpk. Adi Wira Kusuma
Guest





PostPosted: Sat Mar 05, 2005 8:14 pm    Post subject: How to to reindex table foxpro? Reply with quote



Do you know, How to to reindex table foxpro?

Please!


Back to top
Lauro Lima
Guest





PostPosted: Mon Mar 07, 2005 10:03 am    Post subject: Re: How to to reindex table foxpro? Reply with quote



Hi,,Kasuma,,,

you Can use The Procedure under,,, remove the index tag from dbf
file,,, after it you can call you index procedure.........

Ok...

Laulo Lima
[email]Lauro123 (AT) yahoo (DOT) com[/email]



procedure RemoveCDXByte( dbFile : String );
const
Value: Byte = 0;
CDXoffSet = 28;
var
//F: File of Byte;
handle: integer;
buffer:Char;
begin
//abre o arquivo para leitura e gravacao,exclusivo
handle := FileOpen( dbFile,fmOpenReadWrite+fmShareExclusive );
//se fileOpen teve sucesso, entao processa a troca de byte....
If( handle > 0 ) Then
Begin
Try
FileSeek( handle,CDXoffSet,0 );
FileRead( handle,buffer,1 );
If ( buffer = #1 ) Then
Begin
FileSeek( handle,CDXoffSet,0);
buffer := #0;
FileWrite( handle,buffer,1 );
End;
Finally
FileClose(handle);
End;
End;

end;

"Bpk. Adi Wira Kusuma" <adi_wira_kusuma (AT) yahoo (DOT) com.sg> escreveu na mensagem
news:422a132d (AT) newsgroups (DOT) borland.com...
Quote:
Do you know, How to to reindex table foxpro?

Please!





Back to top
Bpk. Adi Wira Kusuma
Guest





PostPosted: Mon Mar 07, 2005 11:17 am    Post subject: Re: How to to reindex table foxpro? Reply with quote



Thanks a lot of.



"Lauro Lima" <Lauro123 (AT) yahoo (DOT) com> wrote

Quote:
Hi,,Kasuma,,,

you Can use The Procedure under,,, remove the index tag from dbf
file,,, after it you can call you index procedure.........

Ok...

Laulo Lima
[email]Lauro123 (AT) yahoo (DOT) com[/email]



procedure RemoveCDXByte( dbFile : String );
const
Value: Byte = 0;
CDXoffSet = 28;
var
//F: File of Byte;
handle: integer;
buffer:Char;
begin
//abre o arquivo para leitura e gravacao,exclusivo
handle := FileOpen( dbFile,fmOpenReadWrite+fmShareExclusive );
//se fileOpen teve sucesso, entao processa a troca de byte....
If( handle > 0 ) Then
Begin
Try
FileSeek( handle,CDXoffSet,0 );
FileRead( handle,buffer,1 );
If ( buffer = #1 ) Then
Begin
FileSeek( handle,CDXoffSet,0);
buffer := #0;
FileWrite( handle,buffer,1 );
End;
Finally
FileClose(handle);
End;
End;

end;

"Bpk. Adi Wira Kusuma" <adi_wira_kusuma (AT) yahoo (DOT) com.sg> escreveu na mensagem
news:422a132d (AT) newsgroups (DOT) borland.com...
Do you know, How to to reindex table foxpro?

Please!







Back to top
Display posts from previous:   
Post new topic   Reply to topic    BorlandTalk.com Forum Index -> Delphi Databases (Desktop) All times are GMT
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


Powered by phpBB © 2001, 2006 phpBB Group
SEO toolkit © 2004-2006 webmedic.