como pegar somente o nome do arquivo no path
28/09/2004
0
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
exemplo:
C:\WINDOWS\ARQUIVO\TESTE.DOC
quero pegar somente o nome TESTE.DOC
independente do diretorio que ele esta
Fernando
Curtir tópico
+ 0
Responder
Post mais votado
28/09/2004
Utilize a função ExtractFileName.
var nomecompleto,nomedoarquivo:string; begin nomecompleto:=´c:\diretorio\teste.exe´; nomedoarquivo:=ExtractFileName(nomecompleto); end;
Dan.sm
Responder
Mais Posts
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
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
Clique aqui para fazer login e interagir na Comunidade :)