| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
carlos_tedex
Novato
Registrado: Quinta-Feira, 8 de Junho de 2006
Mensagens: 90
Localização: Vila Velha/ES
|
 Enviada: Ter Jan 25, 2022 4:41 pm Assunto: [resolvido] Obter o diretório principal de um path |
 |
|
Boa tarde, como faço para obter o diretório principal de um path
Ex: "D:\PRG\PROGRAMACAO\Delphi\Ferramentas"
Gostaria de obter esse resultado:
"D:\PRG\"
Grato!
Editado pela última vez por carlos_tedex em Qua Jan 26, 2022 8:58 am, num total de 1 vez |
|
| Voltar ao Topo |
|
 |
natanbh1
Colaborador
Registrado: Terça-Feira, 15 de Março de 2011
Mensagens: 3093
Localização: Belo Horizonte - MG
|
| Enviada: Ter Jan 25, 2022 5:39 pm Assunto: |
|
|
Teste essa função:
Adicione StrUtils na uses.
| Código: | function pegaDiretorioPrincipal(path: string): string;
begin
path := IncludeTrailingPathDelimiter(path);
Result := Copy(path, 1, PosEx('\', path, 4));
end; |
Exemplo de uso:
| Código: | var
path: string;
begin
path := pegaDiretorioPrincipal('D:\PRG\PROGRAMACAO\Delphi\Ferramentas');
ShowMessage(path); // Retorna "D:\PRG\"
end; |
_________________
''A persistência é o caminho para o êxito.''
Charlie Chaplin |
|
| Voltar ao Topo |
|
|
carlos_tedex
Novato
Registrado: Quinta-Feira, 8 de Junho de 2006
Mensagens: 90
Localização: Vila Velha/ES
|
| Enviada: Qua Jan 26, 2022 8:57 am Assunto: |
|
|
Bom dia natanbh1,
Muito obrigado meu amigo, essa função vai me ajudar muito. Valeu! |
|
| Voltar ao Topo |
|
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
