Bonjour tout le monde,

je désirais faire cette fonction :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
procedure InsureSlashFinal( var aChemin : string );
begin
  if RightStr( aChemin, 1 ) <> '\' then
    aChemin := aChemin + '\';
end;
Tout se passe bien avec des strings, j'ai voulu faire de même avec le texte d'une Combobox, il me dit que les types doivent être les même (string et TCaption), donc je double la fonction et fait celle-ci :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
procedure InsureSlashFinalCaption( var aCaption : TCaption );
begin
  if RightStr( aCaption, 1 ) <> '\' then
    aCaption := aCaption + '\';
end;
Mais à ce moment là, il me donne comme erreur de compilation :
Un objet constante ne peut être passé comme paramètre Var
L'aide de Delphi ne donne rien pour ce message. Et je ne vois pas trop comment je pourrais faire pour que ça fonctionne. Ce serrait si pratique.