das stimmt, nur nachdem ich angefangen hab und mittendrin eine Antwort erhielt, wäre ich jetzt beeinflusst.
Was um Himmels willen nicht heißen soll, dass ich keine Antworten mehr haben will.
das war meins (aber noch nicht fertig und verworfen, marabus´s gefällt mir einfach besser, egal ob ich meines zum Laufen bring)
Delphi-Quellcode:
function gibletztenOrdner(komplett: String): String; // es muss der ganze Pfad mit Dateiname übergeben werden
var //
Teilstring: String;
p1: integer;
p2: integer;
c: integer;
i: integer;
Ergebnis: String;
begin
{
'c:\test\Gruppe1\Datei.txt'
p2-letzter Backslash
p1-vorletzter Backslash
|---c---|
}
for i := 0 to length(komplett) - 1 do begin
p1 := pos('\',komplett); // liefert vorletzten Backslash
//hier fehlt noch was...
end;
p2 := pos('\' + extractfilename(komplett),komplett); // liefert letzten Backslash
c := p2 - P1;
Ergebnis := copy(komplett,p1,c);
result := Ergebnis;
end;