Renvoyer un record dans une fonction

Version imprimable

29/06/2011, 14h30
EpiTouille

Renvoyer un record dans une fonction
Bonjour,
Je cherche à renvoyé un record. J'ai vu que turbo pascal n'accepte que les types simples. Aurais-je moyen d'utiliser des pointers ?
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Type Tcoord = record x : integer; y : integer; end; type Pcoord = ^Tcoord; function x : Pcoord begin ... ... end;
Je connais pas trop les pointers et tout ça. :cry:

Merci de vos réponses.
29/06/2011, 14h50
M.Dlb

Oui tu dois pouvoir t'en sortir avec les pointeurs.

Un bon article expliquant ça:
http://pascal.developpez.com/cours/ptrau/?page=page_16

Merci j'ai réussi !

J'ai fait un ptit code, ça peut toujours aidé :mrgreen:

Code:

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
 
 
program test;
 
uses crt;
 
 
type Tcoord = record
  x : integer;
  y : integer;
end;
type Pcoord = ^Tcoord;
 
var
  CoordApple : Tcoord;
 
function Aleatoire : Pcoord;
var
  PcoordApple : Pcoord;
begin
  randomize;
  new(PcoordApple);
  PcoordApple^.x := random(100);
  pcoordApple^.y := random(100);
 
  Aleatoire := PcoordApple;
end;
 
begin
  CoordApple := Aleatoire^; {Récupération du résultat de la fonction}
  writeln(coordApple.x,' ',coordApple.y);
end.

Tu viens aussi de créer une belle fuite de mémoire. Le bloc alloué dans la fonction n'est libéré nulle part.

1ere solution : tu mémorises le pointeur et tu le libères quand il n'est plus necessaire.
Code:

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 program test; uses heaptrc, crt; type Tcoord = record x : integer; y : integer; end; type Pcoord = ^Tcoord; var CoordApple : Pcoord; function Aleatoire : Pcoord; var PcoordApple : Pcoord; begin new(PcoordApple); {allocation mémoire} PcoordApple^.x := random(100); pcoordApple^.y := random(100); Aleatoire := PcoordApple; end; begin randomize; CoordApple := Aleatoire; {Récupération du résultat de la fonction} writeln(coordApple^.x,' ',coordApple^.y); dispose(CoordApple); {libération mémoire} end.
2 eme solution bien plus propre à mon avis : tu utilises une procedure avec passage de parametre par référence
Code:

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 program test; uses heaptrc, crt; type Tcoord = record x : integer; y : integer; end; type Pcoord = ^Tcoord; var CoordApple : Tcoord; procedure Aleatoire(var Coord : Tcoord); begin coord.x := random(100); coord.y := random(100); end; begin randomize; Aleatoire(CoordApple); writeln(coordApple.x,' ',coordApple.y); end.
Dernière chose : il est inutile d'appeler randomize à chaque fois que tu utilises random, il suffit de le faire une fois au début du programme.