Discussion :

[Tomtom90]

Bonjour à tous,

Je vous demande une petite aide au sujet de la programmation Pascal sur Lazarus, je débute à peine et je dois vous avouer ne pas être à l'aise avec ce genre de langage !
Ma question concerne l'utilisation des fonctions, j'ai bien compris comment cela fonctionnait, hors, pour des gains de temps et de place, j'aurais besoin de renvoyer plusieurs résultats dans une même fonction.
Sur matlab il est très aisé d'effectuer cette manipulation puisqu'il s'agit que des calculs matricielles. Mais sur Lazarus, je n'ai pas l'impression que la technique soit la même, j'ai entendu parler de "tableau" mais je n'ai aucune idée de comment cela fonctionne !

Merci de votre aide

[Roland Chastain]

Bonjour ! Je vois (au moins) deux solutions : une fonction renvoyant un enregistrement :

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
type
  TMyRecord = record
    a, b, c: integer;
  end;
 
function MyRecord: TMyRecord;
begin
  with result do
  begin
    a := 1;
    b := 2;
    c := 3;
  end;
end;
 
var
  r: TMyRecord;
 
begin
  r := MyRecord;
  WriteLn(r.a); // 1
end.

ou une fonction renvoyant un tableau :

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
type
  TMyArray = array[1..10] of integer;
 
function MyArray: TMyarray;
var
  i: integer;
begin
  for i := Low(TMyArray) to High(TMyArray) do
    result[i] := i;
end;
 
var
  a: TMyArray;
 
begin
  a := MyArray;
  WriteLn(a[1]); // 1
end.

[M.Dlb]

Ou un procédure avec des paramètres passés par adresse (mot-clé var devant les paramètres).