Discussion :

[wizdom]

De retour avec mes tableaux de chaines

En fait j'ai un problème à la compilation : mon tableau de string ne peut pas être comparé à une string simple ?

Error : Icompatible types : 'String' and 'Array'

L'erreur pointe sur la ligne de la procédure P_test :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

if CliData[1,1,1,1] = s then ShowMessage('ok');

Du coup, je n'arrive pas à recuperer mes string qui sont dans ce tableau ?

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
unit Main;
 
interface
 
uses
  Windows, Dialogs, Messages, SysUtils, Classes, Controls, Forms, Unit2;
 
 private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Clidata : TCliarray;
 
implementation
 
procedure P_init;
begin
  Fill_Data_Array(CliData);
end;  

Procedure P_test;
var s: string;
begin
   if CliData[1,1,1,1] = s then ShowMessage('ok');
end;

end.

et celui de l'unité externe :

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
 
unit Unit2;
 
interface
 
type
  TCliarray = Array[1..30,1..8,1..3,1..3,1..10] of string;
 
procedure Fill_Data_Array(data_array: TCliArray);
 
implementation
procedure Fill_Data_Array(data_array: TCliArray);
begin
 
.
.
.
.
end;
 
end.

[nihao]

bonjour,

je vois deux problème avec ton code

1 - ton tableau de string n'est pas rempli correctement. Il faut déclarer ta procedure dans Unit2 comme suit :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
procedure Fill_Data_Array(var data_array: TCliArray);

2 - l'erreur de compilation vient du fait que tu déclares un tableau à 5 dimentions mais dans ton test, tu n'utilises que 4 indices

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
type
  TCliarray = Array[1..30,1..8,1..3,1..3,1..10] of string;
........................
..........................

if CliData[1,1,1,1] = s then ShowMessage('ok');

[wizdom]

Je viens de me rendre compte également qu'il manquait une dimension à mon tableau et que du coup..ca compile ! Pour une fois le message d'erreur Delphi m'a induit en erreur.

Merci à toi !
et Vive Nantes