Ich will auch mal,
, denn wenn
ich irgendeinen Wert an "Result" übergebe, dann benutze ich auch "Result" zum Testen. Ansonsten könnte man auch die Variable im Funktionskopf bearbeiten und dann an das Funktionsergebnis weiterreichen. Geht hier aber nicht, weil es eine Konstante ist. Absichtlich! Dann kommt man nämlich gar nicht erst in Versuchung, den Wert direkt bearbeiten zu wollen.
Delphi-Quellcode:
function DelBackslash(const Dir: string): string;
begin
Result := Dir;
if(Result <> '') then
while(Result[length(Result)] = '\') do
SetLength(Result,length(Result)-1);
end;