Sauvegarde du contenu des EditsRésolu

Question

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...

D'avance merci et bonne soirée :)

Bacterius · Accepted Answer

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;

Voilà, à toi de l'adapter !

Cordialement, Bacterius !

Bacterius · Answer

Bonjour.
En Delphi ?

Cordialement, Bacterius !

PS : les DLL ne sont pas faites pour êtres lues par un bloc-notes :}

Bacterius · Answer

Ah oui je n'avais pas pensé aux TIniFile cette fois-ci, Haftarifouad ! Bien vu !
Bon ben c'est encore plus simple :)

uses IniFiles;


var
 MonFichier: TIniFile;
begin
 // Ton code
end;

Bon, c'est dix fois plus simple, et moins "barbare" que la TStringList.

A toi de te renseigner sur les TIniFiles (voir l'aide Delphi avec F1, "TIniFile"), et tu verras, tu apprendras beaucoup sur eux.

Cordialement, Bacterius !

emirej · Answer

Merci a vous deux ! Je vais tester et je vous dit quoi :-)

emirej · Answer

Y aurait t'il une méthode plus simple avec le TextFile par exemple ?

cs_cantador · Answer

Bonsoir,

PROCEDURE TForm1.Button1Click(Sender: TObject);
VAR
  F: TextFile;
BEGIN
     TRY
    Screen.Cursor := CrHourGlass;
    AssignFile(F, 'c:	emp\MonFichier.text');
    rewrite(F);
   writeln(F, Edit1.Text);
   writeln(F, Edit2.Text);
   finally
    Screen.Cursor := CrDefault;
    CloseFile(F);
   END;
END;
 
pas testé, mais ça devrait gazer !

cantador

Sauvegarde du contenu des Edits

6 réponses

Votre réponse

Discussions similaires