Discussion :

[BlackMulet]

Bonjour,
je voudrais savoir s'il y a moyen de faire passer une chaîne par adresse dans les paramètres d'une fonction afin d'éviter les recopies.
Merci

[ShaiLeTroll]

En Delphi, il y a un mécanismes de compteur de référence qui réduit les copies ... mais j'ai quelques difficultés pour savoir sur quelle type de variable (locale, membre objet, globale ...)

sinon, tu as les mots clés var et const

[Dr.Who]

pour une methode, la plupart du temps c'est plus rapide d'utiliser "const" :

Code :

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

function untruc(const S: string): quelquechose;

methode la plus courrante qui permet de faire :

unTruc('bonjour');
unTruc(S);
unTruc(Edit1.Text);

aprés tout depend de ce qu'il se passe dans la fonction.


on peu egalement la passer par pointeur, ce qui est bien aussi quand on crée une DLL :

Code :

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

function untruc(const pS : PChar): quelquechose;

unTruc(PChar(S))
unTruc('bonjour');
unTruc(Edit1.GetText);

la methode la moins performante etant de faire ceci :

Code :

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

function untruc(s : string): quelquechose;

unTruc(S);
unTruc('bonjour); // erreur
unTruc(Edit1.Text); // erreur


on utilisera var dans ce cas, S doit etre lue puis peut être assignée, force l'utilisation d'une variable pour S :

Code :

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

1
2
3
4
5
procedure unTruc(var S: string);
begin
  if S = 'quelquechose' then
    S := 'untruc';
end;

et on utilisera out dans ce cas, S n'est jamais lues mais peut être assignée, force l'utilisation d'une variable pour S :

Code :

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

1
2
3
4
procedure unTruc(out S: string);
begin
  S := DateToStr(Now); // S = 28/10/2009 15h30
end;

et bien sur, S peut être lue mais ne sera jamais assignée :

Code :

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

1
2
3
4
5
6
 
procedure unTruc(const S: string);
begin
  if S = 'quelquechose' then
    halt(0);
end;

[Rayek]

la methode la moins performante etant de faire ceci :

Code :

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

function untruc(s : string): quelquechose;

unTruc(S);
unTruc('bonjour); // erreur
unTruc(Edit1.Text); // erreur

Bizarrre moi je n'utilise que cette méthode en général et j'ai pas d'erreur avec 'Bonjour' ou Edit1.text ??

Normalement quand on mets rien, ce n'est pas const qui est utilisé par défaut ?

[ShaiLeTroll]

Idem que pour Rayek, cela fonctionne très bien chez moi aussi !

Sinon, non const n'est pas le mode par défaut, qui lui duplique les valeurs, car l'on peut modifier la valeur du paramètre localement à la fonction sans modifier la valeur d'origine, ... cela duplique vraiement (je parle pas du compteur de référence qui optimise cela)

Sinon, idem, j'utilise const à 90% par ce qu'en Delphi 3, tu voyais vraiement la différence, même rapport au compteur de ref, ...

[BlackMulet]

Merci pour vos réponses. Avec const c'est parfait

Par contre en retour de fonction comment ça se passe ?

Avec un code du genre :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
function Toto: String;
begin
  Result := 'la chaine de retour';
end;
 
...
 
var
  MaChaine: String;
 
begin
  MaChaine := Toto;
end;

Combien y a t il de recopie de chaine ?