Fonction qui retourne un record

**miomikio** · 05/05/2007, 14h06

salut je suis nouveau sur le forum

j'ai entrain de faire une function qui return un record , le record est declare au debut de 3 champs different champ1 : natural , champ2:natural . champ3: boolean .

et quand je commence la function

function parentesi ( x : string ) return nomdurecord ;

mais ca marche pas la function l 'erreur c'est
"invalid prefix in selected component "nomdurecord" meme si il est declare au debut du programme ; ????

**jc-miranda** · 05/05/2007, 14h52

Fournis le code si tu veux une réponse,
ca sera mieux.

**miomikio** · 05/05/2007, 16h46

voila le code :

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
50
51
52
53
54
55
------------
 
with text_Io;
use text_io;
 
 
procedure parentesi is 
 
 
 
type campi is record
parentesi_aperte:natural;
parentesi_chuise:natural;
bilanciamento :boolean;
end record ;
 
text: string(1..30) ;
last :integer;
-------------------------------------------------------------------------------------
function par (x: string;l:integer) return campi is
 
char : character ;
cont:natural:=0;
cont2:natural:=0;
ok: boolean;
 
 
begin 
for i in x'range loop 
char:=x(i);
case char is
when '(' => loop 
cont :=cont + 1 ;
end loop ;
campi.parentesi_chuise:=cont;
when ')' =>
loop 
cont2 :=cont2 + 1 ;
end loop ;
campi.parentesi_aperte:=cont2;
when others => null;
end case;
end loop;
if campi.parentesi_chuise=campi.parentesi_aperte then 
ok:=true ;
campi.bilanciamento:=ok;
end if ;
return campi;
end par;
-------------------------------------------------------------------------------------
begin 
put_line(" inserire il texto := ");
get_line(text,last);
par(text,last);
end parentesi ;

**jc-miranda** · 05/05/2007, 19h34

Deux erreurs:
1 - Tu essaies d'ecrire dans un type (campi), heu ca ne marche pas comme cela.
Tu dois declarer une variable locale a la fonction par de type campi et ecrire dedans.

2 - Tu fais appel a par dans ton main comme s'il s'agissait d'une procedure, or il s'agit d'une fonction. Ca n'est pas possible non plus.

Je te conseille de jeter un oeil aux docs presentes sur ce site pour mieux te familiariser avec le language, ce devrait t'aider.

EDIT* Pense a utiliser les balises , ca facilite la lecture.

A+

Juan

**miomikio** · 05/05/2007, 19h49

oui je sais deja la 2 eme erreur , tu ma pas compri je pense , moi je veux faire return record qui donne 3 choses differrent , ou moi j pas bien compri

il faut declare un variable local ds la function typo campi ?
vraiment j ai pas compris , moi la funtion il faut qu il done un record ??

**jc-miranda** · 05/05/2007, 21h10

Fais attention à ton écriture, ça déchire les yeux là.

Reprenons.
Tu déclares un type record qui s'appelle Campi.
Tu déclares une fonction Par qui doit retourner un record de type Campi.

Donc, dans la partie déclarative de ta fonction (entre le "is" et le "begin"), tu déclares une variable locale (My_Campi par exemple), et c'est cette variable que tu renseignes et retourne. Tu ne peux pas affecter des données directement dans un type record, ça ne marche pas comme cela.
Un type n'est pas une variable, donc tu ne peux pas faire Campi.blabla := ...;
Cela n'a pas de sens.

Le plus sérieusement du monde, lis les docs, ça t'aidera.

A+

**miomikio** · 05/05/2007, 22h38

vraiment tu m'a embete avec les doc enfin j ai reussi av l'aide d'un ami , et merci qd meme

et voila le code le 1 code test

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
with text_Io;
use text_io;
 
 
procedure parentesi is 
 
 
 
type campi is record
parentesi_aperte:natural;
parentesi_chuise:natural;
bilanciamento :boolean;
end record ;
 
L:campi;
text: string(1..30) ;
last :integer;
-------------------------------------------------------------------------------------
function par (x: string) return campi is
 
var : campi ;
char : character ;
cont:natural:=0;
cont2:natural:=0;
ok: boolean;
 
 
begin 
for i in x'range loop 
char:=x(i);
case char is
when '(' => loop 
cont :=cont + 1 ;
end loop ;
var.parentesi_chuise:=cont;
when ')' =>
loop 
cont2 :=cont2 + 1 ;
end loop ;
var.parentesi_aperte:=cont2;
when others => null;
end case;
end loop;
if var.parentesi_chuise=var.parentesi_aperte then 
ok:=true ;
var.bilanciamento:=ok;
end if ;
return var;
end par;