طريقة فتح ملف بلغة الدالفي :
end;
Code
Ouvrir dossier :
procedure
TFace.Ovrire1Click(Sender: TObject);
begin
if data.Dossiers.RecordCount=0 then
Raise
exception.Create('Créez Un Dossier d''abord');
O_dossier.ShowModal;
//ActiveBouton;
