Discussion :

[Droïde Système7]

Bonjour

Question bête comme choux :

Pour m'éviter de créer X procédures dans lesquels me faut le nom de la ligne écrite en cours (des Edit), je passe via un Sender.

Pas de soucis et j'ajoute aussi l'extension afin de reconstituer le nom complet de l'Edit.

OK, mais en fait, ce nom de composant reconstitué est traité comme un vulgaire string au lien d'être traité comme un nom d'Edit.

Autrement dit, par exemple le nom de ce compo est Edit1.text et le string reconstitué est exactement identique.

Pour illustrer cela, une simple affectation d'Edit sur le nom direct du compo = ça donne bien le contenu texte.

Par contre la même manip avec le nom reconstitué (via le Sender) retourne en affection... : le nom de ce compo

Merci d'avance de vos idées.

DS7

[tourlourou]

Bonsoir,

Pour illustrer ce qu'on peut faire (attention : l'esprit y est, mais c'est codé dans le forum...) de ce que j'ai cru comprendre de la situation :

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
function EditQuelEstTonNom(Sender: TObject): string;
begin
  if Sender is Tedit then Result := TEdit(Sender).Name;
end;
 
function EditQuelEstTonTexte(Sender: TObject): string;
begin
  if Sender is Tedit then Result := TEdit(Sender).Text;
end;
 
function EditPrendsCeTexte(aForm: TForm; aEditName, aText: string);
var
  aCompo: TComponent;
begin
  aCompo := AForm.FindComponent(aEditName);
  if aCompo is TEdit then TEdit(Compo).Text := aText;  
end;

[Droïde Système7]

Tourlourou

En fait je viens de percuter ma méprise :

Code :

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

SenderStr := (Sender as TEdit).Text; // .Name;

Hé oui la sortie est différente

En plus je récupère directement le string.

Tes fonctions me seront utiles.

Merci, affaire promptement résolue

DS7

[pprem]

Et en plus du nom des composants (qui sert plus à l'IDE pour faire le lien entre le DFM/FMX et le code source, puis pour nous déclarer des variables), on peut aussi dans le code accéder à la classe en tant que string si tu as besoin de savoir quel composant c'est. Il suffit d'utiliser la propriété ClassName.

Selon ce que tu fais, tu ne peux pas jouer avec "Name" pour être sûr du type, sauf si c'est un truc fait pour toi et que tu ne renommes jamais les composants. Donc si tu as besoin de traiter des infos pour tous le composants, passe par la classe, avec de la surcharge pour gérer les appels au bon niveau dans ton code ou ClassName pour avoir des infos à retraiter sous forme de variables.

[Droïde Système7]

Pprem

Visiblement ma notification était en vacances

Oui tu as raison, mais jonglant sur plusieurs langages, je ne peux trop approfondir certains.

Merci de tes précisions.

En plus je me borne à Delphi 7 pour éviter de me prendre trop le choux-fleur ; ainsi que tu dois te souvenir...

DS7