Delphi-PRAXiS - Delphi bis zum letzten backslash löschen :)

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)

- - Delphi bis zum letzten backslash löschen :) (https://www.delphipraxis.net/27784-bis-zum-letzten-backslash-loeschen.html)

the_seed

15. Aug 2004 17:48

bis zum letzten backslash löschen :)

Hi, mein problem ist folgendes ich habe einen filemanager und eine variable die den aktuellen pafd enthält ... nur möchte ich eine rückgängis funktion einbauen das wenn zb pfad = c:\windows\system\ ist wie kann ich es erreichen das die letzte pfadangabe ('system\') entfernt wird ?also das man ins übergeordnete verueichnis kommt ?

Luckie

15. Aug 2004 17:57

Re: bis zum letzten backslash löschen :)

Geh mit einer Delphi-Referenz durchsuchen

for-Schleife von hinten nach vorne den String durch und überprüfe das aktuelle zeichen. Hast du deinen '\' gefunden, Position merken und mit Delphi-Referenz durchsuchen

copy den String rauskopieren.

Christian Seehase

16. Aug 2004 00:30

Re: bis zum letzten backslash löschen :)

Moin The Seed,

oder Du nimmst ExtractFilepath:

Delphi-Quellcode:

ExtractFilepath(copy('c:\windows\system\',1,length('c:\windows\system\')-1))

Statt der Konstanten dann natürlich eine Variable.
Es muss nur sichergestellt sein, dass der Wert auch auf \ endet.
Endet er hingegen garantiert nicht auf \ kannst Du Dir sogar das copy(...) sparen.

Muetze1

16. Aug 2004 00:35

Re: bis zum letzten backslash löschen :)

Moin!

Delphi-Quellcode:

ExtractFilePath(ExcludeTrailingBackslash(Pfad));

MfG
Muetze1

Muetze1

16. Aug 2004 00:36

Re: bis zum letzten backslash löschen :)

Zitat:

Zitat von Muetze1

Moin!

Delphi-Quellcode:

Pfad := ExtractFilePath(ExcludeTrailingBackslash(Pfad));

MfG
Muetze1

Alle Zeitangaben in WEZ +1. Es ist jetzt 00:55 Uhr.