Discussion :

[Charles f]

Bonjour

Est-il possible de déclarer une fonction retournant un tableau. ?

Je n'ai pas réussi.

Merci

Charles

[FWS]

Pourquoi des fonctions dans un tableau ? Pourquoi ne pas utiliser des fonctions de type globaux ?

Cordialement.

[femtosa]

Ceci passe à la compilation, maintenant, je n'ai pas essayé de remplir les fonction et de les tester...

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
22
23
24
25
26
27
28
type
 
  MonTableau = array [1..5] of integer;     //TABLEAU NORMAL
  MonTableauDyn = array of byte;            //TABLEAU DYNAMIQUE
 
  TForm1 = class(TForm)
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
function tab(i:byte):MonTableau;
begin
  {INSTRUCTIONS}                                     //PREMIERE FONCTION
end;                                                 //AVEC LE TABLEAU NORMAL
 
function tab_dyn(i:byte):MonTableauDyn;
begin
  {INSTRUCTIONS}                                    //DEUXIEME FONCTION
end;                                                //AVEC LE TABLEAU DYNAMIQUE

[Benoît-M]

En effet, contrairement à Turbo Pascal (où on ne peut renvoyer que des pointeurs sur des tableaux), Delphi permet aux fonctions de retourner des tableaux (array).

A+

PS : y'a pas d'accent circonflexe à "mourut" !

[femtosa]

PS : y'a pas d'accent circonflexe à "mourut" !

Merci merci Benoît M, je maitraîse plus la "grammaire" du Pascal Objet que celle du français...!

[Invité]

Salut,

Le plus simple dans ton cas est d'utiliser les tableaux dynamiques ...

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
Type
     TMonTableau = Array Of String ;
 
Function MaFonction : TMonTableau ;
 
const
     Taille = 5 ;
 
var
     Index : Integer ;
 
begin
     SetLength(Result,Taille) ;
 
     For Index := Low(Result) To High(Result) Do
         begin
              Result[Index] := Format('Ligne %d',[Index]) ;
         end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
 
var
     MonTableau : TMonTableau ;
 
var
     Index      : Integer ;
     Texte      : String  ;
 
begin
     MonTableau := MaFonction ;
     Text       := ''         ;
 
     if (Length(MonTableau) > 0)
        then
        begin
             For Index := Low(MonTableau) To High(MonTableau) Do
                 begin
                      Texte := Texte + MonTableau[Index] + #13 ;
                 end;
        end;
 
     ShowMessage(Trim(Texte)) ;
end;

A+

Didier