Einige nützliche Dateifunktionen

[Luckie]

function UeberpruefeSlash(const Pfad : String): String; Ganz schlecht. deutsch-englischer Mischmasch im Funktionsnamen. Das ist das erste was mich stört. Dann impliziert der Funktionsname, dass True oder False zurückgeliefert wird. Stattdessen stellt das Ding was mit meinem Pfad an. Was wenn ich wirklich nur wissen will ob jetzt ein BackSlash am Ende steht oder nicht? Dann muss ich noch mal extra überprüfen, ob deine Funktion einen Backslash angehangen hat oder nicht und ihn gegebenenfalls wieder entfernen.

Ich habe mir mal in einem nonVCL Programm sowas dafür gemacht:

Delphi-Quellcode:

function HasBackslash(Dir: String): Boolean;
begin
  result :=  Dir[length(Dir)] = '\';
end;

Und zum entfernen:

Delphi-Quellcode:

function DelBackSlash(Dir: String): String;
begin
  if length(dir) > 0 then
    SetLength(Result, Length(Result)-1);
end;