como pegar somente o nome do arquivo no path

28/09/2004

preciso pegar somente o nome do arquivo no path, como devo fazer

exemplo:


C:\WINDOWS\ARQUIVO\TESTE.DOC


quero pegar somente o nome TESTE.DOC

independente do diretorio que ele esta


Fernando

Respostas

28/09/2004

Beppe

ExtractFileName(Nome_Do_Arquivo)


Responder Citar

28/09/2004

Dan.sm

Utilize a função ExtractFileName.


var
nomecompleto,nomedoarquivo:string;


begin
   nomecompleto:=´c:\diretorio\teste.exe´;
   nomedoarquivo:=ExtractFileName(nomecompleto);
end;



Responder Citar

15/04/2015

Helton Garrido

Bom dia meus caros,

Estou tendo dificuldade em extrair um nome de um arquivo ex:

A minha imagem é jpg e eu converto em gif sendo que eu gostaria de extrair o nome da imagem jpg e converter para gif com o mesmo nome do jpg e não estou conseguindo, pois o sistema esta funcionando normalmente. veja o código a baixo:

procedure TFormConversorGif.BitBtn3Click(Sender: TObject);
var
jpg : TJPEGImage;

begin
Button1.Click;
jpg := TJPEGImage(Image1.Picture.Graphic);
if jpg.CompressionQuality <= 20 then
begin
ShowMessage('Imagem compactada!');
Exit;
end;

jpg.CompressionQuality := 20;
jpg.Compress;
//jpg:='c:\diretorio\GEAP.gif';
//jpg:=ExtractFileName(nomecompleto);
jpg.SaveToFile('C:\Documents and Settings\Administrador\Desktop\Scanner\GEAP.gif');
end;

ti.garrido@live.com
Responder Citar