دخول

merouane · 25-05-2008, 02:31 AM

و عليكم السلام

الخطأ الأول في الملف INI حيث /rep=bd خطأ

الصواب: rep=bd

ثم في الكود فأنت لا تحتاج لمعرفة مكان الملف التنفيذي لأن المجلد مع الملف التنفيذي تحت نفس المجلد

rep:=repexe+'data\'+fichierini.ReadString

الأسهل : rep:='data\'+fichierini.ReadString

كود :
procedure TForm1.FormCreate(Sender: TObject);
begin
[color=Blue]//flash[/color]
ShockwaveFlash1.Movie := ExtractFilePath(Application.ExeName) + 'swf\movie.swf';
[color=Blue]//Alias[/color]
RepExe:=ExtractFilePath(Application.EXEName);
FichierIni:=TIniFile.Create(repexe+'test.ini');
rep:='data\'+fichierini.ReadString('base','rep','nonbd');
if rep='data\nonbd' then
  showmessage('Chemin pour la base de données non valide')
 else
  begin
     rep:='data\'+fichierini.ReadString('base','rep','nonbd');
     table1.DatabaseName:=Rep;
     table1.TableName:='data.DB';
     table1.Active := true ;
   end ;
end;

بالتوفيق

دخول
اسم المستخدم/البريد الالكتروني :
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة