GetArgStr: Porovnání verzí

Z Delphi & Pascal (česká wiki)
Skočit na navigaci Skočit na vyhledávání
 
Řádek 10: Řádek 10:
  
 
{| class="wikitable"
 
{| class="wikitable"
! aling="left"| Parametr        !! aling="left"| Návratová hodnota
+
! align="left"| Parametr        !! align="left"| Návratová hodnota
 
|---------------------------------------------------------------
 
|---------------------------------------------------------------
 
| Index < 0 nebo > GetArGCount  || prázdný řetězec
 
| Index < 0 nebo > GetArGCount  || prázdný řetězec
Řádek 34: Řádek 34:
 
   GetArgStr(ArgN, 1, 19);
 
   GetArgStr(ArgN, 1, 19);
 
   Writeln('1. argument příkazového řádku (včetně jména' );
 
   Writeln('1. argument příkazového řádku (včetně jména' );
   Writeln('programu) je ''', ArgN, '''.');
+
   Writeln('programu) je ' ' ', ArgN, ' ' '.');
 
  end.
 
  end.
  
 
[[Category:WinDos]]
 
[[Category:WinDos]]
 
[[Category:Správa prostředí]]
 
[[Category:Správa prostředí]]

Aktuální verze z 6. 10. 2012, 20:01

Vrací parametr příkazové řádky, určený argumentem Index.

Deklarace
function GetArgStr(Dest: PChar; Index: Integer; MaxLen: Word): PChar;
Režim
Windows
Návratová hodnota
Parametr Návratová hodnota
Index < 0 nebo > GetArGCount prázdný řetězec
Index = 0 jméno souboru aktuálního modulu;
Dest = vrácená hodnota
Viz také
GetArgCount


Vzorový příklad

{GetArgSt.PAS}
{Vzorový příklad pro funkci GetArgStr.}
{ Pro Windows: }
{ uses WinDos, WinCrt; }
uses WinDos;
var
  ArgN: PChar;
begin
  GetMem(ArgN, 20);
  GetArgStr(ArgN, 1, 19);
  Writeln('1. argument příkazového řádku (včetně jména' );
  Writeln('programu) je ' ' ', ArgN, ' ' '.');
end.