Saludos amigos quiero saber como le puedo hacer para usar
archivos de texto, lo que quiero hacer es una bitacora de texto.
los uso de estas dos formas pero no quedan como quiero:
_____________________(1)_________________________
Código Delphi
[-]
procedure Bitacora();
var
Fichero: TextFile;
begin
AssignFile(Fichero, 'Prueba.txt');
if fileexists('Prueba.txt') then begin
Reset(Fichero);
end else begin
Rewrite(Fichero);
end;
writeLn(Fichero,'cualquier accion');
CloseFile(Fichero);
end;
el problema aqui es que el reset que sepa solo abrira el
archivo en caso de que exista pero no lo hace, me marca
un error y si se ejecuta el rewrite jala bien.
_____________________(2)_________________________
Código Delphi
[-]
type
TReg=record
Acc: String[50];
Usu: String[20]
end;
TArch=File of TReg;
var
Archivo: TArch;
Registro: TReg;
procedure Bitacora();
begin
AssignFile(Archivo,'ARCHIVO.DAT');
if FileExists('ARCHIVO.DAT') then
Reset(Archivo)
else Rewrite(Archivo);
Seek(Archivo,0);
Registro.Acc:='cualquier accion';
Registro.Usu:='X usuario';
Write(Archivo,Registro);
CloseFile(Archivo);
end;
//este me pone un caracter raro al inicio de cada
insercon(cosa que no me importa mucho),
pero no aplica el writeln, todo me lo escribe
en una sola linea, he intentado asi
Registro.Acc:='cualquier accion'+char(13);
para que me genere un salto de linea
pero nada.
La otra es sobre Archivos Binarios
quiero guardar claves de usuarios y pass en archivos binarios,
como poder usarlos o que me recomiendan?
Espero me halla dado a entender y me puedan ayudar
gracias!!!!