Discussion :

[Catskan]

Bonsoir ou Re-Bonsoir,

Vous allez surement me prendre pour un imbécile qui ne prend même pas la peine de faire des recherches sur le net, mais les recherches c'est pas ce que je néglige ...

Je vous expose mon deuxieme problème :

J'ai donc le contenu de mes deux qui s'enregistre correctement dans mon fichier.
J'ai trouvé un code (sur ce forum) permettant d'enregistrer le contenu d'un StringGrid dans un fichier, il fonctionne lui aussi parfaitement.

Mais lorsque que j'éssaie d'assembler les deux codes afin que le contenu des Edit et celui du StringGrid s'écrivent dans le fichier les un à la suite des autres :
Edit1; Edit2;
Col1; Col2; Col3;
Col4; Col5; Col6;
...

Voici mon code (J'ai essayé pas mal de choses différentes et ça me fait toujours la même chose :/).

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
void _fastcall  TForm2::Button1Click(TObject *Sender)
{
String nomP = Edit1->Text;
  String nomA = Edit2->Text;
 
  if (this->Enregistrer->Execute() == true)
 {
  AnsiString NomSave;
  NomSave = this->Enregistrer->FileName;
	TStringList *sl = new TStringList();
	try
	{
	  sl->Add(nomP +";"+ nomA);
	  sl->SaveToFile(Enregistrer->FileName);
	}
	__finally
	{
	  delete sl;
	}
 
  TStringList *StrGrd = new TStringList();
  for (int i=0;i<StringGrid1->RowCount;i++)
  {
   AnsiString Texte;
   for (int j=0;j<StringGrid1->ColumnCount;j++)
   {
	if (j > 0)
		 Texte += ";";
	Texte += StringGrid1->Cells[j][i];
   }
   StrGrd->Add(Texte);
  }
	StrGrd->SaveToFile(Enregistrer->FileName);
  delete StrGrd;
 }
 }

Ca doit surement être tout bête mais je ne vois vraiment pas comment je dois assembler pour que ça fonctionne .

Je vous en remercie d'avance .

[blondelle]

Regarde ces trois Posts je pense qu'ils vont repondre a la plus part de tes question

http://www.developpez.net/forums/d15...ge-stringgrid/
http://www.developpez.net/forums/d16...on-stringgrid/
http://www.developpez.net/forums/d21...id-format-txt/

[Catskan]

Malheureusement ca ne répond pas à ma question :/.
Moi le StringGrid s'enregistre en "tableau" dans mon fichier donc c'est bon.
C'est juste que je n'arrive pas à faire en sorte qu'il s'écrive à la suite de mes EditText.
Dans mon fichier, j'ai seulement le contenu de mon StringGrid.

[blondelle]

J'ai supprime le try __finally ainsi que le nouveau TStringList, je pense que la cela fonctionne

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
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
String nomP = Edit1->Text;
  String nomA = Edit2->Text;
  if (this->Enregistrer->Execute() == true)
 {
  AnsiString NomSave;
  NomSave = this->Enregistrer->FileName;
 TStringList *sl = new TStringList();
   sl->Add(nomP +";"+ nomA);
   sl->SaveToFile(Enregistrer->FileName);
  for (int i=0;i<StringGrid1->RowCount;i++)
  {
   AnsiString Texte;
   for (int j=0;j<StringGrid1->ColCount;j++)
   {
 if (j > 0)
   Texte += ";";
 Texte += StringGrid1->Cells[j][i];
   }
   sl->Add(Texte);
  }
 sl->SaveToFile(Enregistrer->FileName);
  delete sl;
 }
}

[Catskan]

Merci encore beaucoup pour ton aide ! Ca fonctionne .
Mais dans mon fichier maintenant j'ai :

Test;Catskan
A;1;2
B;3;4
;;
;;
;;
;;
;;
;;
;;
;;
;;
;;
;;
;;
;;
;;
;;
;;
;;
;;

Est ce possible de garder juste les cellules remplies ?

[blondelle]

Fait un teste si tes cellules sont vide alors tu n'enregistre pas dans le STringList

[Catskan]

Après quelques tests ça fonctionne parfaitement ! .
Je te remercie infiniment pour ton aide .