Въпреки че беше много по-често в дните на DOS, съвременните операционни системи също ви позволяват да пускате параметри на командния ред срещу приложение, така че да можете да определите какво трябва да прави приложението.
Същото важи и за вашите Delphi приложение, независимо дали е за a приложение за конзола или такъв с GUI. Можете да предадете параметър от командния ред в Windows или от средата за разработка в Delphi, под Изпълнение> Параметри опция за меню.
За този урок ще използваме диалоговия прозорец с параметри, за да предаваме аргументите на командния ред на приложение, така че да е така, сякаш го изпълняваме от Windows Explorer.
ParamCount и ParamStr ()
Най- ParamCount функция връща броя на параметрите, предадени на програмата от командния ред, и ParamStr връща зададен параметър от командния ред.
Най- OnActivate мениджърът на събитията от основната форма обикновено е там, където са налични параметрите. Когато приложението се стартира, те могат да бъдат извлечени.
Обърнете внимание, че в програмата,
CMDLINE променлива съдържа низ с аргументи на командния ред, посочени при стартиране на приложението. Можеш да използваш CMDLINE за достъп до целия низ от параметри, предаден на приложение.Примерно приложение
Стартирайте нов проект и поставете a бутон компонент на форма. В бутоните OnClick обработващ събитие, напишете следния код:
процедура TForm1.Button1Click (Подател: TObject);
започвам
ShowMessage (ParamStr (0));
край;
Когато стартирате програмата и щракнете върху бутона, се появява поле за съобщение с името на пътя и файла на изпълняващата програма. Можете да видите това ParamStr "работи", дори ако не сте предали никакви параметри на приложението; това е така, защото стойността на масива 0 съхранява името на файла на изпълняващото се приложение, включително информация за пътя.
Избирам Параметри от тичам меню и след това добавете Програмиране на Delphi към падащия списък.
Забележка: Не забравяйте, че когато предавате параметри на приложението си, ги разделете с интервали или раздели. Използвайте двойни кавички, за да увиете няколко думи като един параметър, като например при използване на дълги имена на файлове, които съдържат интервали.
Следващата стъпка е да прегледате параметрите, като използвате ParamCount () за да получите стойността на параметрите с помощта ParamStr (i).
Променете манипулатора на събитията OnClick на бутона на това:
процедура TForm1.Button1Click (Подател: TObject);
Var
j: цяло число;
beginfor j: = 1 да се ParamCount правя
ShowMessage (ParamStr (j));
край;
Когато стартирате програмата и щракнете върху бутона, се появява съобщение, което гласи "Delphi" (първи параметър) и "Програмиране" (втори параметър).