Devuelve el fichero pasado como parámetro con la extensión cambiada a la pasada como parámetro.
Un ejemplo de utilización:
1 2 3 4 5 6 7 8 9 |
procedure TformMenuPrincipal.FormCreate(Sender: TObject); begin txtFichero.Text := leCadINI('Guardar log', 'Ruta fichero', ChangeFileExt(ParamStr(0), '.txt')); opGuardar.Checked := leBoolINI('Guardar log', 'Guardar log', false); txtMinutos.Text := inttostr(leEntINI('Intervalo', 'Minutos', 4)); opAvisar.Checked := leBoolINI('Avisar', 'Avisar', false); txtPorcentajeAviso.Text := IntToStr (leEntINI('Avisar', 'Carga inferior a', 20)); opMinimizada.Checked := leBoolINI('Al iniciar', 'Ejecutar minimizada', false); end; |
En este caso «ChangeFileExt(ParamStr(0), ‘.txt’))» devolverá la ruta y el nombre del fichero ejecutable de la aplicación («Param(0)») con la extensión «.txt».
Unidad SysUtils