Discussion :

[PhD13]

Bonjour

J'utilise la fonction Write de l'objet TcustomComPort . Quand je lui passe un tableau dynamique comme paramétre buffer , il m'envoie les adresses du tableau sur le port série !!
Or il semble d'apres l'aide de delphi que l'on ne doit pas ( et on ne peut pas !) déférencer un tab dynamique .

Existe t'il donc une syntaxe pour pouvoir passer un tableau dynamique en paramétre ?

Merci d'avance

[bjl]

oui,

en le déclarant comme un type.

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
dans le cas d'un tableau d'integer;
 
 TmyArray = Array of integer;
 
dans la procedure receveuse :
 
Procedure usemyarray( MyArray : TmyArray);
 
 
la procedure d'appel :
Var
  MyArray : TmyArray;
begin
UseMyArray(MyArray);
 
End;

autre possiblilité : passer un pointeur

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
  pMyArray = ^TmyArray;
  TmyArray = array of integer;
 
Procedure UseMyArray( AMyArray : pMyArray);
Var
myArray : TmyArray;
Begin
MyArray := AMyArray^; // assigne le tableau pointé à celui en variable locale. attention toute modification su MyArray sera reportée sur le tableau initial.
showmessage(inttostr (AmyArray[1]));
End;
 
procedure TForm1.Button1Click(Sender: TObject);
Var
MyArray : TmyArray;
begin
SetLength(MyArray, 2);
MyArray[0] := 1;
MyArray[1] := 345;
UseMyArray(@MyArray); // passe le pointeur sur le tabeau en paramètre
SetLength(MyArray,0)
end;

[PhD13]

Merci pour la réponse
Mais cette solution m'oblige à modifier l'unité Cport , ce que je voudrais éviter .
Il y a la solution du tableau statique qui fonctionne mais elle manque singuliérement de souplesse . C'est peeut être celle que je vais utiliser en attendant.

[petitcoucou31]

salut ,

Quel type de données passe tu ?

Une solution est parfois de passer un TStringlist comme parametre à la place d'un tableau dynamique qui t'oblige de fixer sa taille dans ta procedure d'appel

bye

[PhD13]

Tableau d'octet ( de taille variable entre 1 et 1024 ) qui sont ensuite transmis sur la liaison série.
En écrivant cela , je crois que je vais créer un tableau statique de la taille maxi et je vais donc passer à la fonction write l'index dans le tableau plus la longueur et ca devrait résoudre mom probléme .

[petitcoucou31]

salut ,
et en fesant comme çà ?

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
 
....
Procedure Transfert(Donnees:array of integer);
var i:integer;
begin
    for i:=0 to length(donnees)-1 do form1.memo1.lines.add(inttostr(donnees[i]));
end;
 
Procedure CalculeOctet;
var TabOct:array of integer;
    TailleTab:integer;
    i:integer;
begin
    TailleTab:=10; // exemple
    setlength(TabOct,TailleTab);
    for i:=0 to TailleTab-1 do TabOct[i]:=i; // chargement du tableau..
    Transfert(TabOct);
end;

bye

[bjl]

si c'est un tableau d'octets

pourquoi ne transformes tu pas ton tableau en string ? après tout, cà reste un tableau d'octets.