pegar só o final da frase

[janazi 0]

como faço para pegar o nome do arquivo somente ex:

 

 

c:\teste\teste.xls

 

preciso só do teste.xls, sendo que o problema é que pode estar em qq diretório...encontrei algo aqui no fórum, mas não deu certo....

 

tipo

 

cont := 0; //pra saber em qual das strings separadas está

texto :='123:123:123';

temp := '';

for i := 1 to length(texto) do

begin

if (texto <> ':') and (i < length(texto)) then

begin

temp := temp + texto;

 

end

else

begin

inc(cont);

separados[cont] := temp;

temp := '';

end;

label3.Caption:= separados[3];

end;

 

só que tá retornando 12 ao invés de 123, fora que se tiver um diretório a mais não rola

[bastard2003 4]

Testa isso ai velho!

ExtractFieldName(OpenDialog.FileName);

:D

[thianolima 0]

function Extrai(x,z:string):string;//X = Texto pra fazer a varredura//Z = Ponto de Paradavar  tam: integer;  y: string;begin  tam:= length(x);  while tam <=  0 do  begin    if copy(x,tam,1) <> ' '  then   y:= y + copy(x,tam,1);        if copy(x,tam,1)  =  Z  the     tam:= 0;        tam:= tam - 1;      end;  result:= y; end;

olha essa função acredito q ela deve te ajudar no que você precisa