Sauve le formRésolu

Question

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.

cs_neko · Accepted Answer

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

cs_neko · Answer

( 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

Sauve le form

2 réponses

Votre réponse

Discussions similaires