QUOTE
1º - Estou fazendo um progama que gera um txt e salva em getcurrentdir...Mas eu gostaria de não salvar (rewrite) em cima do arquivo existente..
então gostaria de fazer uma função que verificasse se já tem um arquivo na pasta , se tiver ele pega o nome do arquivo e adiciona +1 (INTEGER)..
exemplo:
Documento de texto 1.txt, opa minha função vai verificar este arquivo e vai fazer outro mas assim : Documento de texto 2.txt , Documento de texto 3.txt, Documento de texto 4.txt e assim vai ^^
2º - gostaria de saber se há algum jeito de fazer minha função receber como result o valor que é gerado em uma stringlist... o resultado será a as strings da stringlist..entenderam.. bom acho que é isto!!
Veja um exemplo ... faça uma adaptação para o seu uso
CODE
var
Form1: TForm1;
i : integer = 1;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
var Arquivo : Textfile; Line : string;
begin
i := i + 1;
if FileExists('C:\Texto'+inttostr(i)+'.txt') then
begin
AssignFile(Arquivo, 'C:\Texto'+inttostr(i)+'.txt');
Rewrite(Arquivo);
// Caso queira trocar alguma linha do arquivo
line := 'Conteudo atual do arquivo texto';
Writeln(Arquivo, Line);
showmessage('Existente arquivo txt nº ' + inttostr(i));
CloseFile(Arquivo);
end
else
begin
AssignFile(Arquivo, 'C:\Texto'+inttostr(i)+'.txt');
Rewrite(Arquivo);
line := 'Conteudo novo do arquivo texto';
Writeln(Arquivo, Line);
showmessage('criado novo arquivo txt nº ' + inttostr(i));
CloseFile(Arquivo);
end;
end;
OBS: Se existir o arquivo (por ex: Texto3.txt) voce pode simplesmente ignorar a escrita ou alterar alguma linha do txt
Se não existir o novo arquivo será criado
Exemplo:
A cada clique do botão será criado um novo arquivo txt
Texto1.txt
Texto2.txt
Texto3.txt
Texto4.txt
etc....
abraço