Discussion :

[ice-t69]

bonjour,

Je suis tout débutant sous delphi et je n'arrive pas a ouvrir un fichier texte. Pourtant je fais bien ce qu'il faut (enfin je crois).

Code :

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

1
2
3
4
5
6
7
8
procedure TForm1.Button1Click(Sender: TObject);
var
  FichTest: TextFile;
begin
  AssignFile(FichTest,'c:\test.txt');
  Reset(FichTest);
  CloseFile(FichTest);
end;

Le programme se lance il y a pas d'erreur mais rien ne se passe le fichier ne s'ouvre pas.
si je change le nom du fichier a ouvrir il me marque bien une erreur.

merci de votre aide.

[bjl]

bonjour,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.Button1Click(Sender: TObject);
var
  FichTest: TextFile;
begin
  AssignFile(FichTest,'c:\test.txt');
  Reset(FichTest);
 
  {exploitation du fichier ouvert}
 
  CloseFile(FichTest);
end;

il faut utiliser le fichier entre Reset et CloseFile

CLoseFile referme le fichier

[Sub0]

Salut!

Le programme se lance il y a pas d'erreur mais
rien ne se passe le fichier ne s'ouvre pas.

Mais si il s'ouvre, seulement tu le refermes aussitôt !
Utilise Read ou BlockRead pour lire le contenu d'un fichier (voir l'aide avec la touche ).

Il existe d'autres solutions pour accéder au contenu d'un fichier texte, par exemple en utilisant la méthode LoadFromFile d'un TStringList, d'un TMemo, etc...


Lien tout en bas à gauche de cette fenêtre

[ice-t69]

salut,

Merci de vos réponses, je suis passé en fin de compte par un memo car même en rajoutant dans le code source(entre reset et close) 'readln' rien ne s'affichais.

merci.

[Pedro]

Salut
Avec ReadLn, tu n'affiches rien, tu ne fais que lire une ligne de texte dans un fichier ou une saisie clavier d'ailleurs
Pour afficher, il faut, une fois que tu as fait ReadLn, ajouter ce que tu as dans un composants (par exemple, un TMemo).

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
var f:TextTile;
     s:string;
begin
  AssignFile(f,'C:\LeFichierQueJeVeuxLire.txt');
  Reset(f);//Là tu dis juste que tu veux ouvrir le fichier en lecture
  while not (Eof(f)) do //tant que le fichier n'est pas terminé
  begin
    ReadLn(f,s);//Tu lis une ligne du fichier que tu mets dans s
    Memo1.lines.Add(s);//Tu ajoutes le contenu de s dans le Memo
  end;
  CloseFile(f); //Tu fermes le fichier
end;

Voila... Mais l'ouverture avec une TStringList est beaucoup plus facile