Iako je to bilo puno češće u DOS-u, moderni operativni sustavi također vam omogućuju pokretanje parametara naredbenog retka prema aplikaciji, tako da možete odrediti što bi aplikacija trebala raditi.
Isto vrijedi i za vaše Delphi aplikacija, bilo da se radi o a aplikacija za konzolu ili onaj s GUI-jem. Možete proslijediti parametar iz naredbenog retka u sustavu Windows ili iz razvojnog okruženja u Delfima, ispod Pokrenite> Parametri opcija izbornika.
Za ovaj ćemo udžbenik koristiti dijaloški okvir s parametrima kako bismo argumente naredbenog retka proslijedili aplikaciji tako da će biti kao da ga pokrećemo iz Windows Explorera.
ParamCount i ParamStr ()
ParamCount funkcija vraća broj parametara poslanih programu u naredbenom retku, i ParamStr vraća zadani parametar iz naredbenog retka.
OnActivate glavni obrazac događaja glavnog obrasca obično je tamo gdje su parametri dostupni. Kada se aplikacija pokrene, njih je moguće preuzeti.
Imajte na umu da u programu CmdLine varijabla sadrži niz s argumentima naredbenog retka navedenim kada je aplikacija pokrenuta. Možeš koristiti
CmdLine za pristup cijelom nizu parametara koji su proslijeđeni aplikaciji.Primjena uzorka
Započnite novi projekt i postavite Dugme komponenta na Oblik. U gumbima Na klik rukovatelj događajem, napišite slijedeći kod:
postupak TForm1.Button1Click (Pošiljatelj: TObject);
početi
ShowMessage (ParamStr (0));
kraj;
Kada pokrenete program i kliknete gumb, pojavljuje se okvir s porukom s imenom puta i datoteke izvršnog programa. To možete vidjeti ParamStr "funkcionira" čak i ako niste prenijeli nijedan parametar aplikaciji; to je zato što vrijednost matrice 0 pohranjuje naziv datoteke izvršne aplikacije, uključujući podatke o putu.
izabrati parametri od Trčanje izbornika, a zatim dodajte Delphi programiranje na padajući popis.
Bilješka: Imajte na umu da kad proslijedite parametre svojoj aplikaciji, odvojite ih razmacima ili karticama. Upotrijebite dvostruke navodnike za povezivanje više riječi kao jednog parametra, primjerice, kada se koriste dugačka imena datoteka koja sadrže razmake.
Sljedeći je korak petlja kroz parametre pomoću ParamCount () da biste dobili vrijednost parametara koristeći ParamStr (i).
Promijenite gumb obrađivača događaja OnClick na ovo:
postupak TForm1.Button1Click (Pošiljatelj: TObject);
var
j: cijeli broj;
beginfor j: = 1 do ParamCount čini
ShowMessage (ParamStr (j));
kraj;
Kada pokrenete program i kliknete gumb, pojavljuje se poruka koja glasi "Delphi" (prvi parametar) i "Programiranje" (drugi parametar).