Discussion :

[developpeur_mehdi]

voila j'utilise dans mon application plusieurs form avec de multiple manipulation de bases de donnée dans chacun de ces form
seulement au fil du devellopement de mon application des méssage d'erreurs lors de la compilation se sont mis a apparaitre achaque cration de form
je suis donc obliger a chaque compilation de réapuyer sur F9 pour continuer la compilation jusqu'a l'éxécution
voila le méssage d'érreurs

Le projet "blablabla.exe" à provoqué une classe d'éxéptionEvariant type CastErroravec le message impossible de convertirle variant de type nullet type string Processus stoper utiliser pas a pas...

alors que doije faire

[Seb]

Salut,

A mon avis le mieux serait que de lancer l'application en debug pour trouver les erreurs.

Sinon, dans les Options du débogueur, dans l'onglet Exceptions du langage, décoche "Arrêter sur exceptions Delphi"... cela devrait ne plus t'afficher les messages...

A+,

Seb.

[developpeur_mehdi]

j'ai utiliser le décochage de l'option "arréter...."
ça marche et je vous en remercie
seulement cette cette technique est elle vraiment seine
ou est ce que je doit plutot chercher la véritable cause des problème????
plus précisement est ce que je doit clicker sur résolue dans le forum
ou pas encore???
voila

[Seb]

j'ai utiliser le décochage de l'option "arréter...."
ça marche et je vous en remercie
seulement cette cette technique est elle vraiment seine

Non ce n'est pas vraiment bon comme méthode car tu risques d'avoir de nouvelles erreurs qui ne s'afficheront pas...

ou est ce que je doit plutot chercher la véritable cause des problème????

En lançant l'application en pas à pas et en regardant la ligne qui pose problème.

plus précisement est ce que je doit clicker sur résolue dans le forum
ou pas encore???
voila

Regarde en debug si tu trouves ton erreur. Si tu ne trouves rien, poste un peu ton code de créatino de form (un qui plante) et on regardera.

A+,

Seb.

[developpeur_mehdi]

j'ai utilisé le pas a pas mais rien de spécial voila donc le cretino

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
begin
  Application.Initialize;
  Application.CreateForm(TIndex, Index);
  Application.CreateForm(Tmarque, marque);
 
 
  Application.CreateForm(Tmachine, machine);
  Application.CreateForm(Tprofil, profil);
 
  Application.CreateForm(TList_profil, List_profil);
  Application.CreateForm(Tlist_marque, list_marque);
  Application.CreateForm(Tsalle, salle);
  Application.CreateForm(Tlist_salle, list_salle);
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(Tutilisateur, utilisateur);
  Application.CreateForm(TList_utilisateur, List_utilisateur);
  Application.Run;

voila un de form qui ne fonctionne pas

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
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
unit sell_Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, StdCtrls, Mask, DBCtrls, ExtCtrls;
 
type
  Tsalle = class(TForm)
    Panel1: TPanel;
    Button1: TButton;
    Button2: TButton;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Button3: TButton;
    ADOTable1: TADOTable;
    DataSource1: TDataSource;
    ADOConnection1: TADOConnection;
    procedure Button3Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  salle: Tsalle;
 
implementation
 
uses close_Unit1, salle_Unit1;
 
{$R *.dfm}
 
procedure Tsalle.Button3Click(Sender: TObject);
begin
index.show;
salle.close;
end;
 
procedure Tsalle.Button1Click(Sender: TObject);
begin
adotable1.Insert;
end;
 
procedure Tsalle.Button2Click(Sender: TObject);
begin
adotable1.post;
list_salle.show;
adoTable1.insert ;
adotable1.Close;
adotable1.open;
salle.Close;
end;
 
procedure Tsalle.FormCreate(Sender: TObject);
begin
 
end;
 
end.

voila c tout merci d'avance

[Modération, Seb : Pensez à utiliser la balise [CODE] qui améliore la lisibilité, merci]

[developpeur_mehdi]

OOPS

[Seb]

Sorry... Je ne vois pas trop ce qui cloche dans le code que tu as mis...

Quelques réflexions (possible qu'elles soient idiotes) : Ton application est une application MDI ou pas?
As-tu besoin d'avoir tous tes forms en auto-create?
Essayes de les enlever de l'auto-create (projet / Option du projet. Enlèves les de la liste des Fiches créées automatiquement. Toutes sauf le form principal).
Essayes de voir si cela change quelque chose ou pas (c'est peut-être une bétise que je raconte...).

A+,

Seb.

[developpeur_mehdi]

En fait ça a marché mais désormé j'ai droit a des méssage d'érreurs a chaque appél de formulaire via mon Menu
Le projet XXXXXXX a provoqué une classe d'exception EAccessViolation avec message a l'adrésse 004864892 dans le module XXX Lecture de l'adresse 0000000 ,processue stoppé....