Delphi 7 ottiene il nome della cartella dal percorso

Question

Ho un percorso dire C: \ Programmi \ Borland quale sarebbe il modo più semplice per analizzare quella stringa e solo restituire Borland? grazie

Answer 1

È possibile ottenere ciò che viene dopo l'ultima barra rovesciata con ExtractFileName, che si trova nell'unità SysUtils.

Answer 2

provare utilizzando la funzione di ExtractFileName, questa funzione è disponibile solo (per il vostro esempio) se il percorso non finalizza con un backslash, in modo da poter utilizzare la funzione ExcludeTrailingPathDelimiter per rimuovere la barra rovesciata finale.

vedono questo campione

program ProjectExtractPathDemo; 

{$APPTYPE CONSOLE} 

uses 
    SysUtils; 

var 
    Path : string ; 
begin 
    Path:='C:\Program Files\Borland'; 
    Writeln(ExtractFileName(Path));//return Borland 

    Path:='C:\Program Files\Borland\'; 
    Writeln(ExtractFileName(Path));//return '' 

    Path:='C:\Program Files\Borland\'; 
    Writeln(ExtractFileName(ExcludeTrailingPathDelimiter(Path)));//return Borland 


    Readln; 
end. 

controllo questo link per maggiori informazioni

Path Manipulation Routines

Answer 3

per analizzare direttamente la stringa e proprio ritorno "Borland", si può fare questo:

uses SysUtils; 

Delete(Path, 1, LastDelimiter('\', Path));