bonjour,
Je souhaite ecrire et lire dans un fichier txt.
Voici mon programme
Je trouve cette methode tres bete car je suis obliger de recrire tous le fichier.
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 procedure TForm1.Button2Click(Sender: TObject); Var Fich_out : TextFile; Ligne_out : string; i : integer; begin //lire tous les fichier assignFile(fich_OUT,'d:\toto.txt'); reset(fich_out); ComboBox1.Clear; while not eof (fich_out) do begin readln(fich_out,Ligne_out); ComboBox1.Items.Add(Ligne_out); end; CloseFile(Fich_out); rewrite(fich_out); //Ecriture des ancienne ligne For i:=0 to combobox1.Items.count-1 do begin Ligne_out:=ComboBox1.Items[i]; writeLn(Fich_out,Ligne_out); end; Writeln(Fich_out,'toto'); //Ecriture de la nouvelle ligne CloseFile(Fich_out); end;
Avez vous d'autre methode plus simple ?
Partager