Ver Mensaje Individual
  #6  
Antiguo 02-08-2015
Avatar de nlsgarcia
[nlsgarcia] nlsgarcia is offline
Miembro Premium
 
Registrado: feb 2007
Ubicación: Caracas, Venezuela
Posts: 2.206
Reputación: 21
nlsgarcia Tiene un aura espectacularnlsgarcia Tiene un aura espectacular
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
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

// Salva información de un archivo .ini
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;

// Lee información de un archivo .ini
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;

// Reset Edits
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.
Responder Con Cita