Ver Mensaje Individual
  #3  
Antiguo 18-02-2005
Avatar de Lepe
[Lepe] Lepe is offline
Miembro Premium
 
Registrado: may 2003
Posts: 7.424
Reputación: 29
Lepe Va por buen camino
El primer parametro de ReadString es la seccion (en el fichero ini se traduce por: esa misma palabra entre corchetes.
el segundo parametro es la parte izquierda del igual (Bono o dato2)
el tercer parametro es el valor por defecto.

Código Delphi [-]
var
  MiFichero: TIniFile;
  begin
  MiFichero := TIniFile.Create('C:\Archivos de programa\Borland\Delphi7\Projects\mipro.ini');
  Edit1.Text :=  MiFichero.ReadString('Seccion1','Bono','35');
  Mifichero.Free;
end;
En este caso, si 'Bono' no está en el archivo, o el archivo ini está en blanco, devuelve '35'

al salir de la ventana, para guardar los valores:
Código Delphi [-]
var
  MiFichero: TIniFile;
  begin
  MiFichero := TIniFile.Create('C:\Archivos de programa\Borland\Delphi7\Projects\mipro.ini'); 
// si existe el archivo, lo abre,
// si no existe, lo crea.


  MiFichero.WriteString('Seccion1','Bono',Edit1.text);
  MiFichero.WriteInteger('Seccion1','dato2',strtoint(Edit2.text));
  Mifichero.Free;
end;

y el fichero queda tal que así:

[Seccion1]
bono=50;
dato2=23;

Cita:
Muchas gracias por vuestra atencion.
de nada.... A mandar
Responder Con Cita