Discussion :

[Droïde Système7]

Bonjour

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

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

  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

[ShaiLeTroll]

Code :

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

 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

[Droïde Système7]

Stéphane

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 :

Types incompatibles : 'TComponent' et 'String'

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

[Cirec]

Bonjour,

peut être comme ceci:

Code :

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

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.

[Paul TOTH]

Stéphane

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 :



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

ton TCEdit est un TComponent pas un TEdit

[Droïde Système7]

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

Cirec = 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

Merci

DS7