نحوه استفاده صحیح از DBISAM جهت بالا بردن امنیت رکوردها

[دنیای دلفی]

در این زمینه بحثهای مختلفی شده که دوستان مختلف از مشکلات DBISAM زیاد گفته اند من مدتهاست که دارم روی DBISAM کار می کنم و تقریبا با تمامی روشهای استفاده صحیح استفاده از این کامپوننت قدرتمند آشنا شده ام در این تاپیک می خواهم روش های ترمیم صحیح اطلاعات با حداقل تلافات و Qptimize کرد جداول برای آزاد سازی فضای Domy اشغال شده درون Database صحبت کنم .
اولین پست من بعد از این پست نحوه ترمیم دیتابیس (کلیه جداول) در DBISAM خواهد بود از طریق کد نویسی .

موفق باشید تا بعد
:flower:

[دنیای دلفی]

procedure TForm1.FormCreate(Sender: TObject);
var
i:integer;
begin
// Get the path to the data
APath := UpperCase(ExtractFilePath(Application.ExeName));
BPath:=APath;
if APath[Length(APath)] <> '\' then
begin
APath := APath + '\';
BPath := BPath + '\';
end;

i:=PosEx('\REPAIR',APath,1);
Delete(APath,i,7);
BPath:=Apath;
APath:=APath + 'DATABASE';
end;


procedure TForm1.RxGIFAnimator1Click(Sender: TObject);
var
i:integer;
list:Tstrings;
Result,messages:Boolean;
begin
Result:=False;
Messages:=True;
list := TStringList.Create;
try
session.GetTableNames(APath,list);
for i:=0 to list.Count-1 do
begin
Table1.DatabaseName:=APath;
Table1.TableName:=List.Strings[i];
Application.ProcessMessages;
Form1.Enabled:=False;
p.Progress:=0;
p.Visible:=True;
Application.ProcessMessages;
Result:=Table1.RepairTable(True);
if not Result then
Messages:=false;
end;
finally
list.Free;

end;
form1.Enabled:=True;

P.Progress:=0;
end;

[amir_22]

چه متغييري براي ارقام بزرگ مثل چند صد ميليارد را ميتوان ذخيره كرد
حتي با وجود استفاده از متغيير largint , integer نيز استفاده كردم ولي جواب نداد

[vcldeveloper]

چه متغييري براي ارقام بزرگ مثل چند صد ميليارد را ميتوان ذخيره كرد
اگر نیاز به اعداد منفی ندارید، Cardinal تا 4294967295 را پشتیبانی میکنه. اگر به اعداد منفی هم نیاز دارید، یا به هر دلیلی Cardinal هم برای شما کافی نیست، Int64.