bonjour !

ça fait longtemps que je n'ai pas touché à delphi et j'ai un probleme !

j'ai une erreur d'entré/sortie mais je pense avoir bien fait attention à la fermeture de mes fichiers texte et avoir bien déclarer l'utilisation ( append/reset )

voici mon code

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
if ((cat.ItemIndex = (-1)) and (key_word.Text <> '') and (sort.ItemIndex >= 0)) then
begin
 assignfile(lib,'bd_mum.txt');
 reset(lib);
 while not eof(lib) do       //<------- l'erreur se trouve la apparement
  begin
   readln(lib, transfer);
   cut(transfer);
     if (temp[i] = key_word.text) then
      begin
       closefile(lib);
       assignfile(bil,'search.txt');
       append(bil);
       writeln(bil, transfer);
       closefile(bil);
      end;
    end;
 closefile(lib);
 assignfile(lib,'search.txt');
 reset(lib);
 form6.result.clear;
 while not eof(lib) do
  begin
   readln(lib, transfer);
   form6.result.AddItem(transfer,form6.result);
  end;
 closefile(lib);
 form6.Show();
end;
si vous pouvez m'aidez vous eriez géniaux...

et surtout n'hésitez pas à me donner des conseils sur la façon de programmer...