Delphi - Salvare le impostazioni (Delphi7)

Forum - Delphi - Salvare le impostazioni (Delphi7) - Pagina 2

Pagine: [ 1 2 ]

camaleonteplus (Normal User)
Pro

Messaggi: 95
Iscritto: 05/03/2009

Postato alle 12:19
Giovedì, 05/05/2011

Ecco come ho risolto e grazie a tutti:

Codice sorgente - presumibilmente Delphi

Per prima cosa dichiara nelle uses la clausola INIFILES.
    //CREAZIONE DEL FILE INI
    procedure TForm2.Exit1Click(Sender: TObject);
var
    ini:Tinifile;
begin
    Ini := TIniFile.Create(ExtractFilePath(Application.ExeName)+'Config.ini');
  try
    ini.WriteString('Dati','Username',Username.text);
    ini.WriteString('Dati','Password',Password.text);
    ini.WriteString('Rete','HeloName',Helo.text);
  finally
    ini.Free;
  end;
    close
end;
     
    //LETTURA DEL FILE INI
    procedure TForm2.FormCreate(Sender: TObject);
var
    ini:Tinifile;
begin
    ini:= Tinifile.Create(extractfilepath(paramstr(0))+'Config.ini');
    try
    Username.text:= ini.ReadString('Dati','Username','');
    Password.text:= ini.ReadString('Dati','Password','');
    Helo.text:= ini.ReadString('Rete','HeloName','');
  finally
    ini.Free;
  end;
end;
end;

Pagine: [ 1 2 ]