Discussion :

[ApiDine]

Je fais du polymorphisme et dans ce cadre-là, je dois passer en paramètre une variable de type TextFile à plusieurs méthodes des classes dérivées.

Car j'ouvre et ferme un fichier en lecture coté GUI pour déterminer le type de ligne à lire, et le traitement de la ligne est effectué dans une méthode d'une classe dérivée.
A la compilation j'ai une erreur : E2002 Type de fichier non autorisé ici.

Si c'est dans les cordes de quelqu'un ça me rendrait service merci

ApiDine

[Eric Sigoillot]

Montre-nous un bout de code (juste le nécessaire), ton explication n'est pas très claire.

[ApiDine]

merci pour la réponse,
la partie GUI(d'ou j'appelle la fonction) :

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
 var
  fLecture :TextFile;
begin
 AssignFile(fLecture,'test.txt');
  Reset(fLecture);
  while not EOF(fLecture) do
  begin
    Line := TLine.Create;
    Read(fLecture,v_genre); 
    case v_genre of
      1 : Line := TLine2Integer.Create;
      2 : Line := TLine2Int1Str.Create;
    end;
  fileName:='test.txt';
  Line.ReadLine(fLecture,fileName);// appel de la fonction membre

la classe dérivée TLine2Integer de la classe polymorphe TLine:

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
 {------------}
  TLine2Integer=class(TLine)
    protected
    {données protégées}
    private
    {données privées}
      FArg1 :Integer;
      FArg2 :Integer;
    public
    {procedures, fonctions et données publics}
//******************************************************
      procedure ReadLine(var fLecture:TextFile;fileName:TSrt10);override;
//******************************************************
      function ReturnStrLine:TStr;override;
      function getFGenre:Integer;override;
  end;

en fait j'oubliais de passer la variable de type TextFile (dans la ligne isolée) par référence. Maintenant ça fonctionne.
encore merci
ApiDine