Discussion :

[pacsems]

salut tt lmonde! bon ca fait pas trés longtemps que j'utilise deplohi(version7) donc, je suis pas vraiment expert !

alors voila, je suis entrain de faire un programme ou j'utilise un tableau(m,n) de type STRING,et je voudrais pouvoir enregistrer les donnés dans un fichier.jai mis une SAVEDIALOG et une OPENDIALOG, jai ecri les algorithmes(relatifs aux boutons :enregistrer et ouvrir) mais il semblerait qu'il y ait un probléme dans mes algo.

donc voila si quelqu'un peut m'envoyer les algorithmes nécéssaires pour faire tout ca, ou bien de carément envoyer un petit programme demo,ou il ya juste un tableau de type STRING (les données du tableau son prises a partir d'un STRINGGRID sur la premiére forme du programme)et des boutons 'enregistrer' et'ouvrir' ca serait trés trés sympa! parce que la je deprime..j'y arrive vraiment pas!

merci davoir pris le temps de lire mon message. jéspére que quelqu'un pourra m'aider! ++

[Linkin]

Mets-ton code, ça nous aidera.

[Graffito]

Bonjour,

Pour la sauvegarde/restauration de tableau, on peut faire ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Var myStringlist : Tstringlist ;
...
myfilename:='c:\xxx\yyy.txt' ;
...
for i:= 0 to m-1 do for j:=0 to n-1 do MyStringlist.add(tableau[i,j]) ;
MyStringlist.savetofile(myfilename) ;
...
MyStringlist.loadfromfile(myfilename) ;
If MyStringlist.count=m*n 
 then for i:= 0 to m-1 do for j:=0 to n-1 do tableau[i,j]:=MyStringlist(i*n+j) 
 else showmessage('Erreur taiile tableau')

[pacsems]

ok merci vrmn bcp(meme si j'ai pas trés bien compris le truc) lol enfin voila ce que j'ai fait chez moi: jai declaré le tableau comme ceci :

Code :

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

1
2
3
Ttableau = array[0..1000] of array[0..9] of string; 
...
T:Ttableau;

rmq: les valeurs entrées dans le tableau sont tirées d'un STRINGGRID sur une forme du programme!le tableau comporte 9 colonnes et 'unit1.n' lignes!

bon aprés jai mis le SAVEDIALOG et le OPENDIALOG sur la meme forme du stringgrid. et jai mis deux boutons OUVRIR et ENREGISTRER, voila les algortithmes associés aux deux boutons:

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
procedure TForm1.enregistrer1Click(Sender: TObject);
type fichier=textfile;
var
f:fichier;
i,j:integer;
begin
if savedialog1.execute then
begin
assignfile(f,savedialog1.filename);
rewrite(f);
for i:=1 to unit1.n do
for j:=1 to 9 do
write(f,t[i,j]);
closefile(f);
end;
end;

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
procedure TForm1.ouvrire1Click(Sender: TObject);
type fichier=textfile;
var
f:fichier;
i,j:integer;
x:string;
begin
if opendialog1.execute then
begin
assignfile(f,opendialog1.filename);
reset(f);
for i:=1 to unit1.n do
for j:=1 to 9 do
begin
read(f,x);
t[i,j]:=x;
end;
closefile(f);
end;
end;

voila:aprés jouvre mon programme,je mets des valeurs dans le tableau,je mets 'enregistrer', je sauvgarde dans un fichier tout a fait normalement,mais aprés quand je reouvre le fichier que jai sauvegardé,il me met toutes les valeurs dans la premiére case du tableau(tout dans t[1,1])

svp quelqu'un saurait d'ou vient le probléme??!! svpppp!!!please heelp!!!!

[edam]

Normalement je déteste le "textfile", il y a plus d'une méthode pour le remplacer; fichier typer (file of char,) TStrings comme ta dit Graffito, ou autre
pour ta méthode pour l'enregistrement essaye

Code :

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

1
2
 
write(f,t[i,j]+#13#10);

pas testé

[pacsems]

merci edam! jai essayé ton truc mais ca ne marche pas non plus :s
merci a toi aussi Graffito, mais jai meme pas su utiliser ta méthode puré chui nul!!!

[edam]

comme tu débutant , pour la méthode de grafito, fait comme suit,
1-ajoute une listbox à ta form
2-ecrit tes string de dans avec listbox1.items.add(s)
3-enregistre avec Listbox1.savetofile(nomfichier)
4-lire: listbox1.loadfromfile(nomfichier)
voir le code de grafito et aussi l'aide de delphi pour plus de détail sur les procedure et function de TListBox
quant tu comprendras sa, le code de grafito devien facil pour toi

[edam]

les données du tableau son prises a partir d'un STRINGGRID sur la premiére forme du programme)

sa veux dire que tes données sont structurés, tu peut passer par par les record, et sera plus facille

[pacsems]

hmm..jai pensé aussi a utiliser un fichier d'enregistrements, ou chaque enregistrement comporterait une chaine (enfin..STRING), ca pourrait vraiment resoudre mon probléme, mais la aussi..je sais pas comment le faire sur delphi (je sais , je suis pathétique)
alors..une reponse?

[care]

bonjour

tu peut petétre voir avec sa j'enregistre un tableau de string dedans
faut voir si ca peut t'aider

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
procedure Nom.sauvegarder();      
var
f : textfile;
indice:integer;
begin
assignfile(f,'Nomdufichier.txt');
rewrite(f);
for indice:=1 to nbchamps do
begin
writeln(f,Ttableau[indice]);
end;
closefile(f);
end;

voila eseille avec ca si tu a besoin du chargement tu le dit ^^

[care]

eseille de créé un bouton tt simple et de placé le code dedans.
mais normalement il n'y a pas de problème si tu na que des champs de type string.
sinon oui faut utilisé un type d'enregistrement!

[Graffito]

Bonjour,

merci a toi aussi Graffito, mais jai meme pas su utiliser ta méthode

Au lieu de :

Code :

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

Ttableau = array[0..1000] of array[0..9] of string;

Il aurait fallu écrire

Code :

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

Ttableau = array[0..1000,0..9] of string;

[macumba]

Normalement je déteste le "textfile", il y a plus d'une méthode pour le remplacer; fichier typer (file of char,) TStrings comme ta dit Graffito, ou autre
pour ta méthode pour l'enregistrement essaye

Code :

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

1
2
 
 write(f,t[i,j]+#13#10);

pas testé

Euh oui tu dois pas aimer le textfile, un writeln suffit pour faire un saut de ligne. Pour les fichiers typés y a effectivement que le write.

[pacsems]

yeaaaahh!! c exactement ca macumba ^^ , javé trouvé la solution hier matin, mais g pas eu le temps de poster. mais tu pouvais pas vrnir plus macumba?tu ma laissé galérer tout ce temps la! lol jrigol! enifn bref..merci beaucoup beaucoup a tout le monde davoir pris le temps de lire mon sujet et de maider! mon probléme est fin resolu, grace au petit truc de 'writeln' et 'readln' au lieu de write et read, c béte hin?! lol. enfin..alé ciao tout le monde!! merci encore!++

[macumba]

Venir plutot je ne sais pas, car la dernière fois que je suis passé sur le forum ca fait quand même un peu plus d'un an.