ecriture dans un fichier text

**lerouzes** · 11/01/2006, 18h03

bojours a tous,
je souhaiterai pouvoir enregistrer des données (TComboBox,TEdit,TTrackBar) dans un fichier texte et lire des données de fichiers text.J'ai déjà essayé avec Write dans une nouvelle procédure mais j'ai pas la bonne syntaxt. Quelqu'un pourrai-t-il m'aider pour obtenir la bonne syntaxe pour réussir cet enregistrement?
Merci d'avance

lerouzes

**jmjmjm** · 11/01/2006, 18h06

Il faut utiliser Readln pour lire regarde l'aide delphi sur
- AssignFile
- Readln

Tu trouverras toute l'aide que tu as besoin

BONNE PROG !!

**lerouzes** · 11/01/2006, 18h58

J'ai écrits:

var
F: TextFile;
SaveDialog1: TSaveDialog;
Combobox_Da1Adr: TComBox.
begin
if SaveDialog1.Execute then begin
AssignFile (F,SaveDialog1);
Write(F, Combobox_Da1Adr);
end;
CloseFile(F);
end;

Et le message d'erreur est type illégal ds une instruction Write et Déclaration forward ou external non satisfaite: TForm_Principal qui est le nom de ma page principale.
Voyez vous les erreurs de syntaxes?

**bjl** · 11/01/2006, 19h05

Bonjour,

essayez d'utilier les balises 'code', ce sera plus clair.

Pourquoi SaveDialog1 est il en déclaration var ? il devrait être sur la Form et si il l'est, il est inutile de le rappeler dans les var de la fonction.

pareil pour le combobox.

pour le nom de fichier à écrire,
AssignFile (F,SaveDialog1.fileName);

Write(F, Combobox_Da1Adr); ne fonctionnera pas.
Un TCOmboBox n'est pas du texte, c'est un objet.

**lerouzes** · 11/01/2006, 19h14

Oui j'ai du mettre SaveDialog1: TSaveDialog; et ComboBox_Da1adr:TComboBox; en variables locales car il me disait par exemple: Identificateur non déclaré :'SaveDialog1' .
Sinon que dois-je mettre dans Write pour pouvoir écrire la valeur d'une ComboBox?
J'ai mis alors: Write(F,ComboBox_Da1Adr.Text), est-ce corrcte?
Merci d'avance

**bjl** · 11/01/2006, 19h23

Il faut poser une savedialog sur la form.

pour mémoriser tous les items du combobox,

Write(F,ComboBox_Da1Adr.Items.Text)

TcomboBox.text, c'est uniquement le text qui est sélectionné à l'instant T

**lerouzes** · 11/01/2006, 19h33

oui mon ComboBox est dans une TabSeet qui est dans une Form.J'ai commencé par mettre mon Save dialog dans la form, mais dois-je le mettre dans la TabSeet?

Car j'ai essayé d'en mettre un autre sur le TabSeet, appelé SaveDialog2, et il me mets comme message d'erreur à la compilation:Identificateur non déclaré:'SaveDialog2'
Je ne comprends pas ca!!

**bjl** · 11/01/2006, 19h39

quelle est la structure de ton application ?

plusieurs forms ? si oui, dans laquelle sont les éléments que tu veux sauvegarder ?

de quel type est la fonction ou procédure dans laquelle tu essaies d'écrire ton fichier ?
Procedure TForm.maprocedure ou Procedure maprocedure ?

**lerouzes** · 11/01/2006, 19h51

Ma ComboBox est ds une TabSheet qui est elle meme dans ma form principale.Mon application ne posséde qu'une form dans laquelle il y a 3 TabSheet et dans lesquelles il y a donc des ComboBox et autre dont je dois enregistrer les valeures dans un fichier text.
Le probléme est que je n'ai jamais gerer d'enregistrement, je ne sais pas comment faire.

Pour la fonction ou procédure dans lequel je dois l'ecrire je ne l'ai pas défini, je ne savais pas qu'il fallait en définir un, et je ne sais pas comment le définir...
Merci de ton éclairage...

**bjl** · 11/01/2006, 20h06

un petit exemple commenté

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
34
35
36
37
38
39
40
41
42
43
44
45
46
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls;
 
type
  TForm1 = class(TForm)
    SaveDialog1: TSaveDialog; // la savedialog1 a été posée sur la form
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    ComboBox1: TComboBox; // appartient à TabSheet1
    ComboBox2: TComboBox;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject); // ma procédure est une procédure de TForm1
Var
  F: TextFile;
begin
If SaveDialog1.Execute then
  Begin
  AssignFile (F,SaveDialog1.FileName);
  Rewrite(F); // ne pas oublier rewrite, sinon erreur I/O
  Writeln(F, Combobox1.items.text);
  CloseFile(F); // le closefile à l'intérieur du Begin/end
  End;
end;
 
end.

**lerouzes** · 11/01/2006, 20h12

ok c'est génial ce que t'as envoyé, je devrai pouvoir m'en sortir avec ca.Merci beaucoup de ton aide plus que précieuse.

**lerouzes** · 11/01/2006, 22h23

c'est bon j'ai écrit le programme, il n'y a plus de probléme, par contre il enregistre ts les items et pas celui celectionné...Je pense qu'il faut changer Combobox1.items.text dans le Writeln, qu'en pensez-vous?
MERCI

**bjl** · 11/01/2006, 23h29

si vous désirez enregistrer uniquement l'item sélectionné
Writeln(F, Combobox1.text);
si vous désirez enregistrer tous les items
Writeln(F, Combobox1.items.text);

**lerouzes** · 12/01/2006, 08h14

merci ca marche nickel, mais il m'enregistre toutes les données des ComboBox sur la même ligne.Puis-je les lui faire écrire ligne par ligne pour que ce soit bien lisible?
MERCI

**bjl** · 12/01/2006, 10h02

il faut utiliser WriteLn et non Write

**lerouzes** · 12/01/2006, 10h21

ok j'ai utlilisé plusieurs Writeln et ca marche.
Par contre maintenant que j'ai enregistré ttes mes données en lignes dans un fichier text, comment puis-je relire ce fichier text a partir de mon application?J'ai posé un OpenDialog1 dans la forme et a son ouverture j'essai d'utiliser readln pour relire le fichier mais je ne parviens pas...
Pourais-je avoir quelques lignes de codes comme precédement pour lire des données de ComboBox à partir d'un fichier text?

Merci d'avance pour tout

**Lung** · 12/01/2006, 10h45

Tu veux écrire le contenu de ton fichier dans ta ComboBox ?

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
var
   szValeur: String
begin
   If OpenDialog1.Execute then 
   begin 
     AssignFile (F,OpenDialog1.FileName); 
     Reset(F); // ne pas oublier
     while not EOF(F) do
     begin
        Readln(F, szValeur); 
        Combobox.Items.Add(szValeur);
     end;
     CloseFile(F); 
   end; 
end;

**lerouzes** · 12/01/2006, 11h03

Le probléme est que j'ai un textbox, 10 ComboBox et 3 tractBar dont j'ai enregistré les donnés en fichier text.Alors quel serai le code pour reécrire ces differentes données a leur place sachant que j'ai fais mettre ces données en colonne dans le fichier texte?
Merci pour vos réponses en ligne de code c'est génial

**Graffito** · 14/01/2006, 12h53

Une suggestion : Abandonnez les readln et writeln et utilisez des tstringlist.

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
20
21
22
23
24
 
var tsl:tstringlist ;
begin
//creation object
tsl:=tstringlist.create ;
 
// creation des lignes et sauvegarde fichier
tsl.clear ;
tsl.add('COMBO1Text='+combo1.text) ;
tsl.add('EDIT1Text='+edit1.text) ;
...
tsl.savetofile('c:\mydir\myfile.txt') ;
 
 
...
// lecture tsl et affiche chaque ligne
tsl.loadfromfile('c:\mydir\myfile.txt') ;
for i:=0 to tsl.count-1 do showmessage(tsl[i]) ;
 
// utilisation de la propriétés value
showmessage(tsl.values('COMBO1Text')) ;
 
// liberation object
tsl.free.

**renorx** · 30/04/2006, 16h29

Bonjour à tous! Bonjour Graffito!
C'est en cherchant de l'aide sur les TStringlist que je suis tombé sur ce post.

Très intéressant puisqu'il m'a permis de comprendre assez vite les "bases" d'utilisation de ce composant...

Si je reprends ton exemple vers la section (//création des lignes et sauvegarde fichier): je dispose d'un timer qui fait que toutes les 5 secondes, j'ai des captions de Label qui sont enregistrées dans un fameux fichier texte.

J'ai repris une partie de ton code, et tout marche bien. Les données sont bien capturées et enregistrées dans le fichier texte. Cependant, toutes les cinq secondes, les données sont écrasées dans ce fichier, et non pas mise à la suite les unes des autres...et je ne vois pas trop comment faire.

J'ai bien essayé, par exemple, d'insérer un saut de ligne après les captures de mes labels (#13#10) pensant qu'une deuxième ligne serait créée, mais nada, je ne dispose qu'une seule ligne qui se met à jour toutes les cinq secondes...

Aurais-tu (ou qq'un d'autre) une idée sur la chose, s'il te plaît?

ecriture dans un fichier text

Langage Delphi

Discussions similaires

Partager

Partager