Delphi 7 Ordner Name aus dem Pfad

Question

Ich habe einen Pfad sagen C: \ Programme \ Borland was wäre der einfachste Weg, um diese Zeichenfolge analysieren und nur Borland zurückkehren? danke

Answer 1

Sie können erhalten, was nach dem letzten Backslash kommt mit ExtractFileName, die in der SysUtils Einheit gefunden wird.

Answer 2

versuchen Sie mit der ExtractFileName Funktion, diese Funktion funktioniert nur (für Ihr Beispiel), wenn Ihr Pfad nicht mit einem Backslash finalisieren, so können Sie die ExcludeTrailingPathDelimiter Funktion verwenden, um den letzten Backslash zu entfernen.

sehen diese Probe

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. 

Check diesen Link für weitere Informationen

Path Manipulation Routines

Answer 3

direkt, dass die Zeichenfolge zu analysieren und Rück nur "Borland", Sie können dies tun:

uses SysUtils; 

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