 |
BorlandTalk.com Borland discussion newsgroups
|
| View previous topic :: View next topic |
| Author |
Message |
Bpk. Adi Wira Kusuma Guest
|
Posted: Sat Mar 05, 2005 8:14 pm Post subject: How to to reindex table foxpro? |
|
|
Do you know, How to to reindex table foxpro?
Please!
|
|
| Back to top |
|
 |
Lauro Lima Guest
|
Posted: Mon Mar 07, 2005 10:03 am Post subject: Re: How to to reindex table foxpro? |
|
|
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
|
Posted: Mon Mar 07, 2005 11:17 am Post subject: Re: How to to reindex table foxpro? |
|
|
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 |
|
 |
|
|
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
|
|