ich muss in meiner Anwendung Pfade zum Lesen und Schreiben von Dateien verarbeiten.
Übergebe ich an meine Funktion eine Stringliste welche nur einen Pfad beschreibt ist die Funktion korrekt,
wenn aber das letzte Element einen Dateinamen beschreibt bekomme ich ein unnötiges \ Zeichen im Ergebnis.
Was ist der beste Ansatz um dieses Problem zulösen ? ich kann unter Umständen nicht auf das Verzeichnis zugreifen zur Laufzeit meines Programms
Delphi-Quellcode:
function CombinePathStringlist(aPathList: TStringList;
AddServerPrefix: Boolean): String;
var
i: Integer;
begin
Result := '';
for i := 0 to (aPathList.Count - 1) do
begin
Result := IncludeTrailingPathDelimiter(Result + aPathList[i]);
end;
if AddServerPrefix then
Result := IncludeTrailingPathDelimiter(ServerPathPrefix + Result);
end;