Discussion :

[sp2308]

Bonjour

Je declare dans les uses une form UMesFonctions qui contient des fonctions perso
Je declare dans cette meme form dans Private des TSTringList (dont perm,perm_rme).

Dans UMesFonctions j ai la function suivante (juste pour essayer l appel...)

Code :

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

1
2
3
4
5
6
7
function CalculeMoyenne(perm:TstringList;Periode:Integer):TstringList;
  var
    ListRetour : TstringList;
  begin
    ListRetour:=TstringList.create;
    ListRetour.Add('abc'+inttostr(Periode));
  end;

J appelle depuis mon form pricipal avec

Code :

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

1
2
3
4
5
6
procedure TForm2.Button1Click(Sender: TObject);
begin
  perm_rme :=TstringList.create;
  perm_rme:=CalculeMoyenne(perm,5);
  memo1.lines.add(perm_rme[0]);
end;

Mais au lieu d afficher abc5 dans mon memo cela me declenche EAccessViolation.

Pourriez vous m indiquer ce que j ai mal fait svp.
Merci

[edam]

Code :

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

1
2
3
4
5
6
7
function CalculeMoyenne(perm:TstringList;Periode:Integer):TstringList;
  var
    ListRetour : TstringList;
  begin
    ListRetour:=TstringList.create;
    ListRetour.Add('abc'+inttostr(Periode));
  end;

ta fonction ne retourne rien

[Andnotor]

Parce qu'en gros, c'est l'inverse de ce que tu as codé

A moins que tu fasses un Result := ListRetour, cette variable ne sert à rien ! Crée directement Result.

Dans l'appel, ça ne sert à rien non plus de créer une instance de TStringList pour perm_rme puisque tu l'écrases par le retour de la fonction. Par contre. tu dois la libérer lorsque tu n'en as plus besoin.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
function CalculeMoyenne(perm:TstringList;Periode:Integer):TstringList;
begin
  Result := TstringList.create;
  Result.Add('abc'+inttostr(Periode));
end;
 
procedure TForm2.Button1Click(Sender: TObject);
begin
  perm_rme := CalculeMoyenne(perm,5);
  memo1.lines.add(perm_rme[0]);
  perm_rme.Free;
end;

[sp2308]

Merci beaucoup.

Toutefois une autre question.

Du coup, est il possible de retourner plusieurs TstringList ou autre, de même ou differents type ?

[Andnotor]

La fonction ne retourne qu'un seul résultat, mais tu peux passer des paramètres var ou out.
(On pourrait aussi imaginer retourner un array of TStringList, mais bon )

ps: TStringList est un type bien défini.

[sp2308]

merci pour ces reponses