Tweak modificar un programa desde otro.

[turminator]

Pero no entiendo porque tengo que declarar la variable archivo, el ejemplo no usa solo la variable MiFicheroIni? Y en caso de tener que declararla que formato tengo que darle?

Muchas gracias.

[[maeyanes]]

La variable Archivo tendría que ser de tipo string:

Código Delphi [-]
procedure TForm1.FormClick(Sender: TObject);
var
  Archivo: string;

begin
  Archivo := ExtracFilePath(Application.ExeName) + 'Fichero.Ini';
  MiFicheroIni := TIniFile.Create(Archivo);
  try
    Form1.Left := MiFicheroIni.ReadInteger('Form', 'Left', 0);
    Form1.Top := MiFicheroIni.ReadInteger('Form', 'Top', 0);
    Form1.Caption := MiFicheroIni.ReadStribg('Form', 'Caption', 'Sin Título')
  finally
    MiFicheroIni.Free
  end
end;

Saludos...

[turminator]

Código Delphi [-]
procedure TForm1.FormClick(Sender: TObject);
var
Archivo: string;
 
begin
Archivo := ExtractFilePath(Application.ExeName) + 'Fichero.Ini';
MiFicheroIni := TIniFile.Create(Archivo);
try
Form1.Left := MiFicheroIni.ReadInteger('Form', 'Left', 0);
Form1.Top := MiFicheroIni.ReadInteger('Form', 'Top', 0);
Form1.Caption := MiFicheroIni.ReadString('Form', 'Caption', 'Sin Título')
finally
MiFicheroIni.Free
end
end;

He arreglado un par d errores (n y t) y creo que ahora ya funciona, mañana lo probaré que ahora no puedo. Muchas gracias por adentrarme en el manejo de Inis.

[turminator]

OK. Ahora ye empiezo a "dominar" el tema de INIs. Mi siguiente pregunta es como debo para que los usuarios de la aplicación rellenen dos edits que tengo creados y automaticamente se me escriban en una determinada sección del archivo INI base.

La aplicación trataria de rellenar unas simples campos edit, y que automaticamente se escribiera en las sections de INI.

Muchas gracias.

[dec]

Hola,

Empezado por maeyanes

La función ExtracFileDir no existe, la correcta es ExtractFilePath.

Bueno. La función "ExtracFileDir" no existe... pero sí existe la función "ExtractFileDir", falta la "t" en la primera. Sin embargo, efectivamente, "ExtractFilePath" devuelve lo mismo pero con el separador de directorios correspondiente.

Empezado por turminator

La aplicación trataria de rellenar unas simples campos edit, y que automaticamente se escribiera en las sections de INI.

Siempre podrías utilizar los eventos "OnChange" de los "TEdits", por poner un caso, pero, me da la sensación de que lo idóneo sería añadir un botón a la aplicación, de manera que en el evento "OnClick" de este se llevara a cabo la actualización del archivo "INI" o lo que fuera necesario.

En definitiva y en general, no creo que sea una buena idea almacenar el contenido de los "TEdits" en el archivo INI según se vaya escribiendo en los mismos... si no es absolutamente necesario, mejor que se escriba lo que sea menester, luego se proceda a la validación de los datos y por último se escriban en el archivo INI si es oportuno.

[turminator]

Totalmente de acuerdo con lo de primero rellenar el formulario y luego validarlo. Lo que no acabo de entender es como llamo al procedimiento para que me coja todos los caracteres ue haya rellenado y los guarde en un INI, respetando las secciones.

Lo que yo me parece que he entendido es que:

1· primero de todo debo crear un archivo INI mediante:

Código Delphi [-]
ini := TIniFile.Create('c:\MyIni.ini');

Aunque aquí ya tengo dos problemas porque por un lado me crea el INI a un directorio que el usuario no podrá escoger y me crea el INI con un nombre que tampoco podrá escoger.

2· Y para escribir en las secciones se debe usar

Código Delphi [-]
 // Write a string value to the INI file.
    ini.WriteString('Datos', 'Nombre', 'String Value');
    // Write a integer value to the INI file.
    ini.WriteInteger('Datos', 'Nombre', 2002);
    // Write a boolean value to the INI file.
    ini.WriteBool('Datos', 'Nombre', True);
  finally
    ini.Free;

De esta estrucutra lo que he entendido es que estas tres funciones se usan para escribir al ini un tipo de dato string, integer o boolean. Mi pregunta es como podria hacer para implementar en esta función algun sistema que me leyera, el texto contenido en un tedit que pueda seleccionar el usuario y no lo que yo escriba en el codigo?

Muchas gracias anticipadas (una vez más)

[dec]

Hola,

A ver si el siguiente código fuente puede echarte una mano o te da al menos alguna idea:

Código Delphi [-]
unit UfrmPrincipal;

interface

uses
  Forms, StdCtrls,
  Classes, Controls;

type
  TfrmPrincipal = class(TForm)
    edNombre: TEdit;
    lbNombre: TLabel;
    edApellidos: TEdit;
    lbApellidos: TLabel;
    btnGuardar: TButton;
    btnRecuperar: TButton;
    procedure btnGuardarClick(Sender: TObject);
    procedure btnRecuperarClick(Sender: TObject);
  end;

var
  frmPrincipal: TfrmPrincipal;

implementation

{$R *.dfm}

uses
  IniFiles, Dialogs, SysUtils;

procedure TfrmPrincipal.btnGuardarClick(Sender: TObject);
var
  ini: TIniFile;
  dlg: TSaveDialog;
begin
  dlg := TSaveDialog.Create(Self);
  dlg.DefaultExt := 'ini';
  dlg.FileName := 'archivo.ini';
  dlg.Filter := 'Archivos INI (.ini)|*.ini';
  dlg.Options := [ofOverwritePrompt];
  try
    if dlg.Execute then
    begin
      ini := TIniFile.Create(dlg.FileName);
      try
        ini.WriteString('Usuario', 'Nombre', edNombre.Text);
        ini.WriteString('Usuario', 'Apellidos', edApellidos.Text);
      finally
        ini.Free;
      end;
    end;
  finally
    dlg.Free;
  end;
end;

procedure TfrmPrincipal.btnRecuperarClick(Sender: TObject);
var
  ini: TIniFile;
  dlg: TOpenDialog;
begin
  dlg := TOpenDialog.Create(Self);
  dlg.DefaultExt := 'ini';
  dlg.FileName := 'archivo.ini';
  dlg.Filter := 'Archivos INI (.ini)|*.ini';
  dlg.Options := [ofFileMustExist];
  try
    if dlg.Execute then
    begin
      ini := TIniFile.Create(dlg.FileName);
      try
        edNombre.Text := ini.ReadString('Usuario', 'Nombre', '');
        edApellidos.Text := ini.ReadString('Usuario', 'Apellidos', '');
      finally
        ini.Free;
      end;
    end;
  finally
    dlg.Free;
  end;
end;

end.

Adjunto el ejemplo de manera que puedas probarlo tú mismo.