Čeprav je bilo v dneh DOS veliko pogostejše, sodobni operacijski sistemi omogočajo tudi, da zaženete parametre ukazne vrstice proti aplikaciji, tako da lahko določite, kaj naj aplikacija počne.
Enako velja za vaše Delphi vloga, naj bo to za a aplikacija za konzolo ali eno z GUI. Parameter lahko prenesete iz ukazne vrstice v sistemu Windows ali iz razvojnega okolja v Delfih pod Run> Parametri možnost menija.
Za to vadnico bomo v pogovornem oknu parametrov uporabili ukazne vrstice, da bomo argumente ukazne vrstice prenesli v aplikacijo, tako da bo tak, kot če ga izvajamo iz Windows Explorerja.
ParamCount in ParamStr ()
The ParamCount funkcija vrne število parametrov, poslanih programu v ukazni vrstici, in ParamStr vrne določen parameter iz ukazne vrstice.
The Vklopljeno Obdelovalec dogodkov glavnega obrazca je običajno tam, kjer so na voljo parametri. Ko se aplikacija zažene, jih lahko najdete tam.
Upoštevajte, da v programu CmdLine spremenljivka vsebuje niz z argumenti ukazne vrstice, ki so podani ob zagonu aplikacije. Lahko uporabiš
CmdLine za dostop do celotnega niza parametrov, prejetega v aplikacijo.Vloga vzorca
Začnite nov projekt in postavite Gumb komponenta na Oblika. V gumbu OnClick obdelovalec dogodkov napišite naslednjo kodo:
postopek TForm1.Button1Click (Pošiljatelj: TObject);
začeti
ShowMessage (ParamStr (0));
konec;
Ko zaženete program in kliknete gumb, se prikaže polje s sporočilom s potjo in imenom datoteke izvršilnega programa. To lahko vidite ParamStr "deluje", tudi če niste prenesli nobenih parametrov v aplikacijo; to je zato, ker vrednost matrike 0 shrani ime datoteke izvršljive aplikacije, vključno s podatki o poti.
Izberite Parametri Iz Teči in nato dodajte Delphi Programiranje na spustni seznam.
Opomba: Ne pozabite, da jih ob vnosu parametrov v aplikacijo ločite s presledki ali zavihki. Uporabite dvojne narekovaje, če želite več besed zaviti kot en parameter, na primer pri uporabi dolgih imen datotek, ki vsebujejo presledke.
Naslednji korak je iskanje parametrov z uporabo ParamCount () da dobite vrednost parametrov z uporabo ParamStr (i).
Spremenite gumb za upravljanje dogodkov OnClick na to:
postopek TForm1.Button1Click (Pošiljatelj: TObject);
var
j: celo število;
startfor j: = 1 do ParamCount stori
ShowMessage (ParamStr (j));
konec;
Ko zaženete program in kliknete gumb, se prikaže sporočilo, ki glasi "Delphi" (prvi parameter) in "Programiranje" (drugi parameter).