delphi - Delphi Prism 中的 paramstr 等效项是什么

Question

是否有一个简单的语句可以给出类似于 Delphi 中的 paramstr() 的结果？

Answer 1

Delphi Prism (.Net) 不包括 ParamStr功能，但可以使用 GetCommandLineArgs 轻松实现方法，here是一个例子:

class method TMyClass.ParamStr(Index: Integer): String;
var
  MyAssembly: System.Reflection.Assembly;
  Params    : array of string;
begin
  if Index = 0 then
  begin
    MyAssembly:= System.Reflection.Assembly.GetEntryAssembly;
    if Assigned(MyAssembly) then
      Result := MyAssembly.Location
    else
      Result := System.Diagnostics.Process.GetCurrentProcess.MainModule.FileName;
  end
  else
  begin
    Params := System.Environment.GetCommandLineArgs;
    if Index > Length(Params) - 1 then
      Result := ''
    else
      Result := Params[Index];
  end;
end;

您还可以看到ShineOn包含函数 ParamStr 实现的项目.