albelg,
Cita:
Empezado por albelg
...no se como guardar en un fichero .ini ni como leerlo...
|
Revisa este código:
Código Delphi
[-]
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, ShellCtrls, StdCtrls, IniFiles;
type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
public
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
IniFile : TIniFile;
begin
try
IniFile := TIniFile.Create(ExtractFilePath(Application.ExeName) + 'IniFile.ini' );
IniFile.WriteString('Edits','E1',Edit1.Text);
IniFile.WriteString('Edits','E2',Edit2.Text);
IniFile.WriteString('Edits','E3',Edit3.Text);
finally
IniFile.Free;
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
var
IniFile : TIniFile;
begin
try
IniFile := TIniFile.Create(ExtractFilePath(Application.ExeName) + 'IniFile.ini' );
Edit1.Text := IniFile.ReadString('Edits','E1','');
Edit2.Text := IniFile.ReadString('Edits','E2','');
Edit3.Text := IniFile.ReadString('Edits','E3','');
finally
IniFile.Free;
end;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
Edit1.Text := EmptyStr;
Edit2.Text := EmptyStr;
Edit3.Text := EmptyStr;
end;
end.
El código anterior en Delphi 7 sobre Windows 7 Professional x32,
Permite leer y grabar información de un archivo .ini, como se muestra en las siguientes imágenes:
Revisa esta información:
Espero sea útil
Nelson.