2009-12-09 10 views

ответ

5

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.

 Смежные вопросы

  • Нет связанных вопросов^_^