Skip to main content
adicionou 198 caracteres ao conteúdo
Fonte Link
stderr
  • 30,9mil
  • 5
  • 49
  • 76

Você pode utilizar a função ExtractFileName() para extrair o nome de um arquivo ou pasta, o resultado será os caracteres mais a direita da string passada como parâmetro, começando com o primeiro caractere após o colon ou backslash.

Caso o resultado da função acima conter um delimitador no final você pode usar a função ExcludeTrailingPathDelimiter() para elimina-lo.

uses
  SysUtils;

function getPathGetPath(const pPath: string): string;
begin
if ExtractFileExt(pPath) result<> '' then
  Result := ExtractFileName(ExtractFileDir(pPath))
else
  Result := ExtractFileName(ExcludeTrailingPathDelimiter(pPath));
end;

Para usar:

procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(GetPath('C:\Program Files\Skype'));            // Skype
ShowMessage(GetPath('C:\Program Files\Skype\'));           // Skype
ShowMessage(GetPath('C:\Program Files\Skype\Skype.exe'));  // Skype
end;

Você pode utilizar a função ExtractFileName() para extrair o nome de um arquivo ou pasta, o resultado será os caracteres mais a direita da string passada como parâmetro, começando com o primeiro caractere após o colon ou backslash.

Caso o resultado da função acima conter um delimitador no final você pode usar a função ExcludeTrailingPathDelimiter() para elimina-lo.

uses
  SysUtils;

function getPath(const pPath: string): string;
begin
  result := ExtractFileName(ExcludeTrailingPathDelimiter(pPath));
end;

Para usar:

procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(GetPath('C:\Program Files\Skype'));    // Skype
ShowMessage(GetPath('C:\Program Files\Skype\'));   // Skype
end;

Você pode utilizar a função ExtractFileName() para extrair o nome de um arquivo ou pasta, o resultado será os caracteres mais a direita da string passada como parâmetro, começando com o primeiro caractere após o colon ou backslash.

Caso o resultado da função acima conter um delimitador no final você pode usar a função ExcludeTrailingPathDelimiter() para elimina-lo.

uses
  SysUtils;

function GetPath(const pPath: string): string;
begin
if ExtractFileExt(pPath) <> '' then
  Result := ExtractFileName(ExtractFileDir(pPath))
else
  Result := ExtractFileName(ExcludeTrailingPathDelimiter(pPath));
end;

Para usar:

procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(GetPath('C:\Program Files\Skype'));            // Skype
ShowMessage(GetPath('C:\Program Files\Skype\'));           // Skype
ShowMessage(GetPath('C:\Program Files\Skype\Skype.exe'));  // Skype
end;
adicionou 245 caracteres ao conteúdo
Fonte Link
stderr
  • 30,9mil
  • 5
  • 49
  • 76

Você pode utilizar a função ExtractFileName() para extrair o nome de um arquivo ou pasta, o resultado serãoserá os caracteres mais a direita da string dadapassada como parâmetro, começando com o primeiro caractere após o coloncolon ou backslashbackslash. 

Caso o resultado da função acima conter um delimitador no final você pode usar a função ExcludeTrailingPathDelimiter() para elimina-lo.

uses
  SysUtils;

function RetPathgetPath(const pPath: string): string;
begin
  result := ExcludeTrailingPathDelimiter(ExtractFileName(ExcludeTrailingPathDelimiter(pPath));
end;

Para usar:

procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(GetPath('C:\Program Files\Skype'));    // Skype
ShowMessage(GetPath('C:\Program Files\Skype\'));   // Skype
end;

Você pode utilizar a função ExtractFileName() para extrair o nome de um arquivo ou pasta, o resultado serão os caracteres mais a direita da string dada, começando com o primeiro caractere após o colon ou backslash. Caso o resultado da função acima conter um delimitador no final você pode usar a função ExcludeTrailingPathDelimiter() para elimina-lo.

uses
  SysUtils;

function RetPath(const pPath: string): string;
begin
  result := ExcludeTrailingPathDelimiter(ExtractFileName(pPath));
end;

Você pode utilizar a função ExtractFileName() para extrair o nome de um arquivo ou pasta, o resultado será os caracteres mais a direita da string passada como parâmetro, começando com o primeiro caractere após o colon ou backslash. 

Caso o resultado da função acima conter um delimitador no final você pode usar a função ExcludeTrailingPathDelimiter() para elimina-lo.

uses
  SysUtils;

function getPath(const pPath: string): string;
begin
  result := ExtractFileName(ExcludeTrailingPathDelimiter(pPath));
end;

Para usar:

procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(GetPath('C:\Program Files\Skype'));    // Skype
ShowMessage(GetPath('C:\Program Files\Skype\'));   // Skype
end;
adicionou 469 caracteres ao conteúdo
Fonte Link
stderr
  • 30,9mil
  • 5
  • 49
  • 76

Você pode utilizar a função ExtractFileName() para issoextrair o nome de um arquivo ou pasta, o resultado serão os caracteres mais a direita da string dada, começando com o primeiro caractere após o colon ou backslash. VejaCaso o resultado da função acima conter um exemplo:delimitador no final você pode usar a função ExcludeTrailingPathDelimiter() para elimina-lo.

uses
  SysUtils;

var
   function PathRetPath(const pPath: string): ;string;
begin
  Path:='C:\Program Files\Skype';
result := ShowMessage(ExcludeTrailingPathDelimiter(ExtractFileName(Path)pPath)); // retornará "Skype"
end;

Você pode utilizar a função ExtractFileName para isso. Veja um exemplo:

uses
  SysUtils;

var
    Path : string ;
begin
  Path:='C:\Program Files\Skype';
  ShowMessage(ExcludeTrailingPathDelimiter(ExtractFileName(Path))); // retornará "Skype"

Você pode utilizar a função ExtractFileName() para extrair o nome de um arquivo ou pasta, o resultado serão os caracteres mais a direita da string dada, começando com o primeiro caractere após o colon ou backslash. Caso o resultado da função acima conter um delimitador no final você pode usar a função ExcludeTrailingPathDelimiter() para elimina-lo.

uses
  SysUtils;

function RetPath(const pPath: string): string;
begin
  result := ExcludeTrailingPathDelimiter(ExtractFileName(pPath));
end;
Carregando
Fonte Link
stderr
  • 30,9mil
  • 5
  • 49
  • 76
Carregando