CRIAR ARQUIVO TEXTO!!!!!!!!!!!!!!!!!!!!1
bom dia a todos... gostaria de uma ajuda em relacao a criacao de arquivos texto... tipo, o nome do arquivo seria CONFIG.TXT... eu quero gravar nesse arquivo tres dados: o caminho de origem e de destino de arquivos para backup, e tbm um determinado numero, que seria o numedo de diretorios que um determinado diretorio possui... esse valores seriam gravados em 3 variaveis diferentes no inicio da execucao do programa, e alterados a cada vez que as variaveis fossem alteradas...
entenderam bem meu problema ou nao fui muito claro?
entenderam bem meu problema ou nao fui muito claro?
Raonepn
Curtidas 0
Respostas
Anonymous
20/02/2003
procedure GravaArquivo;
var
log: textfile;
begin
try
AssignFile(log, ´c:\log.log´);
if not FileExists(´c:\log.log´) then
Rewrite(log,´c:\log.log´);
Append(log);
WriteLn(log, ´informações a serem inclusas´);
finally
CloseFile(log);
end;
end;
:lol:
var
log: textfile;
begin
try
AssignFile(log, ´c:\log.log´);
if not FileExists(´c:\log.log´) then
Rewrite(log,´c:\log.log´);
Append(log);
WriteLn(log, ´informações a serem inclusas´);
finally
CloseFile(log);
end;
end;
:lol:
GOSTEI 0
Dor_poa
20/02/2003
procedure AddLog;
var
log: textfile;
begin
try
AssignFile(log, ´c:\log.log´);
if not FileExists(´c:\log.log´) then Rewrite(log,´c:\log.log´);
Append(log);
WriteLn(log, ´informações a serem inclusas´);
finally
CloseFile(log);
end;
end;
var
log: textfile;
begin
try
AssignFile(log, ´c:\log.log´);
if not FileExists(´c:\log.log´) then Rewrite(log,´c:\log.log´);
Append(log);
WriteLn(log, ´informações a serem inclusas´);
finally
CloseFile(log);
end;
end;
GOSTEI 0