Discussion :

[miss fleur]

salut tout le monde!
j'ai un problème "comment lire un fichier texte ligne par ligne sous delphi'

[SergioMaster]

un peu de recherche dans les cours proposés sur le forum
http://bodman.developpez.com/ESdelphi/

[Dr.Who]

Sur delphi et d'une manière générale -> TStringList

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
 
uses 
  Windows, SysUtils, Classes;
 
function traiterLigne(var aStr: string): boolean;
begin
  result := false;
 
    aStr := {Faire quelque chose sur aStr};
 
  result := true;
end;
 
procedure traiterFichier(aFileName: string);
var N: integer;
     L : string;
begin
  if not FileExists(aFileName) then exit;
 
  with TStringList.Create do
  try
    LoadFromFile(aFileName);
    for N := 0 to Count-1 do
    begin
      S := strings[N];
      if traiterLigne(S) then
        strings[N] := S;
    end;
    SaveToFile(aFileName);
  finally
    Free;
  end;
end;

[MCoder]

Inspire toi un peu de ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
if FileExists(NomFichier) Then  //.. Si NomFicher existe alors exécuter le reste du code.
begin
    AssignFile(MonFichier, NomFichier);
    Reset(MonFichier);  //.. On se met au début du fichier
 
    While NOT EOF(MonFichier) Do //.. Pour parcourir le fichier
       begin
           Read(MonFichier, MaLigne);
 
           // Faire tes traitements
       end;
end;

[miss fleur]

merci à vous tous pour votre aide, c'est très gentil de votre part .