Discussion :

[gudul]

Bonjour,

J'aimerais savoir comment passer un File en parametre ou via une property.
Je voudrais utiliser le fichier ouvert dans mes objets.

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
 
 
  TFichierPrepa = class
  private
    FNomFichier: String;
    FFile: File;
    FBuf: array[0..1024] of Char;
  public
    constructor Create(ANomFichier: String);
    destructor Destroy; override;
    property F: File read FFile write FFile;
  end;
 
  TDmPreparation = class(TDataModule)
  private
    { Déclarations privées }
    FFile: File;
    FFichUtilisateur: TFichierPrepa;
  public
    Init;
    property F: File read FFile write FFile;
    property FichUtilisateur: TFichierPrepa read FFichUtilisateur write SetFichUtilisateur;
  end;
 
...
procedure TDmPreparation.Init;
begin
  AssignFile(F, MONFICHIER);
  try
    Rewrite(F, 1);  // Efface le fichier s'il existait déjà
    FichUtilisateur.F := F;  //[Erreur] (1152): Opérateur non applicable à ce type d'opérande
...
end;

merci

[Dr.Who]

TFileStream!

"File" c'est pour les dinosaures!

[Charly910]

Bonjour,

@ Dr.Who : est ce que c'est valable aussi pour les fichiers textes ?

J'utilise toujours TextFile comme dans l'aide de D7, avec AssignFile et par exemple Writeln

TFileStream ne parait pas très pratique pour du texte ?

@+
Charly

[az0101]

TFileStream!

"File" c'est pour les dinosaures!

Ou alors l'API Windows sur laquelle est basée TFileStream avec:
OpenFile()
CloseHandle()
ReadFile()
WriteFile()
SetFilePointer()

L'avantage dans le contexte donné par gudul c'est que le fichier peut être simplement représenté par son Handle, reçu par OpenFile(), et des lors la classe peut utiliser des méthodes simples en passant les Handles en paramètres Var const etc.

En plus c'est quasimment identique aux Stream de fichier, si ce n'est que SetFilePointer à l'air un peu plus obscur que seek, même si c'est la même chose.

[Dr.Who]

pour les fichiers textes : TStringList.

c'est quand même plus pratique.

surtout qu'aprés, on peux passé les objets en arguments de fonctions trés facilement.

[Charly910]

OK Dr.Who, mais avec TStringList, il faut se payer un décodage de la ligne, alors que avec Readln on récupère directement des valeurs réelles ou entières par exemple (ou encore de chaines)

jusqu'à présent j'ai toujours fait avec readln et writeln ...

Si tu me dis que c'est mieux avec des StrinList je vais essayer

(comment tu fais pour séparer des valeurs sur une même ligne qui sont séparées par des espaces ?)

A+

Charly

[Dr.Who]

ah tu travail uniquement en programme console ?

[ShaiLeTroll]

La TStringList, la solution du Goret, chargé tout un fichier en mémoire, c'est vrai, que c'est vraiment très élégant !

Je suis d'accord avec toi Charly910, il est impensable que CodeGear n'est pas fait un TTextStream avec les fonctions de formatage du WriteLn\ReadLn, c'est vieux, cela date du Pascal, cela aurait mérité d'être dépoussiéré !

utilise le Type TTextRec

Sinon, j'ignore si tu as une obligation de structure de ton fichier (espace pour séparer les champ ?, c'est vieillo) mais la gestion par Stream Binaire peut-être plus rapide, plus efficace, et coder ses propres fonction de parsage (surtout que c'est fun, moi j'adore) permet de mieux controller les données erronnées d'un fichier... tu as la fonction Explode (et ExplodeLazy) sur le forum pour décomposer une chaine, tu peux même utiliser une TStringList avec la propriété DelimitedText ... ou encore la fonction ExtractStrings fourni par Delphi ...

ou alors utilise un XML, si tu es libre du choix technique, c'est tout de même plus ouvert, plus modulable...

[Charly910]

OK, merci à vous 2 pour ces conseils.

C'est vrai que j'utilise des méthodes un peu vieillottes. Je fais des programmes scientifiques en amateur - j'utilise souvent les fichiers texte pour stocker les données. Je fais la même choses pour les résultats et j'utilise souvent Notepad pour afficher et imprimer la note de calculs.

A+

Charly