Oppure

Loading
04/05/11 20:09
smanettone83
cambia
Username.text:= Username:
Password.text:= Password:

in

Username.text:= Username;
Password.text:= Password;
aaa
05/05/11 10:19
camaleonteplus
Ecco come ho risolto e grazie a tutti:
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;
aaa