delphi 文件路径结尾去掉“\”

本文整理自网络，侵删。

 
program Project2;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils;

function RemoveSlash( Dir: string ): string;
begin
  Result:= Dir;
  if Dir<>'' then
    if Result[ length( Result ) ]='\' then
      Delete( Result, length( Result ), 1 );
end;


begin
  try

  Writeln(RemoveSlash('c:\122121\121221\'));
  readln;
    { TODO -oUser -cConsole Main : Insert code here }
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.
 

相关阅读 >>

indy tidtcpclient 的一个用法上要留意的问题，以及 http

Delphi imagelist-图片（bmp）按名称而不按索引

Delphi 把mp3做背景音乐

Delphi xe5 安卓设置屏幕横屏竖屏

Delphi 获取文件crc和md5

Delphi获取宽带ip

Delphi findwindow的一些用法

Delphi 获取 设置文件时间

Delphi inc函数和dec函数的用法

Delphi 判断当前活动窗口

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi 文件路径结尾去掉“\”