Übergeordnetes Verzeichnis ermitteln |
|
| System | Win9x, WinNT, Win2000, WinXP, Vista, Win7 |
|---|---|
| Ab Delphi-Version | Delphi 1 |
| Letzte Änderung | 28.09.2010 |
Die folgende Funktion ermittelt aus einem String (bzw. aus einer Pfadangabe) das übergeordnete Verzeichnis. Wenn man dem Parameter APath folgenden String übergibt:
C:\Verzeichnis1\Verzeichnis2
gibt die Funktion folgendes Result zurück:
C:\Verzeichnis1\
function GetPreviousDirectory(const APath: string): string;
var
i: Integer;
begin
Result:=APath;
i:=Length(APath);
if i>3 then
begin
repeat
Dec(i);
until (APath[i] = '\') or (i=1);
if APath[i]='\' then
Result:=Copy(APath,1,i);
end;
end;
var
i: Integer;
begin
Result:=APath;
i:=Length(APath);
if i>3 then
begin
repeat
Dec(i);
until (APath[i] = '\') or (i=1);
if APath[i]='\' then
Result:=Copy(APath,1,i);
end;
end;
Ähnliche Seiten:
- Pfadvariablen zerpflücken
- Windows-Verzeichnis ermitteln
- System-Verzeichnis ermitteln
- Temporäres Verzeichnis ermitteln
- Ordner, in dem sich die eigene Anwendung befindet, ermitteln
- Endet ein String mit einem Backslash/Slash?
- Pfad des Programme-Ordners ermitteln
- Feststellen, ob ein Verzeichnis existiert
- Alle Verzeichnisse in ein TTreeView einlesen
- Mit dem Arbeitsverzeichnis arbeiten