RES: [delphi-br] Selecionar só o diretório
Ninguém respondeu ainda... -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Cícero Enviada em: quinta-feira, 20 de outubro de 2005 17:01 Para: Listadelphi (E-mail) Assunto: [delphi-br] Selecionar só o diretório Fiz esta rotina que está funcionando maravilhosamente, porém, no ARQUIVOSELFOTO, eu só quero o diretório e não diretório e arquivo.jpg o que está faltando? begin openDlgBD.Filter := 'Bases de Dados Access|*.jpg;*.gif;*.jpeg'; openDlgBD.Title := 'Seleção do banco de dados do sistema'; DirExe := ExtractFilePath(ParamStr(0)); openDlgBD.InitialDir := DirExe; if openDlgBD.execute then begin ArquivoSelfoto := trim(OpenDlgBD.FileName); edpathfoto.Text := trim(OpenDlgBD.FileName); end; end; -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos -- 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] 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
RES: [delphi-br] Selecionar só o diretório
ExtractFilePath(ArquivoSelFoto); depois que ele já estiver com o endereço do arquivo setado. Filipe Xavier Ramalho Desenvolvimento Telefone: (41) 3219-2043 Duty Sistemas de Gerenciamento de Riscos S/A http://www.duty.com.br Antes de imprimir pense no MEIO AMBIENTE! -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Cícero Enviada em: sexta-feira, 21 de outubro de 2005 11:40 Para: delphi-br@yahoogrupos.com.br Assunto: RES: [delphi-br] Selecionar só o diretório Ninguém respondeu ainda... -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Cícero Enviada em: quinta-feira, 20 de outubro de 2005 17:01 Para: Listadelphi (E-mail) Assunto: [delphi-br] Selecionar só o diretório Fiz esta rotina que está funcionando maravilhosamente, porém, no ARQUIVOSELFOTO, eu só quero o diretório e não diretório e arquivo.jpg o que está faltando? begin openDlgBD.Filter := 'Bases de Dados Access|*.jpg;*.gif;*.jpeg'; openDlgBD.Title := 'Seleção do banco de dados do sistema'; DirExe := ExtractFilePath(ParamStr(0)); openDlgBD.InitialDir := DirExe; if openDlgBD.execute then begin ArquivoSelfoto := trim(OpenDlgBD.FileName); edpathfoto.Text := trim(OpenDlgBD.FileName); end; end; -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [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] 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
RES: [delphi-br] Selecionar só o diretório
Tenta assim. if openDlgBD.execute then begin ArquivoSelfoto := trim(OpenDlgBD.FileName); edpathfoto.Text := ExtractFilePath(OpenDlgBD.FileName); end; end; Elcio Domingos Ramos DEMAG Cranes Components Ltda. Deptº Tempos Metodos. Fone: (11)2145-7823 - Fax : (11)2145-7910 -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Cícero Enviada em: sexta-feira, 21 de outubro de 2005 10:40 Para: delphi-br@yahoogrupos.com.br Assunto: RES: [delphi-br] Selecionar só o diretório Ninguém respondeu ainda... -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Cícero Enviada em: quinta-feira, 20 de outubro de 2005 17:01 Para: Listadelphi (E-mail) Assunto: [delphi-br] Selecionar só o diretório Fiz esta rotina que está funcionando maravilhosamente, porém, no ARQUIVOSELFOTO, eu só quero o diretório e não diretório e arquivo.jpg o que está faltando? begin openDlgBD.Filter := 'Bases de Dados Access|*.jpg;*.gif;*.jpeg'; openDlgBD.Title := 'Seleção do banco de dados do sistema'; DirExe := ExtractFilePath(ParamStr(0)); openDlgBD.InitialDir := DirExe; if openDlgBD.execute then begin ArquivoSelfoto := trim(OpenDlgBD.FileName); edpathfoto.Text := trim(OpenDlgBD.FileName); end; end; -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos -- 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] 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