3 respuestas en este tema

[Fleon]

Como dice el tí­tulo, ¿cómo no incluyo parte de una cadena de caracteres?, por ejemplo, si tengo una ruta a un archivo ¿cómo presento sólo el nombre del archivo y no la ruta completa?:

delphi

Label1.Caption := 'C:\Sitio\Archivo.txt';

A

delphi

Label1.Caption := 'Archivo.txt';

Fleon xD

[Héctor Randolph]

Prueba con la función ExtractFileName que se encuentra en la unidad SysUtils

Un ejemplo de uso

delphi

ShowMessage(ExtractFileName('C:\Archivos de programa\MiDocumento.txt'));

[eduarcol]

Todo depende, lo quieres hacer de la forma facil o la forma dificil

delphi

var
   cArchivo, cResulta: String;
begin
   //
   cArchivo := 'C:\Sitio\Archivo.txt';
   cResulta := Copy(cArchivo, Length(ExtractFileDir(cArchivo)) + 2, Length(cArchivo) - Length(ExtractFileDir(cArchivo)) + 1);
   ShowMessage(cResulta);
 
   cResulta := ExtractFileName(cArchivo);
   ShowMessage(cResulta);
end;

[Fleon]

Prueba con la función ExtractFileName que se encuentra en la unidad SysUtils

Un ejemplo de uso

delphi

ShowMessage(ExtractFileName('C:\Archivos de programa\MiDocumento.txt'));

Muchas gracias Héctor me funcionó muy bien, y también probé el tuyo eduarcol ; .

Fleon xD