Sebbene fosse molto più comune ai tempi di DOS, i moderni sistemi operativi consentono anche di eseguire i parametri della riga di comando su un'applicazione in modo da poter specificare cosa dovrebbe fare l'applicazione.
Lo stesso vale per il tuo Delphi applicazione, sia che si tratti di a applicazione console o uno con una GUI. È possibile passare un parametro dal Prompt dei comandi in Windows o dall'ambiente di sviluppo in Delphi, sotto il Esegui> Parametri opzione di menu.
Per questa esercitazione, utilizzeremo la finestra di dialogo dei parametri per passare argomenti della riga di comando a un'applicazione in modo che sia come se la stessimo eseguendo da Esplora risorse.
ParamCount e ParamStr ()
Il ParamCount La funzione restituisce il numero di parametri passati al programma sulla riga di comando e ParamStr restituisce un parametro specificato dalla riga di comando.
Il OnActivate il gestore eventi del modulo principale è di solito dove sono disponibili i parametri. Quando l'applicazione è in esecuzione, è lì che possono essere recuperati.
Si noti che in un programma, il CmdLine La variabile contiene una stringa con gli argomenti della riga di comando specificati all'avvio dell'applicazione. Puoi usare CmdLine per accedere all'intera stringa di parametri passata a un'applicazione.
Applicazione di esempio
Avvia un nuovo progetto e posiziona a Pulsante componente acceso Modulo. Nel pulsante Al clic gestore eventi, scrivere il seguente codice:
procedura TForm1.Button1Click (Mittente: TObject);
inizio
ShowMessage (ParamStr (0));
fine;
Quando si esegue il programma e si fa clic sul pulsante, viene visualizzata una finestra di messaggio con il percorso e il nome del file del programma in esecuzione. Potete vederlo ParamStr "funziona" anche se non hai passato alcun parametro all'applicazione; questo perché il valore dell'array 0 memorizza il nome del file dell'applicazione eseguibile, comprese le informazioni sul percorso.
Scegliere parametri dal Correre menu, quindi aggiungi Programmazione Delphi all'elenco a discesa.
Nota: Ricorda che quando passi i parametri alla tua applicazione, separali con spazi o schede. Usa virgolette doppie per racchiudere più parole come un parametro, come quando usi nomi di file lunghi che contengono spazi.
Il prossimo passo è quello di scorrere i parametri usando ParamCount () per ottenere il valore dei parametri utilizzando ParamStr (i).
Cambia il gestore di eventi OnClick del pulsante in questo:
procedura TForm1.Button1Click (Mittente: TObject);
var
j: intero;
beginfor j: = 1 per ParamCount fare
ShowMessage (ParamStr (j));
fine;
Quando si esegue il programma e si fa clic sul pulsante, viene visualizzato un messaggio che indica "Delphi" (primo parametro) e "Programmazione" (secondo parametro).