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

[Ismael L. Donis Garc?a]

Gracias probaré esta vía, creo que es la más sencilla de todas.

Saludos cordiales y gracias reiteradas a to2s por la gran ayuda que me han 
brindado.
=========
¦¦ ISMAEL ¦¦
=========
----- Mensaje original ----- 
De: "Claudio Romero" <clauslack en gmail.com>
Para: "Spanish version of Lazarus List" 
<lazarus-es en lists.lazarus.freepascal.org>
Enviado: miércoles, 18 de noviembre de 2009 05:29
Asunto: Re: [Lazarus-es] Como leer y escribir archivos de textos


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

_______________________________________________
Lazarus-es mailing list
Lazarus-es en lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es