[DELPHI] Salvare (e caricare) le impostazioni del programma

[camaleonteplus]

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?

[123delphi321]

http://delphi.about.com/od/objectpas...a/tinifile.htm

ciao

[alka]

Per semplificare al massimo, potresti usare semplicemente la classe TStringList (unit Classes).
Puoi trovare un esempio calzante in questa pagina.

Per salvare il contenuto della lista di stringhe, usa il metodo SaveToFile, per ricaricarlo usa LoadFromFile.

La lista di stringhe può essere usata per inserire all'interno più valori associati nella forma chiave=valore, usando la proprietà Values.

Fai riferimento alla documentazione ufficiale per maggiori informazioni sulle funzionalità disponibili.

Per esigenze più complesse, è possibile ricorrere a soluzioni più elaborate come questa, oppure al meccanismo di streaming delle proprietà di Delphi per salvare classi con i valori delle impostazioni che discendono da TPersistent, ma si tratta come dicevo di soluzioni già più articolate e complesse.

Ciao!

[camaleonteplus]

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'

[alka]

Originariamente inviato da camaleonteplus
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'

L'errore indica che il compilatore non è in grado di trovare nulla che si chiami Items nell'oggetto identificato dal nome Username.

Non sapendo cosa sia né l'uno né l'altro, non posso dire molto altro, se non rinnovare l'invito a non andare a caso, facendosi qualche domanda; ad esempio, che cos'è Username? A che tipo (classe) appartiene? Che metodi ha quella classe? Tra questi membri (metodi e proprietà) della classe c'è quella che sto utilizzando? Se no, sto usando la classe o l'oggetto giusto? Non riesco a determinarlo... ho letto la documentazione a riguardo? Non riesco a trovare nulla perché non so cos'è un metodo o una proprietà, o anche una classe... non conviene reperire documentazione sulla programmazione ad oggetti per approfondire questi concetti fondamentali per poter usare il linguaggio Delphi?

[camaleonteplus]

scusa hai ragione Username si riferisce ad un TEdit che uso come Autenticazione per l'invio della posta elettronica, in effetti andrebbe aggiunto anche Pass che è sempre un TEdit.

[alka]

Originariamente inviato da camaleonteplus
scusa hai ragione Username si riferisce ad un TEdit che uso come Autenticazione per l'invio della posta elettronica, in effetti andrebbe aggiunto anche Pass che è sempre un TEdit.

TEdit non possiede alcuna proprietà Items, e nemmeno Lines, ma solo Text, ma è irrilevante in questo caso, poiché non devi fare uso di alcun metodo specifico di TEdit per salvare i dati, che vanno memorizzati attraverso TStringList (vedi gli esempi di utilizzo sui siti suggeriti).

[camaleonteplus]

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?

[123delphi321]

Originariamente inviato da camaleonteplus
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?

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

[camaleonteplus]

continua a darmi lo stesso errore:
[Error] Invio.pas(247): Record, object or class type required