procedure TFPrincipal.GuardarINI;
var INI: TIniFile;
begin
INI := TINIFile.Create( ExtractFilePath( Application.ExeName ) + 'opciones.ini' );
INI.WriteString( 'OPCIONES', 'IMPRESORA', IMPRESORA.Text );
INI.WriteInteger( 'OPCIONES', 'COPIAS', COPIAS.Value );
INI.WriteBool( 'OPCIONES', 'VISTAPREVIA', VISTAPREVIA.Checked );
INI.WriteDate( 'OPCIONES', 'FECHA', FECHA.Date );
INI.WriteTime( 'OPCIONES', 'HORA', StrToTime( HORA.Text ) );
INI.WriteFloat( 'OPCIONES', 'MARGEN', MARGEN.Value );
INI.Free;
end;
procedure TFPrincipal.CargarINI;
var INI: TIniFile;
begin
if not FileExists( ExtractFilePath( Application.ExeName ) + 'opciones.ini' ) then
Exit;
INI := TINIFile.Create( ExtractFilePath( Application.ExeName ) + 'opciones.ini' );
IMPRESORA.Text := INI.ReadString( 'OPCIONES', 'IMPRESORA', '' );
COPIAS.Value := INI.ReadInteger( 'OPCIONES', 'COPIAS', 0 );
VISTAPREVIA.Checked := INI.ReadBool( 'OPCIONES', 'VISTAPREVIA', False );
FECHA.Date := INI.ReadDate( 'OPCIONES', 'FECHA', Date );
HORA.Text := TimeToStr( INI.ReadTime( 'OPCIONES', 'HORA', Time ) );
MARGEN.Value := INI.ReadFloat( 'OPCIONES', 'MARGEN', 0.00 );
INI.Free;
end;