Procurar arquivo

17/05/2003

2

Estou usando esse codigo;
procedure TForm1.Button6Click(Sender: TObject);
begin
try
log:=format(´seq¬d.txt´,[n]);
memo2.lines.LoadFromFile(log);
caption:=log;
except
inc(n);
end;

Procuro por arquivo (seq0...5).
Baseado nisso(procurar até 5x(ou mais) um arquivo com nome seq[n].txt)seq1,seq2 etc) até achar,qual o codigo mais curto?


Responder

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários. Para saber mais sobre o uso de cookies,
consulte nossa política de privacidade. Ao continuar navegando em nosso site, você concorda com a nossa política.

Aceitar