Discussion :

[jeanmy]

bonjour,

Je souhaite ecrire et lire dans un fichier txt.

Voici mon programme

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;

Je trouve cette methode tres bete car je suis obliger de recrire tous le fichier.

Avez vous d'autre methode plus simple ?

[cadetill]

Salut

Regarde du cote du TStringList et ces metodes LoadFromFile et SaveToFile (on doit penser que la propieté Items de combo est un TStrings )

A+

[Yurck]

Bonjour,

Append

et je livre mes sources (F1 sous delphi)

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
 
  f: TextFile;
begin
  if OpenDialog1.Execute then
  begin                    { Ouverture d'un fichier texte }
    AssignFile(f, OpenDialog1.FileName);
    Append(f);
    Writeln(f, 'J''ajoute quelque chose à la fin du fichier.'); 
    { Insérer ici un code nécessitant un Flush avant de fermer le fichier }
    Flush(f);  { Pour que le texte soit réellement écrit dans le fichier }
    CloseFile(f);
  end;
 
end;

Ceci dit si tu veux remplir ta combobox essie

Code :

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

1
2
 
  ComboBox1.Items.LoadFromFile('d:\toto.txt');

a+

[Sub0]

Juste pour info, il n'est pas possible d'insérer des données au début d'un fichier sans être obligé de le reécrire en entier (faire une copie). La fonction Append n'est valable que dans le cas où l'on veut ajouter des données à la fin du fichier, à+

[Bleys]

Petite question :

C'est la premièrefois que jefois ce FLUSH pour un fichier texte (ou fichier tout court même) ... à quoi sert-il ?

[Reisubar]

Je te conseille vivement d'utiliser un TStringStream plutôt qu'un TextFile, c'est nettement plus agréable à manipuler...

[Jipété]

C'est la premièrefois que jefois ce FLUSH pour un fichier texte (ou fichier tout court même) ... à quoi sert-il ?

Ça vide le cache disque : on est sûr (normalement - lol) que c'est écrit sur le dur. Sinon, y a toujours un 'tit temps de latence, et si la machine crashe *juste avant*, t'as tout paumé !

HTH,
JP

[Bleys]

D'accord, merci de ton aide