PDA

View Full Version : تعیین مسیر جدید



ali_sadri
پنج شنبه 30 مهر 1388, 19:13 عصر
سلام
من یک برنامه در دلفی نوشتم که یک فایل dbf درست کند تا اینجا هیچ مشکلی نیست
فقط فایل را در مسیر نصب دلفی ایجاد می کند من نمی توانم مسیر دلخواه خودم را تعیین کنم (ابته بدون SAVE DIALOG)
لطفا اگه کسی می تونه کمک کنه
تشکر

Felony
پنج شنبه 30 مهر 1388, 19:15 عصر
کدی که نوشتید رو بزارید .

ali_sadri
پنج شنبه 30 مهر 1388, 19:44 عصر
در تاپیک بالایی (تاپیک آقای شفیعی) گذاشتم
ولی بازم می زارم


TableFound,t:boolean;
begin


with TTable.Create(nil) do // create a temporary TTable component
begin
try
{ set properties of the temporary TTable component }
Active := False;
DatabaseName := 'DBDEMOS';
TableName := 'lista';
TableType := TTFOXPRO;
{ define fields for the new table }
FieldDefs.Clear;
with FieldDefs.AddFieldDef do begin
name := 'codrec';
DataType := ftsmallint;
// Size := 1;
Required := False;
end;
with FieldDefs.AddFieldDef do begin
Name := 'fasl';
DataType := ftfloat ;
Required := False;
end;
// define indexes for the new table
{ IndexDefs.Clear;
with IndexDefs.AddIndexDef do begin
Name := 'FIRST';
Fields := 'codrec';
Options := [ixPrimary];
End;}
TableFound := Exists; // check whether the table already exists
if TableFound then
if MessageDlg('Overwrite existing table liszazad.dbf ?', mtConfirmation, mbYesNoCancel, 0) = mrYes then
TableFound := False;
if not TableFound then
CreateTable; // create the table
finally
Free; // destroy the temporary TTable when done
end;
end;
//end;

Felony
پنج شنبه 30 مهر 1388, 20:02 عصر
1.من ازکجا بدونم تو اون تاپیک قرار دادید .
2.از تگ کد استفاده کنید .
3.متغیر TTable از چه کلاسی مشتق شده ؟
4.نحوه ی کد نوشتنتون رو تغییر بدید ، بسیار ناخوانا هستش .

vcldeveloper
جمعه 01 آبان 1388, 07:33 صبح
متغیر TTable از چه کلاسی مشتق شده ؟
TTable خودش کلاس هست، متغیر نیست. کلاس TTable از TDataset مشتق شده، و یکی از کلاس های BDE هست.


فقط فایل را در مسیر نصب دلفی ایجاد می کند من نمی توانم مسیر دلخواه خودم را تعیین کنم
فایل را در مسیر تعیین شده برای Alias مورد نظر (در کد شما DBDEMOS) میسازه. اگر مسیر Alias استفاده شده متفاوت باشه، فایل هم در اون مسیر متفاوت ساخته میشه.

Felony
جمعه 01 آبان 1388, 08:01 صبح
TTable خودش کلاس هست، متغیر نیست. کلاس TTable از TDataset مشتق شده، و یکی از کلاس های BDE هست.
درسته ، من به کد دقت نکردم فقط تا کد رو کامپایل کردم دیدم از TTable اشکال گرفت این مطلب رو نوشتم اصلا حواسم به T و TTable.Create و ... نبود ...

:لبخندساده:ممنون از توضیحتون .