Como Criar um arquivo
18/02/2003
0
Ola pessoal,
Se alguem puder dar uma ajudinha eu gostaria de saber como é que se faz para criar um arquivo e qual extensão deve ser usada para esse arquivo, qual componente é usado para criar arquivo(s).
obrigado.
Se alguem puder dar uma ajudinha eu gostaria de saber como é que se faz para criar um arquivo e qual extensão deve ser usada para esse arquivo, qual componente é usado para criar arquivo(s).
obrigado.
Anonymous
Curtir tópico
+ 0
Responder
Posts
18/02/2003
Dor_poa
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;
com isto vc. escreve no arquivo.. ele existindo ou nao....
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;
com isto vc. escreve no arquivo.. ele existindo ou nao....
Responder
Clique aqui para fazer login e interagir na Comunidade :)