como ocultar caminho

Delphi

11/02/2003

Criei um programa que ao executar um arquivo o mesmo registra em um arquivo texto... ficando assim:
22:05:15 D:\meus documentos\nova pasta\jingle
e gostaria que ficasse assim:
22:05:15 jingle

Alguém pode me ajudar?

Muito Obrigado

Marcos


Markinhos

Markinhos

Curtidas 0

Respostas

Mscher

Mscher

11/02/2003

var
buf,nome: String;
i: Integer;
begin
buf:=´´;
nome:=´D:\meus documentos\nova pasta\jingle´;
i:=length(nome);
while ((nome[i] <> ´\´)) do
begin
buf:=nome[i]+buf;
dec(i);
end;
nome:=buf; // vai retornar soh o nome do arquivo :lol:


GOSTEI 0
POSTAR