Delphi-sovellusten suorittaminen parametreilla

Vaikka se oli paljon yleisempää DOS-päivinä, nykyaikaiset käyttöjärjestelmät antavat myös suorittaa komentoriviparametreja sovellusta vastaan, jotta voit määrittää, mitä sovelluksen pitäisi tehdä.

Sama pätee sinun Delfoi sovellus, olipa se a konsoli-sovellus tai yksi graafisen käyttöliittymän kanssa. Voit siirtää parametrin Windowsin komentokehotteesta tai Delphin kehitysympäristöstä Suorita> Parametrit valikkovaihtoehto.

Tätä opetusohjelmaa varten käytämme parametrivalintaikkunaa siirtääksesi komentoriviargumentteja sovellukselle niin, että se näyttää ikään kuin toimisimme sitä Windowsin Resurssienhallinnasta.

ParamCount toiminto palauttaa komentorivillä ohjelmalle siirretyn parametrien määrän, ja ParamStr palauttaa määritetyn parametrin komentoriviltä.

OnActivate Päämuodon tapahtumakäsittelijä on yleensä missä parametrit ovat saatavilla. Kun sovellus on käynnissä, ne voidaan hakea sieltä.

Huomaa, että ohjelmassa, CmdLine muuttuja sisältää merkkijonon komentoriviargumentteilla, jotka on määritetty sovelluksen käynnistyessä. Voit käyttää

Aloita uusi projekti ja aseta a nappi komponentti päällä muoto. Painikkeissa Klikkaamalla kirjoita seuraava koodi:

menettely TForm1.Button1Click (Lähettäjä: TObject);

alkaa

 ShowMessage (ParamStr (0));

pää;

Kun suoritat ohjelman ja napsautat painiketta, näyttöön tulee viestiruutu, jossa näkyy suorittavan ohjelman polku ja tiedostonimi. Voit nähdä sen ParamStr "toimii", vaikka et olisi siirtänyt mitään parametreja sovellukselle; tämä johtuu siitä, että taulukon arvo 0 tallentaa suoritettavan sovelluksen tiedostonimen, mukaan lukien polkutiedot.

Valita parametrit alkaen Juosta -valikko ja lisää sitten Delphi-ohjelmointi avattavaan luetteloon.

Huomautus: Muista, että kun siirrät parametreja sovellukseesi, erota ne välilyönteillä tai välilehdillä. Käytä kaksoislainauksia kääriäksesi useita sanoja yhdeksi parametriksi, kuten käytettäessä välilyöntejä sisältäviä pitkiä tiedostonimiä.

Seuraava vaihe on silmukka parametrien läpi käyttämällä ParamCount () saadaksesi parametrien arvo käyttämällä ParamStr (i).

Muuta painikkeen OnClick-tapahtumakäsittelijä tähän:

menettely TForm1.Button1Click (Lähettäjä: TObject);

var

 j: kokonaisluku;

beginfor j: = 1 että ParamCount tehdä

 ShowMessage (ParamStr (j));

pää;

Kun suoritat ohjelman ja napsautat painiketta, näyttöön tulee viesti, jossa lukee "Delphi" (ensimmäinen parametri) ja "Programming" (toinen parametri).