Discussion :

[the-big-boss]

je suis un debutant avec la programation en delphi7
j'ai rencontrer un problem
je veux programer un bouton qui enregistre des données dans un fichier a partir d'un stringgrid a l'aide d'un savedialog et un autres bouttons qui charge les données au stringgrid a partir d'un fichier a l'aide d'un opendialog

et merci d'avance pour m'aider

[Andry]

N'ayant pas connaissance de la structure de ton stringGrid, je vais te donner un truc générique pour l'enregistrement/lecture dans un 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
34
 
procedure TForm1.LoadDataFromFile(aFileName: String);
var aLines : TStrings;
begin
  aLines := TStringList.Create;
  try
    aLines.LoadFromFile(aFileName);
    TextToStringGrid(aLines);
  finally
    Free;
  end;
end;
 
procedure TForm1.SaveDataFromFile(aFileName: String);
var aLines : TStrings;
begin
  aLines := TStringList.Create;
  try
    StringGridToText(aLines);
    aLines.SaveToFile(aFileName);
  finally
    Free;
  end;
end;
 
procedure TForm1.StringGridToText(var aText: TStrings);
begin
  //Ici routine pour transformer les lignes de ton StringGrid vers une StringList.
end;
 
procedure TForm1.TextToStringGrid(aText: TStrings);
begin
  //Ici routine pour transformer les lignes de ton StringList vers le StringGrid
end;

Tu devras te taper les 2 routines TextToStringGrid et StringGridToText.
Maintenant sur le clic d'un bouton, tu n'as juste qu'à faire :

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
 
//Chargement via fichier
  With TOpenDialog.Create(Nil) do
  try
    Filter := 'Tous|*.*|Fichier Texte|*.txt';
    DefaultExt  := '.txt';
    if Execute then
      LoadDataFromFile(FileName);
  finally
    Release;
  end;
//Enregistrement dans un fichier
  With TSaveDialog.Create(Nil) do
  try
    Filter := 'Tous|*.*|Fichier Texte|*.txt';
    DefaultExt  := '.txt';
    if Execute then
      SaveDataFromFile(FileName);
  finally
    Release;
  end;

Voilà si ça peut t'aider

[the-big-boss]

merci bien andry
you have been soo helpfull

[Andry]

Y a pas de Quoi.

Si c'est résolu, alors

[paposdream]

voila un composant qui peu vous aidez.
si t'a besoin d'aide hésite pas a me contacter.

[Charly910]

Bonjour,

sur le site de Fobec tu as un moyen simple de le faire :

enregistrer une grille dans un fichier

A+

Charly

Ajout : et aussi sur la FAQ