Como Criar um arquivo
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
Curtidas 0
Respostas
Dor_poa
18/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;
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....
GOSTEI 0