[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. |