Aide sur une erreur Delphi à l'execution

Version imprimable

18/03/2024, 14h25
sweiller

1 pièce(s) jointe(s)

Aide sur une erreur Delphi à l'execution

Bonjour,

Je désire m'entrainer avec ce petit programme à l'utilisation d'unités séparées ...
J'utilise Delphi 11 Community Edition.

Je joins un fichier zip contenant les .pas, .dfm, .dpr, etc

La compilation s'effectue sans accroc !

Par contre j'ai une erreur d'exception à l'execution !

J'ai passé du temps là dessus mais mon niveau en Delphi ne me permet malheureusement pas de résoudre ce problème ...

Merci de votre aide !

Sylvain
18/03/2024, 14h51
Andnotor

A l'œil DataModule3 n'est pas instancié.

La prochaine fois, insère directement le code dans la discussion entre balises [CODE] (le bouton # de la barre d'outil le fait pour toi). Tout le monde n'aime pas télécharger des zip et tu risques de te priver d'informations pertinentes ;)
18/03/2024, 14h53
ShaiLeTroll

Quelle est l'exception, pourquoi ne pas utiliser le déboggueur ?

DataModule3 n'est pas instancié donc EAccessViolation sur 0000 0000 probablement

utiliser initialization et finalization c'est une méthode un peu vieillote pour gérer un Singleton
Vous devriez étudier ces deux sections de Unit2, car si vous les compreniez, vous pourriez corriger votre erreur.

L'utilisation de TDataModule ne semble pas nécessaire, c'est utile comme conteneur de composant mais pour constuire des classes, mieux vaut partir d'un TObject et sans la DFM du DM.

EDIT : Idem, je déteste le ZIP

Code:

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
unit Unit1;
 
interface
 
uses
  System.SysUtils, System.Classes, Unit2, Unit3, Vcl.Dialogs, Vcl.Controls,
  Vcl.StdCtrls, Vcl.Forms;
 
type
  TForm1 = class(TForm)
  Button1: TButton;
 
  procedure Button1Click(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var
  Integers: TArray<Integer>;
  Strings: TArray<string>;
  Values: TArray<Double>;
  i: Integer;
begin
  if not Assigned(DataModule2) then
    DataModule2 := TDataModule2.Create(Self);
  if not Assigned(DataModule3) then
    DataModule3 := TDataModule3.Create;
 
  // Accéder aux données de Unit2
  Integers := DataModule2.GetIntegers;
  Strings := DataModule2.GetStrings;
 
  // Afficher les entiers et les chaînes
  for i := 0 to High(Integers) do
    ShowMessage('Integer[' + IntToStr(i) + ']: ' + IntToStr(Integers[i]));
  for i := 0 to High(Strings) do
    ShowMessage('String[' + IntToStr(i) + ']: ' + Strings[i]);
 
  // Accéder aux données de Unit3
  Values := DataModule3.GetValues;
 
  // Afficher les valeurs de type double
  for i := 0 to High(Values) do
    ShowMessage('Value[' + IntToStr(i) + ']: ' + FloatToStr(Values[i]));
end;
 
end.

Code:

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
unit Unit2;
 
interface
 
uses
  System.SysUtils, System.Classes,  Vcl.Dialogs, Vcl.Controls,
  Vcl.StdCtrls, Vcl.Forms;
 
type
  TDataModule2 = class(TObject)
  private
    FIntegers: TArray<Integer>;
    FStrings: TArray<string>;
  public
    constructor Create(AOwner: TComponent);
    function GetIntegers: TArray<Integer>;
    function GetStrings: TArray<string>;
  end;
 
var
  DataModule2: TDataModule2;
 
implementation
 
//{$R *.dfm}
 
{ TDataModule2 }
 
constructor TDataModule2.Create(AOwner: TComponent);
var
  i: Integer;
begin
  // Initialisation des données
  SetLength(FIntegers, 10);
  SetLength(FStrings, 10);
  Showmessage(' ');
  // Initialisation des tableaux d'entiers et de chaînes avec des valeurs aléatoires
  for i := 0 to 9 do
  begin
    FIntegers[i] := Random(100); // Valeurs aléatoires entre 0 et 99
    FStrings[i] := IntToStr(Random(1000)); // Chaînes aléatoires de trois chiffres
  end;
end;
 
function TDataModule2.GetIntegers: TArray<Integer>;
begin
  Result := Copy(FIntegers, 0, Length(FIntegers));
end;
 
function TDataModule2.GetStrings: TArray<string>;
begin
  Result := Copy(FStrings, 0, Length(FStrings));
end;
 
end.

Code:

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
unit Unit3;
 
interface
 
uses
  System.SysUtils, System.Classes;
 
type
  TDataModule3 = class(TObject)
  private
    { Déclarations privées }
    FValues: TArray<Double>;
  public
    { Déclarations publiques }
    constructor Create;
    function GetValues: TArray<Double>;
  end;
 
var
  DataModule3: TDataModule3;
 
implementation
 
{%CLASSGROUP 'System.Classes.TPersistent'}
 
 
constructor TDataModule3.Create;
var
  i: Integer;
begin
  // Initialisation du tableau de doubles avec des valeurs aléatoires
  SetLength(FValues, 10);
  for i := 0 to 9 do
  begin
    FValues[i] := Random * 100; // Valeurs aléatoires entre 0 et 99
  end;
end;
 
function TDataModule3.GetValues: TArray<Double>;
begin
  Result := FValues;
end;
 
end.

18/03/2024, 21h15
sweiller

Aide sur une erreur Delphi à l'execution

Bonsoir,

Un super merci à tous et à Papy214, pour ces corrections performantes et rapides !
Je vais pouvoir étudier ce code en détails !
Excellent pour construire de vrais applications ...

Note: une petite coquille dans unit3, il faut écrire ligne 15 :
constructor Create(AOwner: TComponent);

A bientôt !
Sylvain

PS: Compris ... pas de zip !
19/03/2024, 09h33
Papy214
Code:

1 2 Note: une petite coquille dans unit3, il faut écrire ligne 15 : constructor Create(AOwner: TComponent);
Non, c'est un TObject dans le cas indiqué.

Code:

TDataModule3 = class(TObject)

Un TDatamodule ne sert à rien tel que tu l'as écrit. C'est pour ça que je l'ai transformé en TObject comme le préconisait Shaï un peu plus haut.