Nome do Arquivo

Question

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

Tinorj · Answer

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;

Tinorj · Answer

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;

F�rum Nome do Arquivo #234028