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