passer un Array Dynamic à une fonction

Version imprimable

06/07/2012, 10h39
steph41200

passer un Array Dynamic à une fonction

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.

Bonjour,

Citation:

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:

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;

A+. :D

06/07/2012, 12h01
ShaiLeTroll

Ou utiliser le type prévu TStringDynArray (depuis D6 dans Types.pas)
Et c'est même écrit dans l'aide Paramètres tableau ouvert
09/07/2012, 00h11
steph41200

merci pour vos reponses