RSS订阅 | 匿名投稿
您的位置:网站首页 > 文件 > 正文

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

作者:admin 来源: 日期:2018/2/6 1:11:48 人气: 标签:

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.

读完这篇文章后,您心情如何?
0
0
0
0
0
0
0
0
本文网址:
下一篇:没有资料