Lai gan tas bija daudz biežāk DOS laikos, mūsdienu operētājsistēmas arī ļauj palaist komandrindas parametrus pret lietojumprogrammu, lai jūs varētu norādīt, kas programmai jādara.
Tas pats attiecas uz jūsu Delfi pieteikumu neatkarīgi no tā, vai tas ir paredzēts a konsoles lietojumprogramma vai ar GUI. Parametru var nodot no komandu komandu uzvednes operētājsistēmā Windows vai no Delphi attīstības vides zem Palaist> Parametri izvēlnes opcija.
Šajā apmācībā mēs izmantosim parametru dialoglodziņu, lai komandrindas argumentus nodotu lietojumprogrammai tā, lai tā būtu tāda, it kā mēs to darbinātu no Windows Explorer.
ParamCount un ParamStr ()
ParamCount funkcija atgriež komandrindā programmai nodoto parametru skaitu, un ParamStr no komandrindas atgriež noteiktu parametru.
Ieslēgt Galvenās formas notikumu apstrādātājs parasti ir tur, kur ir pieejami parametri. Kad lietojumprogramma darbojas, tās var izgūt.
Ņemiet vērā, ka programmā CmdLine mainīgais satur virkni ar komandrindas argumentiem, kas norādīti programmas startēšanas laikā. Tu vari izmantot
CmdLine lai piekļūtu visai lietojumprogrammai nodotajai parametru virknei.Pieteikuma paraugs
Sāciet jaunu projektu un ievietojiet a Poga komponents ieslēgts Forma. Pogas's OnClick notikumu apstrādātājs, ierakstiet šādu kodu:
procedūra TForm1.Button1Click (Sūtītājs: TObject);
sākt
ShowMessage (ParamStr (0));
beigas;
Palaižot programmu un noklikšķinot uz pogas, parādās ziņojumu lodziņš ar izpildes programmas ceļu un faila nosaukumu. To var redzēt ParamStr "darbojas" pat tad, ja lietojumprogrammai neesat nodevis nevienu parametru; tas notiek tāpēc, ka masīva vērtībā 0 tiek saglabāts izpildāmās lietojumprogrammas faila nosaukums, ieskaitot ceļa informāciju.
Izvēlieties Parametri no Skrien un pēc tam pievienojiet Delphi programmēšana uz nolaižamo sarakstu.
Piezīme: Atcerieties, ka, nododot parametrus savai lietojumprogrammai, atdaliet tos ar atstarpēm vai cilnēm. Izmantojiet dubultās pēdiņas, lai vairākus parametrus apvilktu kā vienu parametru, piemēram, ja izmantojat garus failu nosaukumus, kuros ir atstarpes.
Nākamais solis ir izsvītrot parametrus, izmantojot ParamCount () lai iegūtu parametru vērtību, izmantojot ParamStr (i).
Mainiet pogas OnClick notikumu apstrādātāju uz šo:
procedūra TForm1.Button1Click (Sūtītājs: TObject);
var
j: vesels skaitlis;
sākt j: = 1 uz ParamCount darīt
ShowMessage (ParamStr (j));
beigas;
Palaižot programmu un noklikšķinot uz pogas, parādās ziņojums ar uzrakstu "Delphi" (pirmais parametrs) un "Programming" (otrais parametrs).