[D7] Nom de composant et String du nom de ce composant

Version imprimable

30/07/2022, 21h25
Droïde Système7

[D7] Nom de composant et String du nom de ce composant

Bonjour :D

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 :oops:

Merci d'avance de vos idées.

DS7

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:

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;

30/07/2022, 21h58
Droïde Système7

Tourlourou :coucou:

En fait je viens de percuter ma méprise :

Code:

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

Hé oui la sortie est différente :oops:

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

Tes fonctions me seront utiles.

Merci, affaire promptement résolue :ccool:

DS7
31/07/2022, 08h27
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.
04/08/2022, 16h22
Droïde Système7

Pprem :coucou:

Visiblement ma notification était en vacances :oops:

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