passer un Array Dynamic à une fonction

**steph41200** · 06/07/2012, 10h39

Bonjour

J ai pu constater qu il n etait pas possible de passer un array dynamic cree en local à une fonction.
Pour y remedier, je copie son contenue dans une TstringList que je passe.

Mais est il possible de contouner ce probleme ?

Le creer en global est il plus interessant (en terme de performances par exemple) que de transiter par une tstringlist ?

Merci pour vos conseils.

**Gilbert Geyer** · 06/07/2012, 11h36

Bonjour,

J ai pu constater qu il n etait pas possible de passer un array dynamic cree en local à une fonction.

... Si, c'est possible il suffit de déclarer en global le type de l'array : Exemple :

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
 
Type ArrChaines   = Array Of String;
 
Function BidouillerArray( var A : ArrChaines) : boolean; 
begin      ....    
end;
 
procedure TForm1.MonBouton1Click(Sender : tObject);
var       ARR : ArrChaines; i : cardinal;
begin     SetLength(ARR,100);
          for i:=0 to High(ARR) do begin
              ARR[i]:= Alimentation de l''array   
          end;
          if BidouillerArray(ARR) 
          then ShowMessage('Bidouillage réussi')
          else ShowMessage('Echec du bidouillage');
end;