Problem med Paradox tabeller.

Jeg har ikke kigget nærmere på din kode, men som jeg forstår dig så misforstår du det, at pakke(pack) en tabel
Paradoxfilerne er navngivet *.db, *.px og *.xy0 osv

DB er data filen
dine records ligger i denne fil i den orden de er oprettet
PX filen er det primære index (markeret med * i database desktoppen)
XY0 osv er alle de andre index du har lavet på tabellen

Når du laver en pack så gendannes alle indexfilerne
inclusiv PX filen. der er med andre ord ingenting der bliver mindre af den grund.

Grunden til at det er nødvendigt at pakke en gang i mellem er at indexerne på en paradox tabel kan blive inkorrekte
hvorefter du ikke kan indsætte nye records i tabellen på grund af indexfejl. Dette sker som oftes hvis du har et systemnedbrud under skrivning til tabellen.

Kan du snakke engelsk? Do you speek english?

Kan du snakke engelsk? Do you speek english?

Nej, tyvörr är min engelska sämre än Din svenska skulle jag tro. Prova med försöka förstå min svenska för att öka Norden samhörigjeten.

Jeg er bange for at jeg ikke rigtig kan forstå ret meget af det

Sry.. Dobbelpost..

Jag provar, så ser du min engelska.

I have some simple questions.

Occasionally happens it that one must use "Table Repair Utility" in Corel Paradox, what is it that happens with the table, but it important is what does man in order to prevent that this happens. I have heard that one shall cross in the box that is called "Pack Table" in "Restructure Paradox 7 Table". But that go in in all tables some time then and assumes that man have Database Desktop installed. After a hint wrote I the following code:

Kodefunction dgPackParadoxTable(Tbl: TTable; Db: TDatabase): DBIResult;
 var
 TblDesc: CRTblDesc;
begin
 Result := DBIERR_NA;
 FillChar(TblDesc, SizeOf(CRTblDesc), 0);
 StrPCopy(TblDesc.szTblName, Tbl.TableName);
 TblDesc.bPack := True;
 Result := DbiDoRestructure(Db.Handle, 1, @TblDesc, nil, nil, nil, False);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Tbl : TTable;
  Db :  TDatabase;
begin
   Tbl := Table1;
   db := Krono;
   dgPackParadoxTable(Tbl, Db);
end;

But I finds not that there works, it comes none Error message but the table becomes not less.

Is I entirely wrong on it or is it something simple wrong I have done.


That I writes to Yours depends on that in Sweden not exists as many places that treats Delphi and because trying I with Yours in Denmark that I know is very more for just Delphi than The swedes.

Hej

Tack för Ditt svar:

When I does this in Paradox becomes both DB and PX the file less which not happens when I execute this code, how checks I that there works if I not can see this on how many kb the file consists of.