[D5] récupération d’une instance de classe.

Version imprimable

Bonjour,
J’ai une feuille de saisie contenant un certain nombre de TEdits, de TComboBoxes et de TRadioButtons. Lors de la validation, avant d’enregistrer, je souhaite contrôler l’exhaustivité de la saisie. Je suis donc en train d’essayer de bâtir une fonction :

Citation:

ControlePresence(TObj : TControl) : Boolean;

Dans laquelle je passe l’objet à contrôler en paramètre et, dans un premier temps, s’il n’est pas vide la fonction doit retourner True.
Mon problème réside dans mon incapacité à récupérer l’instance de l’objet que j’envoie en paramètre. Je suis débutant, je me suis plongé dans le guide de F Beaulieu ainsi que dans la prose de Laurent Dardenne « Les références de classe ou métaclasses » mais je ne m’en sort pas.
Dans le code ci-dessous par exemple, le premier objet envoyé étant un TEdit, j’essaie de récupérer le contenu de la propriété Text mais je n’y arrive pas.

Citation:

Le Compilo me donne le message : Text identificateur non déclaré.

Pourtant mes showmessage successifs me donnent : TEdit comme TObj.ClassName.
Quelqu’un peut-il me sortir de l’ornière en m’expliquant ce que je ne fais pas correctement ?
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Function ControlePresence(TObj : TControl) : Boolean; var Edit : Tedit ; Combo : TComboBox; Radio : TRadioGroup; begin Result := False; if TObj is Tedit then begin showMessage('TObj est un: ' + TObj.ClassName); If TObj.InheritsFrom(Tedit) then begin showMessage('TObj est un: ' + TObj.ClassName); //Edit := Tedit.Create(TObj); //Edit.Parent := Self; //if TObj.Text <> '' then Result := True; //FreeAndNil(Edit);
J'ai aussi essayé avec un constructeur mais c'est pas mieux.
Merci.

19/05/2007, 14h57
Fabrice ROUXEL 1

Citation:

Le Compilo me donne le message : Text identificateur non déclaré.

Il faut transtyper l'objet pour avoir accès aux propriétés spécifiques.
(Voir opérateur as dans l'aide Delphi)

Bonjour ,
voici une fonction que j'ai devloppé pour fermer toutes les fenetres mdichild d'une aplication ça peut peut étre t'aider

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
function mCloseChild(Sender :TObject):Boolean;
var child : TComponent;   vi :integer ;
begin
WITH (Application.MainForm as TForm) do
   begin
    result := true;
    for vi := 0 to MDIChildCount -1 do
       begin
       Child := MDIChildren[vi];
       if Child.Owner.Name = (Sender as TComponent).name then
          begin
          (Child as TForm).Close;
          result:=  (Child as TStrdModelFrm).doclose;
          if result=false then break;
           end;
       end;
   end;
end;

bonne journée à tous :king:

19/05/2007, 20h08
MelkInarian

Citation:

Envoyé par atb

Bonjour ,
voici une fonction que j'ai devloppé pour fermer toutes les fenetres mdichild d'une aplication ça peut peut étre t'aider
bonne journée à tous :king:

Merci atb j'ai pu avancer grâce à ton code.:king: