Salut,
je suis en train de faire un petit programme de comptabilité, et je me suis créé une classe TCompte pour gérer facilement un petit compte. Mais dans le create j'ai des acces violation sur chacunes des lignes de mon code![]()
Voici mon code :Envoyé par delphi
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5 procedure TMainForm.Button1Click(Sender: TObject); begin MainCompte.create(Grid,Chart,Query); end;
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 constructor TCompte.create(aGrid: TDbGrid; aChart: TChart; aQuery: TQuery); begin inherited Create; FSolde := 0; FName := ''; FDirectory := ''; FIsDefault := false; FKeepHDuring := 12; FGrapheOptions.GrapheType := gtLine; FGrapheOptions.Affichage := a3D; FGrapheOptions.Precision := pWeek; FGrapheOptions.ValeursVisibles := false; FGrid.Assign(aGrid); FChart.Assign(aChart); FQuery.Assign(aQuery); FStatus := csInitialized; end;Pensant que ça venait du fait que j'apelle ce create dans le Oncreate de ma Form, j'ai mi un bouton pour tester après la création, j'ai vérifié qu'il y avait tout ce qu'il faut dans les uses, mais toujours le même problème.
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 TCompte = class private FName : string; FDirectory : string; FIsDefault : boolean; FKeepHDuring : integer; FGrapheOptions : TGrapheOptions; FIni : TIniFile; FSolde : integer; FGrid : TDbGrid; FChart : TChart; FQuery : TQuery; FStatus : TCompteStatus; Function DelDir(Dir : string): boolean; public constructor create(aGrid : TDbGrid; aChart : TChart; aQuery :TQuery);reintroduce; [...]
Je n'ai plus d'erreur seulement après avoir mis en commentaire toutes les lignes du create...![]()
Si vous avez une petite idée d'où ça peut venir n'hesitez pas...
Partager