Letztes Zeichen einen Strings überprüfen

[ichbins]

includetriailingpathdeleminiter ist eine Funktion. Der String wird nicht verändert sondern nur die veränderte Version zurückgegeben.

so gehts:

showmessage(IncludeTrailingPathDelimiter(jvdirectoryedit1.text)); ich hab mir die Funktion aber selber geschrieben (kürzer , außerdem lassen sich noch weitere Funktionen hinzufügen):

Delphi-Quellcode:

function dirup(const dir:string; add_if_length_is_zero:boolean=false):string;
begin
  if length(dir)=0 then begin
    if add_if_length_is_zero then
      result:='\'
    else
      result:='';
    exit;
  end;
  if dir[length(dir)]='\' then
    result:=dir
  else
    result:=dir+'\';
end;