Salvare le impostazioni (Delphi7)

[MrCamarium]

In due TEdit digito di frequento la user e la pass vorrei che questi dati venissero memerozati in un file di nome, Config.ini ho comuinciato cosi il codice basandomi su un codice che uso di solito per salvare del testo.

procedure TForm2.Save1Click(Sender: TObject);
begin
if RzSaveDialog1.Execute then
begin
Messaggio.Lines.SaveToFile(RzSaveDialog1.Filename);
StatusBar.Panels[3].Text:='Salvato il file: '+RzSaveDialog1.Filename;
end;
end;

come posso salvare i dati di un Tedit in un file di testo?

 

[MrCamarium]

Ho Fatto in questo modo:

procedure TForm2.Exit1Click(Sender: TObject);
begin
Username.Items.SaveToFile('Config.ini');
close;
end;
end;

ma mi da questo errore:
[Error] Invio.pas(532): Undeclared identifier: 'Items'

 

[MrCamarium]

Per scrivere il file Ini ho fatto in questo modo.

procedure TForm2.Exit1Click(Sender: TObject);
var
    ini:Tinifile;
begin
    ini:= Tinifile.Create(extractfilepath(paramstr(0))+'Config.ini');
    ini.WriteString('Dati','Username',Username.text);
    ini.WriteString('Dati','Password',Password.text);
    ini.WriteString('Rete','HeloName',Helo.text);
    close
end;

il file viene creato perfettamente.
Per leggere il file ini ho fatto cosi.

var
    ini:Tinifile;
    Username,Password,HeloName:string;
begin
    ini:= Tinifile.Create(extractfilepath(paramstr(0))+'Config.ini');
    Username:= ini.ReadString('Dati','Username',Username.text);
    Password:= ini.ReadString('Dati','Password',Password.text);
    HeloName:= ini.ReadString('Rete','HeloName',Helo.text);
    Username.text:= Username:
    Password.text:= Password:
    Helo.Text:= HeloName;
    end;

e qui ho il problema mi da questo errore:
[Error] Invio.pas(247): Record, object or class type required
su questa riga:

Username:= ini.ReadString('Dati','Username',Username.text);

dove l'errore?

 

[MrCamarium]

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;

 

[MrCamarium]

Risolto in qusto modo:

    function TForm1.GetPublicIp: String;
              begin
          IdHttp1.Request.Host:= 'http://www.whatismyip.com/automation/n09230945.asp';
          result := IdHttp1.Get('http://www.whatismyip.com/automation/n09230945.asp');
    end;
     
    procedure TForm1.Button1Click(Sender: TObject);
    begin
      IPPubblico.Caption:= 'IP Pubblico: ' + (GetPublicIp);
    end;