[D7] Affecter une string à TComponent.Text

Bonjour :D

Je n'arrive pas à trouver comment manier le string d'un TEdit de façon à lui affecter un '0,00'.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

sExtrapolName: String; TCEdit: TComponent; begin ... sExtrapolName := 'edtNameUnit'+'7'+'.Text'; // TEdit(Sender).Name := sExtrapolName; // (Sender As TEdit).name := sExtrapolName; // TCEdit := FindComponent(sExtrapolName); TCEdit := (FindComponent(sExtrapolName) As TEdit); // MON BUT SERAIT : TCEdit.Text := '0,00'; ... ...

---

C'est simplement cette manip qui échoue lamentablement.

Merci d'avance de vos lanternes,

DS7

Code:

---

sExtrapolName := 'edtNameUnit'+'7';

---

c'est le nom de edtNameUnit7 qui est utilisé par FindComponent,
.Text c'est une propriété et les RTTI c'est un peu plus complexe

Stéphane :coucou:

Oui mais ça m'avance pas trop car comment obtenir la RAZ du contenu string de l'Edit ainsi identifié ?

Je retombe toujours sur cette erreur :

Citation:

---

Types incompatibles : 'TComponent' et 'String'

---

:oops:

Le TCEdit.Text := '0,00'; ne passe toujours pas.

Bonjour,

peut être comme ceci:

Code:

---

1 2 3 4 5 6 7

var TCEdit: TEdit; begin TCEdit := TEdit(FindComponent('edtNameUnit7')); if Assigned(TCEdit) then TCEdit.Text := '0,00'; end;

---

Cordialement.

Citation:

---

Envoyé par Droïde Système7

Stéphane :coucou:

Oui mais ça m'avance pas trop car comment obtenir la RAZ du contenu string de l'Edit ainsi identifié ?

Je retombe toujours sur cette erreur :

:oops:

Le TCEdit.Text := '0,00'; ne passe toujours pas.

---

ton TCEdit est un TComponent pas un TEdit

Les copains :coucou: vous m'avez encore dépanné.

Cirec = :applo: désormais ça marche trop bien ;)

@ Paul : hé oui ça, je commençais à le savoir, mais la ligne qui "marchait môô" était une illustration explicative de la chose :P

Merci :chin:

DS7