Nome do Arquivo

Delphi

24/05/2004

Como devo fazer para pegar somente o nome dos aquivos, sem a extensão, de um diretório?


Alex Maia

Alex Maia

Curtidas 0

Respostas

Tinorj

Tinorj

24/05/2004

Espero que essa função possa lhe ajudar.

function ExtractFileNameOnly(const FileName: String): String;
var
  Arquivo, Extensao: String
begin
  Arquivo := ExtractFileName(FileName);
  Extensao := ExtractFileExt(FileName);
  Result := StringReplace(Arquivo, ´.´+Extensao,´´);
end;



GOSTEI 0
Tinorj

Tinorj

24/05/2004

Correção do código enviado anteriormente.

function ExtractFileNameOnly(const FileName: String): String;
var
  Arquivo, Extensao: String;
begin
  Arquivo := ExtractFileName(FileName);
  Extensao := ExtractFileExt(FileName);
  Result := StringReplace(Arquivo, Extensao, ´´, []);
end;



GOSTEI 0
POSTAR