[DELPHI] Passare un parametro al programma

[Aki]

Ave populus
come faccio a passare ad un programma un parametro passato da linea di comando?

[alka]

Come passare il parametro immagino che tu lo sappia già...forse ti interessa sapere come leggerlo, giusto?

Hai a disposizione le funzioni ParamCount e ParamStr che ti consentono di conoscere quanti sono i parametri e quali sono.

Segui i link per ottenere direttamente maggiori informazioni ed esempi pratici.

Ciao!

[Aki]

Originariamente inviato da alka
Come passare il parametro immagino che tu lo sappia già...forse ti interessa sapere come leggerlo, giusto?

Hai a disposizione le funzioni ParamCount e ParamStr che ti consentono di conoscere quanti sono i parametri e quali sono.

Segui i link per ottenere direttamente maggiori informazioni ed esempi pratici.

Ciao!

no no 'spetta
io sono completamente nubbio di delphi, però so scrivere uno stupido programmino come:

PROGRAM ciao;

BEGIN
	writeln('Ciao ');
END.

però io vorrei eseguire il file da linea di comando passandogli un parametro, e vorrei leggerlo dopo 'Ciao', quindi ho provato così (mescolando il delphi con la sintassi di altri linguaggi):

PROGRAM ciao;

BEGIN(str:=STRING)
	writeln('Ciao ', str);
END.

ma non và, come devo fare???

[alka]

Originariamente inviato da Aki
[...]
ma non và, come devo fare???

Innanzitutto, non si mescolano i linguaggi sperando di ottenere qualcosa perchè è impossibile che accada.

Da Delphi, è sufficiente creare una Applicazione Console per ottenere un eseguibile adatto alla riga di comandi; all'interno dello scheletro di codice, basta scrivere qualcosa di simile al seguente:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

begin
  if ParamCount > 0 then
    Writeln('Ciao ' + ParamStr(1))
  else
    Writeln('ERRORE: parametro non specificato!');
end.

Ciao!

[Aki]

Originariamente inviato da alka
Innanzitutto, non si mescolano i linguaggi sperando di ottenere qualcosa perchè è impossibile che accada.

Da Delphi, è sufficiente creare una Applicazione Console per ottenere un eseguibile adatto alla riga di comandi; all'interno dello scheletro di codice, basta scrivere qualcosa di simile al seguente:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

begin
  if ParamCount > 0 then
    Writeln('Ciao ' + ParamStr(1))
  else
    Writeln('ERRORE: parametro non specificato!');
end.

Ciao!

ok grassie