Ehkki DOS-i päevil oli see palju tavalisem, võimaldavad tänapäevased opsüsteemid käivitada ka rakenduse vastu käsuridade parameetreid, et saaksite täpsustada, mida rakendus peaks tegema.
Sama kehtib ka teie kohta Delphi rakendus, olgu selleks siis a konsoolirakendus või üks GUI-ga. Parameetri saate edastada Windowsi käskluselt Command Prompt või Delphi arenduskeskkonnast jaotise Käivita> Parameetrid menüüvalik.
Selle õpetuse jaoks kasutame parameetrid dialoogiboksi, et edastada rakendusele käsuridade argumente, nii et see toimiks justkui käitame seda Windows Explorerist.
ParamCount ja ParamStr ()
ParamCount funktsioon tagastab käsureal programmile edastatud parameetrite arvu ja ParamStr tagastab käsurealt määratud parameetri.
Sisse lülitatud Põhivormi sündmuste käitleja on tavaliselt seal, kus parameetrid on saadaval. Kui rakendus töötab, saab neid sealt hankida.
Pange tähele, et programmis on CmdLine muutuja sisaldab stringi käsuridade argumentidega, mis olid täpsustatud rakenduse käivitamisel. Sa võid kasutada CmdLine et pääseda juurde kogu rakendusele edastatud parameetristringile.
Rakenduse näidis
Alustage uut projekti ja pange a Nupp komponent sisse lülitatud Vorm. Nupul OnClick sündmuse käitleja, kirjutage järgmine kood:
protseduur TForm1.Button1Click (saatja: TObject);
alustada
ShowMessage (ParamStr (0));
lõpp;
Programmi käivitamisel ja nupul klõpsamisel ilmub teade kasti koos täidesaatva programmi tee ja failinimega. Seda saate näha ParamStr "töötab" isegi siis, kui te pole rakendusele ühtegi parameetrit üle andnud; selle põhjuseks on see, et massiivi väärtus 0 salvestab käivitatava rakenduse failinime, sealhulgas teekonnainfo.
Valige Parameetrid alates Jookse ja seejärel lisage Delfi programmeerimine ripploendisse.
Märge: Pidage meeles, et parameetrite rakendusele ülekandmisel eraldage need tühikute või vahekaartidega. Mitme sõna mähkimiseks ühe parameetrina kasutage jutumärke (nt kui kasutate tühikuid sisaldavaid pikki failinimesid).
Järgmine samm on parameetrite aheldamine, kasutades ParamCount () parameetrite väärtuse saamiseks kasutades ParamStr (i).
Muutke nupu OnClicki sündmuste käitleja selliseks:
protseduur TForm1.Button1Click (saatja: TObject);
var
j: täisarv;
alustama j: = 1 kuni ParamCount teha
ShowMessage (ParamStr (j));
lõpp;
Programmi käivitamisel ja nupul klõpsamisel ilmub teade "Delphi" (esimene parameeter) ja "Programming" (teine parameeter).