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.