Bonjour
J'ai procédé à un test sur l'alias avant d'ouvrir l'application.
Avant de procéder ce test, je n'avais pas d'erreur.
Voici la fonction et la procédure qui me créer une erreur de violation.
Une solution ou voyez-vous mon erreur.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49 function testalias(alias:string):boolean; var listalias:Tstringlist; i,j:integer; begin listalias:=tstringlist.Create; j:=0; listalias.Clear; session.GetAliasNames(listalias); //comparaison for i:=0 to listalias.Count-1 do begin if alias = listalias.strings[i] then j:=j+1 else j:=j+0; end; listalias.Free; if j = 1 then result:=true else result:=false; end; procedure creeralias(alias,chemindb:string); begin try session.AddStandardAlias(alias,chemindb,'Paradox'); session.SaveConfigFile; messagedlg('alias facture créé',mtInformation,[mbOk],0); finally // end; end; rocedure Tdata.DataModuleCreate(Sender: TObject); begin //test de l'existence de l'alias if testalias('facture')=false then creeralias('facture',chemin); Tclient.Open; Tfact.Open; TfactD.Open; tproduits.Open; tintervention.Open; tCp.Open; tunite.Open; tdepenses.Open; tfournisseur.Open; treglement.Open; //Controle du fichier pour le suivi de la codification des clients if not fileexists(chemin+'codif.ini') then begin razcodif; end; end;
Merci de vos pistes
Partager