Luckie, deine beiden Routinen sind aber auch nicht das Gelbe vom Ei.
Delphi-Quellcode:
function HasBackslash(Dir: String): Boolean;
begin
result := Dir[length(Dir)] = '\';
end;
Dir = Leerstring -> Knatsch !!
Delphi-Quellcode:
function DelBackSlash(Dir: String): String;
begin
if length(dir) > 0 then
SetLength(Result, Length(Result)-1);
end;
ok, kein Absturz, aber damit löscht du jedes Zeichen von hinten, nicht nur Slash'e
Roderich