Discussion :

[Papy214]

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 ?

[ALWEBER]

Par un pointeur

[Andnotor]

Passer la liste et l'index en paramètre : function test(aList: TStrings; aIndex :integer): Boolean;

[Papy214]

Passer la liste et l'index en paramètre : function test(aList: TStrings; aIndex :integer): Boolean;

C'est le plus simple oui mais il me semblait qu'une longue discussion sur le sujet avait déjà été développée ici mais peut-être qu'il n'en était rien ressorti au final.
A force de lire tout ce qui se passe ici on finit par mélanger les choses

[Paul TOTH]

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(I: Integer): Boolean;
  begin
    Lst[I] := 'dddd';
    Result := True;
  end;
 
begin
  Lst := TStringList.Create;
  Lst.Add('toto');
  for I := 0 to Pred(Lst.Count) do
    begin
      test(I);  
    end;
  FreeAndNil(Lst);
end;

[Andnotor]

Le message n'est peut-être pas très bien choisi mais il n'y a pas d'alternative.

Tu récupères en fait une copie du pointeur de chaîne (Result de TStringList.Get) et lorsque tu la modifies il est possible qu'elle soit réallouée à une adresse différente. Comment la StringList pourrait-elle le savoir

C'est le même genre de problème que lorsque tu essaies de modifier un champ d'une propriété de type record et que tu obtiens le message "la partie gauche n'est pas affectable", tu travailles sur une copie du record et l'objet n'a pas conscience de cette modif.

[Paul TOTH]

quand on regarde à quoi correspond Lst[i] c'est assez logique en fait

Code :

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

property Strings[Index: Integer]: string read Get write Put; default;

Lst[i] c'est Lst.Strings[i] (grâce à default;), soit une propriété qui possède une fonction Get et une fonction Put..donc vouloir le mettre en var serait l'équivalent de ceci

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
function get: string;
begin
  Result : ='toto';
end;
 
procedure test(var s: string);
begin
end;
 
begin
  test(get);
end;

ce qui n'est évidemment pas possible.

après le fait qu'on puisse écrire s := lst[i] qui appelle Get et lst[i] := s qui appelle Put peut laisser penser que c'est une valeur qu'on peut passer en "var" alors que ce sont bien deux appels totalement différents.