Discussion :

[leblanc.pascal]

bonjour,
je suis entrain de faire un travail en pascal. Mon programme doit accéder à un fichier texte nommé Résultat.txt. Voilà, j'ai commencé mon programme comme ceci pour tester et le compilateur ne fait qu'ouvrir une console dos et la referme !!!! Je crois que mon programme ne trouve pas le fichier texte et je ne c pas comment lui indiquer. Quelqu'un pourrait-il m'aider???

merci

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
unit plongeon;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;
 
type
  TForm1 = class(TForm)
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
Form1: TForm1;
resultats:text;
 
 
 
implementation
 
{$R *.dfm}
begin
 
assign(resultats,'resultats.txt');
reset(resultats);
readln(resultats);
close(resultats);

[PDelph7]

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
var 
 var F: TextFile; // F de type fichier texte
   FileName:string;
begin
FileName:='confi.txt';// ce fichier doit etre créer à l'avance
    AssignFile(F,FileName); //A partir de maintenant, F désigne le fichier portant comme nom le nom récupéré par OpenDialog1
    Reset(F); // ouvre le fichier F (F doit déjà exister)
    while not EOF(F) do // tant que l'on est pas arrivé à la fin du fichier
    begin
      Readln(F, L);// lit ligne du fichier et la met dans L puis se positionne sur la ligne suivante
       label1.Text:= 'Ce programme lit un fichier text ';
 
 
 
    end;
      CloseFile(F);
end;

[banban54]

bonjour!

n'oublie pas de mettre ton code entre les balises correspondante!!
essaie:

Code :

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

1
2
3
4
5
6
7
8
9
10
 
var
  Fichiertxt: TextFile;
  resultats : string;
begin
    AssignFile(Fichiertxt, 'Résultat.txt');
    Reset(Fichiertxt);
    Readln(Fichiertxt, resultats); 
    CloseFile(Fichiertxt);
end;

[Bleys]

Pour être sur que ton programme ne plante pas (fichier inexistant par exemple) deux solutions :

Code :

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

1
2
3
4
5
6

AssignFile(Fichiertxt, 'Résultat.txt');
If FileExist('Resultat.txt') then  Reset(Fichiertxt);
    Readln(Fichiertxt, resultats); 
    CloseFile(Fichiertxt);

Ou encore les balises

Code :

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

1
2
3
4
{$I-}
Reset(F);
{$I+}
If IOresult=0 then ...

[ShaiLeTroll]

Juste pour info

au lieu de "begin" on peut mettre "initialization", le code est executé au moment de l'initialize dans le dpr AVANT le lancement de la fenêtre ...

Si tu ne change pas la directive $I {$IOCHECKS ON/OFF} , tu écrire ceci :

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
var
  Fichiertxt: TextFile;
  resultats : string;
begin
    try
      AssignFile(Fichiertxt, 'Résultat.txt');
      Reset(Fichiertxt);
      try
        Readln(Fichiertxt, resultats); 
      finally
        CloseFile(Fichiertxt);
      end;
    except
      on E: Exception do OutputDebugString(PChar(E.Message));
    end;     
end;

le déclenchement d'une exception dans la clause initialization et finalization peut-être fatale pour un programme (Erreur Runtime 216 ...)

[Sub0]

L'utilisation du TStringList peut simplifier beaucoups de choses, surtout si le texte comporte des sauts de lignes et que souhaites extraire chaque ligne. De mémoire, voici un exemple :

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
Function MyLoadFile(FileName: String): Boolean;
Var f: TStringList;
    i: Integer;
Begin
  Result := False;
  f := TStringList.Create;
  Try
    f.LoadFromFile(FileName);
    If (f.Strings.Count > 0) Then Begin
      For i := 0 To f.Strings.Count - 1 Do
        ShowMessage(f.Strings[i]);
      Result := True;
    End Else
      ShowMessage('Le fichier est vide!');
  Except
    ShowMessage('Erreur durant l''ouverture du fichier!'); 
  End;
  f.Free;
End;

La méthode SaveToFile permet de réaliser l'enregistrement.
Ne pas oublier de libérer l'objet.

On peut également utiliser un TFileStream : Voir l'aide en ligne (touche F1).

L'utilisation des fonctions AssignFile() ... CloseFile() est, selon moi, plus réservée aux fichiers typés.

[ShaiLeTroll]

Effectivement, la TStringList fonctionne très bien, je l'ai utilisé à mes débuts pour charger des fichiers provenant d'AS400 de plus de 100Mo, faut juste avoir de la RAM sinon ça swappe

Ne pas oublier le Free, sinon, cela laisse trainer les chaines en mémoires ...

Code :

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

1
2
3
4
5
6
f := TStringList.Create;
  Try
    ...
  finally
    f.free();
  end;