Autor Beitrag
Beutel
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starontopic star
Beiträge: 89

WIN XP

BeitragVerfasst: Di 13.09.05 08:32 
ich lasse mir meine Datein über eine Suche anzeigen und möchte gern in einem Edit Feld denn letzten Ordner anzeigen lassen bzw denn Ordner in dem das Bild liegt

C:\Delphi Projekte\suchen\Bilder\test.jpg

also hier der Ordner "Bilder".

gibt es da irgend eine Funktion oder hat jemand eine Idee?
matze
ontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic starofftopic star
Beiträge: 4613
Erhaltene Danke: 24

XP home, prof
Delphi 2009 Prof,
BeitragVerfasst: Di 13.09.05 08:39 
ja da gibt es extractfilepath

_________________
In the beginning was the word.
And the word was content-type: text/plain.
Luckie
Ehemaliges Mitglied
Erhaltene Danke: 1



BeitragVerfasst: Di 13.09.05 08:43 
Dann hat er aber immer noch nicht den letzten Ordner allein. Da wird er wohl noch von hinten den nächsten '\' suchen und dann mit Copy oder delete arbeiten müssen.
Beutel Threadstarter
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starontopic star
Beiträge: 89

WIN XP

BeitragVerfasst: Di 13.09.05 09:17 
ahb ich mir ja auch schon gedanken gemacht aber komme nett drauf wie ich dem sagen soll das der
"C:\Delphi Projekte\suchen\" wegschneiden soll weil bei der länge bringt er mir alles und bei Pos immer das erste "/"
AXMD
ontopic starontopic starontopic starontopic starontopic starontopic starofftopic starofftopic star
Beiträge: 4006
Erhaltene Danke: 7

Windows 10 64 bit
C# (Visual Studio 2019 Express)
BeitragVerfasst: Di 13.09.05 09:19 
Wieso suchst du nicht einfach mit einer for-Schleife von hinten her das \ und machst dann Copy bzw. Delete mit dieser Position :gruebel:

AXMD
Gausi
ontopic starontopic starontopic starontopic starontopic starontopic starofftopic starofftopic star
Beiträge: 8554
Erhaltene Danke: 481

Windows 7, Windows 10
D7 PE, Delphi XE3 Prof, Delphi 10.3 CE
BeitragVerfasst: Di 13.09.05 09:19 
Mit LastDelimiter('\',meinpfad) erhält man das letzte "\".

Evtl. vorher mit AnsiEndsStr('\',meinpfad) überprüfen, ob ganz hinten ein '\' ist. Das dann vorher mit meinpfad := Copy(meinpfad,1,length(meinpfad)-1); löschen.

_________________
We are, we were and will not be.
Beutel Threadstarter
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starontopic star
Beiträge: 89

WIN XP

BeitragVerfasst: Di 13.09.05 13:38 
AnsiEndStr was muss ich denn da in der uses eintragen damit die function erkannt wird?
Holgerwa
ontopic starontopic starontopic starontopic starontopic starontopic starofftopic starofftopic star
Beiträge: 325

WIN XP Pro, Vista Business
Delphi 7 Pro, BDS 2006 Pro
BeitragVerfasst: Di 13.09.05 13:59 
Hallo,

da suchst Du in der Delphi-Hilfe nach der Funktion AnsiEndsStr, und wenn Du sie gefunden hast, steht da:

Unit: StrUtils

Holger
Beutel Threadstarter
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starontopic star
Beiträge: 89

WIN XP

BeitragVerfasst: Di 20.09.05 15:49 
wie bekomm ich jetzt eigentlich diese Ordner in eine ansicht so wie bei einem Explorer wo man die Ordner dann auch noch auswählen könnte. kennt da jemand so eine Komponente?