Sauve le form [Résolu]

Messages postés
1
Date d'inscription
mercredi 18 août 2004
Dernière intervention
19 août 2004
- - Dernière réponse : youcef413
Messages postés
2
Date d'inscription
vendredi 29 février 2008
Dernière intervention
29 février 2008
- 29 févr. 2008 à 02:20
Bonjour a tous

Salut de l'Indonesie. Je voulais demander comment faire des codes pour sauver un Form, qui ont des TEdit avec. Par example, si j'ai mis un entree dans l'TEdit, je voulais le sauver avec extension que je voulais et apres le ouvrir, avec component TSaveDialog et TOpenDialog.

Merci d'avant.
Afficher la suite 

Votre réponse

3 réponses

Meilleure réponse
Messages postés
135
Date d'inscription
jeudi 14 août 2003
Dernière intervention
12 octobre 2006
3
Merci
Je sais pas si j'ai bien compris ta question, mais pour sauver tous les Edits d'une form tu peut faire ca:

procedure TForm1.SaveAll;
var
  i       : integer;
  IniFile : TIniFile;
begin
  try
    IniFile := TIniFile.Create('.\Save.ini');
    for i := 0 to Form1.ComponentCount - 1 do begin
      if      Form1.Components[i] is TEdit then
        IniFile.WriteString('Edits', TEdit(Form1.Components[i]).name, TEdit(Form1.Components[i]).Text);
End;


et pour les recuperrer ca:

procedure TForm1.LoadAll;
var
  i       : integer;
  IniFile : TIniFile;
begin
  try
    IniFile := TIniFile.Create('.\Save.ini');
    for i := 0 to Form1.ComponentCount - 1 do begin
      if      Form1.Components[i] is TEdit then
        TEdit(Form1.Components[i]).Text := IniFile.ReadString('Edits', TEdit(Form1.Components[i]).name, '');
End;


bouh

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 88 internautes nous ont dit merci ce mois-ci

Commenter la réponse de cs_neko
Messages postés
135
Date d'inscription
jeudi 14 août 2003
Dernière intervention
12 octobre 2006
0
Merci
( Mince j'ai laissé les "Try" et on peut pas editer le message... biensûr faut pas laisser un "try tout seul ( et vive les copier/collés lol ))

bouh
Commenter la réponse de cs_neko
Messages postés
2
Date d'inscription
vendredi 29 février 2008
Dernière intervention
29 février 2008
0
Merci
thank you delphifr.com

good bay...
miloudi youcef/algeria
Commenter la réponse de youcef413

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.