Array
(
)

como pegar somente o nome do arquivo no path

Fernando
   - 28 set 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


Beppe
   - 28 set 2004

ExtractFileName(Nome_Do_Arquivo)


Dan.sm
   - 28 set 2004

Utilize a função ExtractFileName.


#Código


var
nomecompleto,nomedoarquivo:string;


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



Helton Garrido
   - 15 abr 2015

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