[D6] Conversion Array of String en String
De retour avec mes tableaux de chaines :D
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:
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:
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:
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. |
