Grabar datos en un fichero ini

Para ello necesitas un xtra gratuito que viene con director y se llamado fileio:
Grabar:
On mouseUp me
instancia=new(xtra "fileIO")
nombre_archivo="C:\Mis documentos\pref \nuevor.txt"
if status(instancia)<>0 then
fallo=error(instancia,status(instancia))
alert ("Se ha poducido un error en la lectura, debe repetir la operaciòn:")
return ""
end if
openfile(instancia,nombre_archivo,2)
delete(instancia)
createfile(instancia,nombre_archivo)
openfile(instancia,nombre_archivo,2)
texto=member("texto").text
writestring(instancia, texto)
Closefile(instancia)
return true
end
leer:
on mouseUp me
instancia=new(xtra "fileIO")
nombre_archivo="C:\Mis documentos\pref \nuevor.txt"
if nombre_archivo="" then return FALSE
if status(instancia)<>0 then
fallo=error(instancia,status(instancia))
alert ("Se ha poducido un error en la lectura, debe repetir la operaciòn:")
return ""
end if
openfile(instancia, nombre_archivo,1)
texto=readfile(instancia)
closefile(instancia)
member("texto").text=texto
end