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.
 

相关阅读 >>

Delphi twebbrowser控件禁用鼠标右键

Delphi xe5 json与Delphi object的互换

Delphi7 写过卡巴主动防御服务端

Delphi 如何在twebbrowsers之间传递数据

Delphi 批量文件改名

orangeui作者开源作品

Delphi ioutils 获取当前目录下所有的文件/文件夹

Delphi reset 以只读方式打开文件

Delphi xe 网上获取北京时间android app 启动黑屏优化补丁

Delphi 串口常用的字符串转换函数

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

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