Einige nützliche Dateifunktionen

[Mattin]

Hallo Zusammen,

hier ein paar nützliche Funktionen zu Dateien und Pfade von mir.

************************************************** ******************************
* Überprüft ob ein "\" am Ende des Pfades ist.
* function UeberpruefeSlash(const Pfad : String): String;
* Wenn nicht wird "\" darangehängt.
************************************************** ******************************
* Liefert den Filenamen aus einen einen String zurueck
* function GetFileName(const FileName :String):String;
* Bsp : GetFileName('C:\WINDOWS\SYSTEM\README.TXT') --> 'README.TXT'
************************************************** *****************************
* Liefert den Pfad einer Datei zurueck
* function GetDirName(const FileName: String):String;
* Bsp : GetDirName('C:\WINDOWS\SYSTEM\README.TXT') --> 'C:\WINDOWS\SYSTEM\'
************************************************** *****************************
* Liefert den Extender eines Dateinamens in Kleinbuchstaben zurück
* function GetExtender(const FileName: String) :String;
* Bsp_: GetExtender('Readme.TxT') --> 'txt'
************************************************** *****************************
* Holt den Dateinamen ohne Extender
* function GetName(const FileName: String) :String;
* Bsp.: GetName(Notepad.Exe) --> 'Notepad'
************************************************** ******************************
* Liefert den letzten Ordner aus einem Pfad zurück
* function GetLastDirName(const FileName: String):String;
* Bsp : GetLastDirName('C:\Programme\MeinProgramm') --> 'MeinProgramm'
************************************************** *****************************

Delphi-Quellcode:

function UeberpruefeSlash(const Pfad : String): String;
begin
 Result := Pfad;
 if (Length(Pfad) > 0) AND (Pfad[Length(Pfad)] <> '\') then Result := Result + '\';
end;

function GetFileName(const FileName: String):String;
var
  i:     Integer;   //Zaehlvariable
  S:     Integer;   //Slashposition im Filename

Begin
  S := 0;
  For i:= Length(FileName) downto 0 do
  Begin
    IF S = 0 then
    Begin
      If FileName[I] = '\' then S := I;
      result := copy(FileName, S+1, Length(Filename)-S+1);
    End;
  End;
End;

function GetDirName(const FileName: String):String;
var
  i:     Integer;   //Zaehlvariable
  S:     Integer;   //Slashposition im Filename

Begin
  S := 0;
  For i:= Length(FileName) downto 0 do
  Begin
    IF S = 0 then
    Begin
      If FileName[I] = '\' then S := I;
      result := copy(FileName, 1, S );
    End;
  End;
End;

function GetExtender(const FileName: String) :String;
var
  i:     Integer;
  s:     Integer;

Begin
  s := 0;
  For i := Length(FileName) downto 0 do
  Begin
    IF S = 0 then
    Begin
      If FileName[I] = '.' then S := I;
      result := copy(FileName, S+1, Length(Filename)-S+1);
      result := Lowercase(result);
    End;
  End;
End;

function GetName(const FileName: String) :String;
var
  i:     Integer;
  y,s:   Integer;
  Ext:   String;
Begin
  s := 0;
  For i := Length(FileName) downto 0 do
  Begin
    IF S = 0 then
    Begin
      If FileName[I] = '\' then S := I;
      Ext := copy(FileName, S+1, Length(Filename)-S+1);
      y := Pos('.',Ext);
      result := Copy(Ext,0, y -1);
      result := Lowercase(result);
    End;
  End;
End;

function GetLastDirName(const FileName: String):String;
var
  i:     Integer;   //Zaehlvariable
  S:     Integer;   //Slashposition im Filename

Begin
  S := 0;
  For i:= Length(FileName) downto 0 do
  Begin
    IF S = 0 then
    Begin
      If FileName[I] = '\' then S := I;
      result := copy(FileName, S+1, Length(Filename)-S+1);
    End;
  End;
End;

Das wars auch schon...