[Lazarus-es] Como leer y escribir archivos de textos

Claudio Romero clauslack en gmail.com
Mie Nov 18 12:29:51 CET 2009


Como dice JoshyFun tiene pinta de una .INI, un ejemplo sencillo del mismo:

Agregas uses inifiles; arriba

procedure TForm1.Button1Click(Sender: TObject);
var ini:Tinifile;archivo:string;UltimaActualizacion:double;
	BaseDeDatos,Recibido:string;LogSolicitado:integer; usaZebedee:boolean;
begin
    archivo:=ExtractFilePath(Application.EXEName)+'archivo.ini';
    if not FileExists(archivo) then
    begin
        showmessage('ERROR:no se encuentra el archivo archivo.ini');
        exit;
   end;
   ini := TIniFile.Create(archivo);
    with ini do
    begin
        BaseDeDatos:=ReadString('Datos', 'BaseDeDatos','' );
        LogSolicitado:=ReadInteger('Datos','LogSolicitado',1);
        UltimaActualizacion:=ReadFloat('Datos', 'UltimaActualizacion',0 );
        usaZebedee:=ReadBool('Datos','UsaZebedee',false);
        Recibido:=ReadString('Otros', 'recibido','' );
        Free;
    end;
end;

Para escribir solo pones Write en vez de Read, con algun cambio en los
parametros, pero es muy sencillo.
Saludos




More information about the Lazarus-es mailing list