طريقة تغير الملف بلغة الدالفي :
CODE Modifier dossier :
procedure TFace.Modifier1Click(Sender: TObject);
begin
//if Not
FileExists('C:\Windows\System\_sqldb.dll')then
RAise exception.Create('Version Démo !');
if
data.Dossiers.RecordCount=0 then
Raise
exception.Create('Créez Un Dossier d''abord');
M_Dossier.showmodal;
end;