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;