Bonjour

Je crois me souvenir avoir vu une solution à ce "problème" que je peux facilement contourner.
Je voudrais juste savoir si ça vous parle.
La compilation me sort cette erreur et je pourrais bien sûr faire autrement mais la curiosité mal placée m'incite à poser la question ici.

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
 
procedure TFormMain.btnTestsClick(Sender: TObject);
var
  Lst: TStringList;
  I: Integer;
 
  function test(var S: string): Boolean;
  begin
    S := 'dddd';
    Result := True;
  end;
 
begin
  Lst := TStringList.Create;
  Lst.Add('toto');
  for I := 0 to Pred(Lst.Count) do
    begin
      test(Lst[I]);   // <------------------
    end;
  FreeAndNil(Lst);
end;
[dcc32 Erreur] UnitFormMain.pas(76): E2197 Un objet constante ne peut être passé comme paramètre Var
Il n'y a pas une manière élégante de contourner ça ?