Discussion :

[bencot]

Bonjour,

A partir d'un fichier texte, je cherche à transformer une chaine de caractère en un type property...(pas facile à expliquer).

exemple :
Je possède une form Form1 possédant un bouton Button1.
Dans un fichier texte, j'ai la chaine de caractère suivante : "Form1.Button1.caption". Ce que je cherche à faire, c'est remplacer cette chaine de caractère par la propriété caption du bouton.

J'espère être clair dans mon éllocution...

Merci d'avance pour toute l'aide que vous pourrez m'apporter.

--
Benoit

[Nono40]

Il faut procéder par étapes :
Décomposer ta chaine en trois morceaux :
Chercher la fiche
Chercher le composant
Affecter la valeur

En partant de
http://delphi.developpez.com/faq/?pa...roprieteparnom
http://delphi.developpez.com/faq/?pa...#findcomponent

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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
Function AffecteValeur(Composant:String;Valeur:String):Boolean;
Var NomFiche:String;
    NomCompo:String;
    NomProp :String;
    Fiche   :TForm;
    Compo   :TControl;
    i,j     :Integer;
begin
  Result:=False;
  // Recherche du nom de la fiche
  i:=Pos('.',Composant);
  NomFiche:=UpperCase(Trim(Copy(Composant,1,i-1)));
  // Recherche du om du composant
  j:=PosEx('.',Composant,i+1);
  NomCompo:=Trim(Copy(Composant,i+1,j-i-1));
  // Recherche du nom de la propriété
  NomProp :=Trim(Copy(Composant,j+1,Length(Composant)-j));
 
  // Tests
  If (i=0)Or(j=0)Or(NomFiche='')Or(NomCompo='')Or(NomProp='') then Exit;
 
  // Recherche de la fiche
  Fiche:=Nil;
  For i:=0 To Screen.FormCount-1 Do
    If UpperCase(Screen.Forms[i].Name)=NomFiche Then
    Begin
      Fiche:=Screen.Forms[i];
      Break;
    End;
  If Fiche=Nil Then Exit;
 
  // Recherche du composant
  Compo:=TControl(Fiche.FindComponent(NomCompo));
  If Compo=Nil Then Exit;
 
  // Mise à jour de la proriété
  If IsPublishedProp(Compo,NomProp) Then
  Begin
    SetStrProp(Compo,NomProp,Valeur);
    Result:=True;
  End;
end;

[bencot]

Merci pour ton aide, c'est exactement ce qu'il me fallait.
J'utilisais SetSetProp mais cela ne fonctionnait pas....

Encore merci

--
Benoit