Discussion :

[WebPac]

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.

[denokan]

salut

j'ai recemment eu le même soucis en vba, j'ai contourné le problème en modifiant ma procedure modifiante, par ex :

Code :

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

1
2
3
4
5
6
7
8
 
function InsureSlashFinal(aChemin : String);
begin
...
  InsureSlashFinal := blablabla
end;
 
MaComboBox.Caption := InsureSlashFinal(MaComboBox.Caption)

[qi130]

Pourquoi une procédure et pas une fonction ?


Regarde aussi si tu disposes de la fonction IncludeTrailingBackslash, ou mieux de IncludeTrailingPathDelimiter.

Pour contourner le pb du TCaption, utilises l' Items[itemindex] ?

[Philippe Gormand]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Procedure Affiche(S : TComboBox);
Begin
   S.Text := 'Toto';
End;
 
Procedure TForm1.Button1Clicl(Sender : TObject);
Var
   S  : String;
 
Begin
     S := Toto;
     Affiche(ComboBox1);
End;

Si ça peut te mettre sur la voie.

La procédure Affiche, pointe sur l'objet ComboBox1.

A+

[WebPac]

Pourquoi une procédure et non une fonction ?
Pour ne pas qu'il y ait une possibilité d'erreur de manipulation dans le futur (oublie de mettre MaVar := ...). Et pour ne pas avoir à écrire 2X la même variable à chaque fois que j'utilise la méthode.

J'aurrais utilisé une fonction si la valeur en paramètre et la valeur de sortie n'étaient pas forcément la même variable, dans le cas présent, c'est forcément le cas, donc j'ai pensé qu'une procédure était plus conseillée.

Je vais regarder du côté de IncludeTrailingBackslash et de IncludeTrailingPathDelimiter, je ne connaissais pas ces méthodes merci.

Philippe Gormand, salut, je ne vois pas ce que je dois comprendre avec ton exemple.

[Philippe Gormand]

Dans mon exemple :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Procedure Affiche(S : TComboBox);
Begin
   S.Text := 'Toto';
End;
 
Procedure TForm1.Button1Clicl(Sender : TObject);
Begin
     Affiche(ComboBox1);
End;

Je montre que la procédure Affiche pointe directement sur l'objet "Comobox1", et toutes ses propriétés deviennent accessibles.

Tu pourais faire :

Code :

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

1
2
3
4
5
6
 
procedure InsureSlashFinalCaption( var aCaption : TComboBox);
begin
  if RightStr( aCaption.Text, 1 ) <> '\' then
    aCaption.Text := aCaption.Text + '\';
end;

La propriété Text est un dérivé de TControl.
Regarde l'utilisation de la propriété SelText de TComboBox. C'est une autre façon d'accéter au contenu du ComboBox.

[WebPac]

Ton exemple ne marche que pour les ComboBox, je voudrais pouvoir le faire indépendament du composant.

SelText retourne juste le texte sélectionné et je ne peux pas utiliser Items[itemindex] car le texte n'est pas forcément dans la liste des items, la Combobox n'étant pas en DropDownList mais juste en DropDown.

Pour l'instant, je le fais à la main espérant comprendre cette erreur un jour.

[tourlourou]

le type TCaption est déclaré protected dans TControl : il est accessible directement en lecture, mais passe par un setter en écriture : voici sûrement l'explication : il est donc comme en lecture seule vis-à-vis du paramétre var...

[WebPac]

Je viens de vérifier et ce sont les property des classes qu'on ne peut passer en var d'une procédure. Ce n'est pas seulement pour les property qui possèdent un Setter en write mais aussi les property ayant un write sans Setter.

Cette limitation est vraiment fort dommage, va falloir que je trouve une autre solution.

Je mets en [Résollu] puisqu'on sait d'où vient l'erreur de compilation.

[denokan]

peut-être que ce post pourrai t'aider
http://www.developpez.net/forums/sho...light=property

[WebPac]

Merci denokan pour la recherche que tu as effectué, mais je pense que je fais revenir à une méthode plus classique, soit le faire "à la main" soit avec IncludeTrailingPathDelimiter, c'est plus simple que de devoir passer par des fonctions qui travaillent sur les champs publiés d'un objet.

Le but était surtout de comprendre le message d'erreur de compilation et s'il existait une solution simple et efficace.