Nors tai buvo daug labiau įprasta DOS laikais, šiuolaikinės operacinės sistemos taip pat leidžia paleisti komandos eilutės parametrus programai, kad galėtumėte nurodyti, ką programa turėtų daryti.
Tas pats pasakytina ir apie jūsų Delfi taikymas, nesvarbu, ar jis skirtas a konsolės programa arba su GUI. Parametrą galite perduoti iš „Windows“ komandų eilutės arba iš „Delphi“ kūrimo aplinkos, esančios skiltyje Vykdyti> Parametrai meniu variantas.
Šiam mokymui naudosime parametrų dialogo langą, norėdami perduoti komandos eilutės argumentus programai, kad ji atrodytų taip, lyg ją paleistume iš „Windows Explorer“.
„ParamCount“ ir „ParamStr“ ()
„ParamCount“ funkcija grąžina komandai perduotų parametrų skaičių komandinėje eilutėje, ir ParamStr grąžina nurodytą parametrą iš komandinės eilutės.
Įjungti Pagrindinės formos renginių tvarkytojas paprastai yra ten, kur yra parametrai. Kai programa veikia, jas bus galima atkurti.
Atminkite, kad programoje, „CmdLine“ kintamajame yra eilutė su komandinės eilutės argumentais, nurodytais paleidžiant programą. Tu gali naudoti
„CmdLine“ norint pasiekti visą paraiškai perduodamą parametrų eilutę.Paraiškos taikymas
Pradėkite naują projektą ir įdėkite a Mygtukas komponentas įjungtas Forma. Mygtukuose Paspaudus renginio vedėjas, parašykite šį kodą:
procedūra TForm1.Button1Click (Siuntėjas: TObject);
prasideda
„ShowMessage“ („ParamStr“ (0));
galas;
Kai paleidžiate programą ir spustelite mygtuką, pasirodo pranešimo langas su vykdomosios programos keliu ir failo pavadinimu. Jūs galite tai pamatyti ParamStr „veikia“, net jei programai neperdavote jokių parametrų; taip yra todėl, kad masyvo reikšmė 0 išsaugo vykdomosios programos failo pavadinimą, įskaitant informaciją apie kelią.
Pasirinkite Parametrai nuo Bėk meniu, tada pridėkite „Delphi“ programavimas į išskleidžiamąjį sąrašą.
Pastaba: Atminkite, kad kai perduodate parametrus savo programai, atskirkite juos tarpais ar skirtukais. Norėdami apvynioti kelis žodžius kaip vieną parametrą, naudokite dvigubas kabutes, pvz., Kai naudojate ilgus failų pavadinimus, kuriuose yra tarpų.
Kitas žingsnis yra perbraukti parametrus naudojant „ParamCount“ () gauti parametrų vertę naudojant „ParamStr“ (i).
Mygtuko „OnClick“ įvykių tvarkyklę pakeiskite į šią:
procedūra TForm1.Button1Click (Siuntėjas: TObject);
var
j: sveikasis skaičius;
pradėti j: = 1 į „ParamCount“ daryti
„ShowMessage“ („ParamStr“ (j));
galas;
Vykdant programą ir spustelėjus mygtuką pasirodo pranešimas „Delphi“ (pirmasis parametras) ir „Programming“ (antrasis parametras).