أخطاء في الكود مسار قاعدة البيانات

[SOUFYANE2018]

السلام عليكم ممكن مساعدة من فضلكم

[ferrero_100]

PHP كود :

procedure TSAVE.Button2Click(Sender: TObject);
var source,path1,PATH:string;
   hichsoft: longbool;
   i:integer;

begin
  path:=ExtractFilePath(Application.EXEName);
  i:=0;
  While i<5 do
   begin
     Path1:= label3.Caption+'\'+ListBox1.Items.Strings[i];
     Source:=path+ListBox1.Items.Strings[i];
     CopyFile(pchar( source),pchar( path1),hichsoft);
     i:=i+1;
     ProgressBar1.Position:= ProgressBar1.Position+1;
   end;
    ShowMessage('Sauvegarde Terminée..');
    ProgressBar1.Position:=0;
end;





procedure TSAVE.FormCreate(Sender: TObject);
begin
  ListBox1.Items[0]:='Client.db';
  ListBox1.Items[1]:='Client.mb';
  ListBox1.Items[2]:='Client.px'; 


[S.FATEH]

السلام عليكم
مرحبا في منتدى دلفي للعرب
إختر عنوان مناسب لموضوعك
إختر القسم المناسب لموضوعك
راجع القوانين وشروط الكتابة كي لا تحذف مشاركتك