Discussion :

[medkyl]

Bonjour à tous
Meilleurs Voeux.

Comment realiser une fonction de ce type :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
 
function Test: [0..20] of String; 
begin
  Result[0]:= 'Test 1';
  Result[1]:= 'Test 2';
end;

Merci de votre Aide.

[Just-Soft]

Salut;

oh que oui, ta fonction aura cette forme :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
function chaine(var t : array of string) : string;
begin
  // traitement
end;

[medkyl]

Bonjour Just-Soft,

merci pour ta réponse.


Je fait un essai pour récuperer la fonction

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
 
function TForm1.chaine(var t : Array  of String) :String ;
begin
  t[0]:= ' Essai 1';
  t[1]:= ' Essai 2;
  t[2]:= ' Essai 3;
end;

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
 
  ShowMessage(Chaine[0]);  // Erreur
  ShowMessage(Chaine[1]);  // Erreur

Comment faire pour récupérer le tableau de la fonction

Merci

[Archimède]

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
 
    montab:array[1..2]of string;
    function tab(T:array of string;indice:integer): string;
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
    function TForm1.tab(T:array of string;indice:integer): string;
    var maxT:integer;
    begin
    T[1]:='essai1';
    T[2]:='essai2';
    ......si T>2
    case indice of
    1:result:=T[1];
    2:result:=T[2];
//etc si T>2
    end;
 
    end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
caption:=tab(montab,2);
end;

Je ne vois pas trop l'intérêt de la chose...

[medkyl]

Bonjour Archimède,

merci pour ta réponse.

Je crois que je me suis mal exprimer.

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
45
46
47
48
49
 
function TDM.RecupProc (s:String) :Array [0..2] of String;
const
   cstSQL =   ' SELECT'
                 +'  COD_DON' 
                 +' FROM'
                 +'   %S';
begin
   Result[0]:= 'Annuler';
    with TjvUIBQuery.Create(Nil) do
    begin
      try
        Transaction:= TjvUIBTransaction.Create(Nil);
        Transaction.DataBase:= jvBase;
        try
          SQL.Text:= Format(cstSQL,[S]);
          Open;
          if not eof then 
          begin  
             Result[1]:= 'Ok';  // pas erreur donc tableau index 0 = ok  
             Result[0]:= Fields.ByNameAsString['COD_DON'];   // retour cod           
          end;
          Close(etmCommit);
        Except
           Transaction.RollBack;
           Result[0]:= 'Annuler'; // Erreur donc tableau index 0 = Annuler
        end;  // except
 
      finally
        Transaction.Free;
        Free;
      end;   // finally
    end;  // with
end;
 
 
 
 
procedure TForm1.Button1Click(Sender: TObject);
var 
  T : Array [0..1] of String;
begin
  T:= if DM.RecupProc('DON');
 
  if T[0] = 'TRUE' then
    ShowMessage( T[1])  // tout est ok donc mon cod_don
  else
    ShowMessage('Erreur ');
end;

avoir une fonction qui retour un tableau voila

merci

[Andnotor]

Beaucoup d'ilogisme dans tout cela!

Ce que propose Just-Soft est correct! Bien sûr la première chose à faire dans le traitement est de fixer la taille du tableau par un SetLength. Par contre, le Result sous forme de string n'a aucune raison d'être.

La gestion du résultat est elle catastrophique!
Result[0] := 'Annuler'
Result[1] := 'Ok'
T[0] = 'TRUE'

Voici juste un exemple pour récupérer un tableau de taille fixe, mais l'ensemble n'est pas bien clair:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Type
  TRecup = array[0..1] of string;
 
function TDM.RecupProc (s:String) :TRecup;