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');
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