delphi
Label1.Caption := 'C:\Sitio\Archivo.txt';
A
delphi
Label1.Caption := 'Archivo.txt';
Fleon xD
Escrito 08 julio 2009 - 05:42
Label1.Caption := 'C:\Sitio\Archivo.txt';
Label1.Caption := 'Archivo.txt';
Escrito 08 julio 2009 - 06:00
ShowMessage(ExtractFileName('C:\Archivos de programa\MiDocumento.txt'));
Escrito 08 julio 2009 - 06:03
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;
Escrito 08 julio 2009 - 06:12
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'));