emirej
Messages postés90Date d'inscriptionmercredi 14 mars 2007StatutMembreDernière intervention31 mai 2009
-
15 janv. 2009 à 18:39
cs_cantador
Messages postés4720Date d'inscriptiondimanche 26 février 2006StatutModérateurDernière intervention31 juillet 2021
-
16 janv. 2009 à 16:11
Bonsoir à tous, j'ai en effet un petit problème ou du moins je ne sais pas trop comment m'y prendre, voici un peu mon cas :
Je dispose d'une forme principale nommée Form1, dans cette Form j'y ai placé deux Edits nommé " Edit1 " et " Edit2"
pour finir j'ai plaçé un boutton.
J'aimerais trouver une commande qui puissent me permettre d'enregistrer le texte des deux Edits donc " Edit 1 + Edit 2 " dans un fichier ( .txt ou .dll par exemple vu qu'on peut les ouvrir avec le bloc note ) et si possible pour qu'il soit affiché de cette façon dans le fichier texte
Texte de L'Edit 1
Texte de L'Edit 2
Mais je ne sais pas trop avec quel commande faire çeci et/où si je dois plaçer un Tsave Dialog =\ Un peu d'aide où un exemple de source svp :) ?
PS : J'ai déjà recherché sur le forum j'ai trouvé une source mais elle me parait plus " complexe " je voudrais que le code soit assez simple à faire, auparavant j'avais déjà su le faire mais ça fait longtemps et je ne m'en rappelle plus...
Bacterius
Messages postés3792Date d'inscriptionsamedi 22 décembre 2007StatutMembreDernière intervention 3 juin 201610 15 janv. 2009 à 19:57
Ah oui en Delphi : eh bien tu peux faire ça par un TStringList ? (ya aussi TextFile mais j'ai oublié) :
// On vérifie si l'utilisateur a cliqué sur "Enregistrer"
if SaveDialog1.Execute then
begin
MonFichierTexte := TStringList.Create;
// On crée la liste de chaînes
MonFichierTexte.Add(Edit1.Text + Edit2.Text);
// On ajoute une ligne avec les deux textes des deux édits collés entre eux
MonFichierTexte.Add('On ajoute une autre ligne !');
// On ajoute une autre ligne ...
MonFichierTexte.Add('C''est la dernière ligne !');
// Une autre ligne, et on sauvegardera après.
MonFichierTexte.SaveToFile(SaveDialog1.FileName);
// On enregistre dans le chemin spécifié par SaveDialog1
MonFichierTexte.Free;
// Enfin, on libère la liste de chaînes
end;