小编Arc*_*oks的帖子

我有一个Delphi应用程序正在执行,当我调用GetCurrentDir以下返回时:

C:\ dev的\ W32\2015年\ BCSLBDemo\WIN32 \调试

当我打电话时,ExtractFileDir(GetCurrentDir())我收到以下内容:

C:\ dev的\ W32\2015年\ BCSLBDemo\WIN32

我想要的是什么 C:\dev\w32\2015\BCSLBDemo

function RetRoot: string;
var
  i: Integer;
  buf: string;
begin
  Result := '';
  buf := ExtractFileDir(GetCurrentDir());
  i := Length(buf);
  repeat
    dec(i);
  until (buf[i] = '\') or (i < 3);
  if buf[i] = '\' then
  begin
    Delete(buf, i, Length(buf));
    Result := buf;
  end;
end;

我写了这个函数来得到想要的结果.我想知道是否有更好的方法来完成检索Delphi可执行文件的根目录.

在Delphi中将大小(以字节为单位)转换为KB,MB,GB的正确方法是什么.