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