Discussion :

[coxycross]

Bonjour,


Je vous expose mon problème :

J'ai deux Edit ( Edit1 et 2), dans le premier j'y stock une chaîne de caractère type 123ab56, et dans le second un poids donc du type 4,25.

Avec ce code :

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
 
//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
#include <string.h>
 
#include "UnitSujet.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormSujet *FormSujet;
//---------------------------------------------------------------------------
__fastcall TFormSujet::TFormSujet(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFormSujet::BitBtn1Click(TObject *Sender)
{
    double Poids;
    String IdAnimal;
 
    IdAnimal=Edit1->Text;
    Poids=Edit2->Text.ToDouble();
 
}
//---------------------------------------------------------------------------

J'ai placé un SaveDialog dans ma fiche, mais je ne sais pas du tout comment l'utiliser.

En fait, je veux sauvegarder le IdAnimal et le poids dans un fichier .txt


Merci d'avance

Cordialement

Coxycross

[Argol_Medusa]

(Rapidement) une solution possible :

TMemo *notepad;
notepad = new TMemo();

notepad->Lines->Add(Edit1->Text);
notepad->Lines->Add(Edit2->Text);

notepad->SaveToFile("nom_fichier.txt");

delete notepad;

Pour le savedialog, il faut lancer la fonction SaveDialog1->Execute() puis récupérer le nom avec SaveDialog1->FileName

Je n'ai pas le compilateur sous les yeux mais ça doit être ça en gros

[coxycross]

Concernant ton code, je n'ai pas tout compris. Parce qu'avec la méthode du notepad, l'utilisateur ne peut pas choisir le nom du fichier si ?
Et je vois aussi un TMemo, il faut un memo sur ma fiche ?

Encore une question, pour une concaténation de chaine !

J'ai donc :

Code :

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

Total = IdAnimal + Poids + Specimen

Est-ce qu'il est possible d'ajouter un espace entre chaque chaine ? Et est-il possible d'ajouter 'kg' juste après la chaine poids ?

NB : Je viens de régler mon problème de concaténation, mais le problème pour la sauvegarde tiens toujours

Merci d'avance

cdt Coxycross

[ShaiLeTroll]

TMemo a remplacé par TStringList
SaveToFile prend le nom du fichier en paramètre fourni par le TSaveDialog

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
 
//---------------------------------------------------------------------------
void __fastcall TFormSujet::BitBtn1Click(TObject *Sender)
{
 
  double Poids = Edit2->Text.ToDouble();
  String IdAnimal = Edit1->Text;
  String Specimen = ?
 
  if (SaveDialog1->Execute())
  {
    TStringList *sl = new TStringList();
    try
    {
      sl->Add(String().sprintf("%s : %f kg - %s", AnimalID, Poids, Specimen));
      sl->SaveToFile(SaveDialog1->FileName);
    }
    __finally
    { 
      delete sl;
    } 
  } 
}

Sinon TFileStream couplé à un TStreamWriter et sa méthode WriteLine


@coxycross, faudrait chercher un peu plus
Delphi - Fichier et flux
Support des entrées et des sorties des fichiers

C++ Strict :
C library to perform Input/Output operations
IOStream C++ Library et fstream - Input/output file stream class

C++ Builder Avancé :
Utilisation des FilesMapping sous C++ Builder montre comment utilise un fichier comme si c'était un tableau de byte !

[coxycross]

Merci beaucoup, avec ton code et quelques arrangements je m'en suis sorti.

@coxycross, faudrait chercher un peu plus

Crois moi, je cherche, mais pas au bon endroit, et il est vrai que j'ai que regardé sur les sites français alors que l'anglais ne me dérange pas.

Bref, merci

cdt Coxycross

[ShaiLeTroll]

et il est vrai que j'ai que regardé sur les sites français alors que l'anglais ne me dérange pas.

Je trouve qu'il manque en C++Builder un équivalent de Guide Pascal et Delphi
Beaucoup d'élement VCL\RTL sont communs mais la syntaxe C++Builder est souvent plus retord !

En C++Builder on peut se servir des éléments natifs du langage (que je ne connais que très peu car Delphiste d'origine) et surtout la RTL \ VCL qui est le principal intérêt de C++Builder

C'est d'ailleurs pas évident, lorsque certains membres utilisent C++Builder comme ils utiliseraient Notepad en codant tout en lib C oubliant la VCL

[coxycross]

C'est d'ailleurs pas évident, lorsque certains membres utilisent C++Builder comme ils utiliseraient Notepad en codant tout en lib C oubliant la VCL

Ce qui, je dois l'avouer, m'arrive encore !

Quand on commence c'est pas évident de prendre un main C++ builder sans aucune formation ou cours, certaines syntaxes sont assez particulières.

[coxycross]

Bonjour,

Je me permets une dernière question, est-il possible de forcer le format dans lequel est enregistré le fichier. Je m'explique, avec mon code, on peut enregistrer le tout dans un fichier dont un choisis le nom et l'extension.

Mais avec le code précédent, est-il possible de forcer le format en .dat, tout en laissant le choix du titre ?


cdt Coxycross

[ShaiLeTroll]

Il te suffit de mettre un Filter dans SaveDialog ou via la propriété DefaultExt
Si l'Option ofExtensionDifferent est présente, tu le forces dans le code

Code :

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

1
2
3
4
 
...
     sl->SaveToFile(ChangeFileExt(SaveDialog1->FileName, ".dat"));
...

[coxycross]

Simple et efficace ! Merci beaucoup !

[coxycross]

Il te suffit de mettre un Filter dans SaveDialog ou via la propriété DefaultExt
Si l'Option ofExtensionDifferent est présente, tu le forces dans le code

Code :

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

1
2
3
4
 
...
     sl->SaveToFile(ChangeFileExt(SaveDialog1->FileName, ".dat"));
...

Bonjour,

Encore une question, est-ce qu'avec ce meme filtre, on peut forcer lenom du fichier ?
C'es à dire que dans mon prgramme dans, un edit, on rentre l'ID d'un animal, et cet ID doit être le nom du fichier.

Cdt Coxycross

[free07]

Bonjour,

Encore une question, est-ce qu'avec ce meme filtre, on peut forcer lenom du fichier ?
C'es à dire que dans mon prgramme dans, un edit, on rentre l'ID d'un animal, et cet ID doit être le nom du fichier.

Cdt Coxycross

Et en renseignant le FileName avant l'execute du SaveDialog, cela fonctionne pas ?

Code :

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

SaveDialog1->FileName = Edit1->Text

[coxycross]

Si en effet, merci c'est exactement ce que je cherchais !