Bom..galera...sou novo na lista! E estou com um probleminha simples, mas não
estou conseguindo resolver, tenho uma opendialog...e estou querendo abrir
vários arquivos do tipo “.prc” é igual a “.txt” bom... segue o código q
estou tentando fazer:
with OpenDialog do begin
if Execute then begin
for aux := 1 to Files.Count do begin
FileEx := Copy(Files.Names[aux], length(Files.Names[aux]) - 2, 3);
//aqui ele ja da error de list out of bounds
if (FileEx = 'prc') or (FileEx = 'cmd') then begin
if FileEx = 'prc' then begin
with TfrmProcedure.Create(Self) do
Open(Files.Names[aux]);
end
end
else begin
Application.MessageBox ('Arquivo Inválido.', 'Script Analyzer',
MB_ICONWARNING + MB_OK);
end;
end;
end;
end;
Desde já agradeço.
Valeu
--
No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.300 / Virus Database: 265.7.3 - Release Date: 24/1/2005
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
