Pegar somente o nome do arquivo..?

13/02/2004

0

Delphi

Amigos

Estou usando um componente OpenDialog, e quero que o nome do arquivo selecionado seja colocado em um edit na tela principal, mas apenas o nome do arquivo e não o caminho completo dele.

Ex. Quando seleciono um arquivo põe no edit ´C:\Programa\Dados.txt´, mas preciso que ele coloque no edit apenas o nome do arquivo ´Dados.Txt´..

estou usando o seguinte Codigo:

procedure TForm1.OpenDialog2CanClose(Sender: TObject;
var CanClose: Boolean);
begin
Edit2.Text:=OpenDialog2.FileName;
end;


Grato pelo auxilio....


Wall

Wall

Responder

Post mais votado

13/02/2004

//Nome do arquivo
Edit2.Text := ExtractFileName(Opendialog1.FileName);

Mais umas dicas:

//Caminho
Edit2.Text := ExtractFilePath(Opendialog1.FileName);
//Extensão
Edit2.Text := ExtractFileExt(Opendialog1.FileName);


Adriano Santos

Adriano Santos
Responder

Gostei + 1

Mais Posts

13/02/2004

Motta

function ExtractFileName(const FileName: string): string;


Responder

Gostei + 0

19/08/2008

Roberto_br

Valeu pela dica, me ajudou aqui.


Responder

Gostei + 0

19/08/2008

Roberto_br

[b:285393bc6d]Edit:[/b:285393bc6d] Gostaria de extrair somente o nome do arquivo sem a extensão, tem como?


Responder

Gostei + 0

10/01/2025

Alexandre

[b:285393bc6d]Edit:[/b:285393bc6d] Gostaria de extrair somente o nome do arquivo sem a extensão, tem como?



Function ExtractFileNameWithoutExt(const Filename: String): String;
var
aExt : String;
aPos : Integer;
begin
aExt := ExtractFileExt(Filename);
Result := ExtractFileName(Filename);
if aExt <> '' then
begin
aPos := Pos(aExt,Result);
if aPos > 0 then
begin
Delete(Result,aPos,Length(aExt));
end;
end;
end;
Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar