Argumente auf der CLI übergeben

[Yoda]

Hallo Leute,

ich bin absoluter Pascal-Einsteiger und versuche gerade die für mich wichtigsten Dinge mal mit FreePascal umzusetzen.
Erstes Problem, welches ich jetzt nicht selbst lösen konnte, ist folgendes.

Ich möchte ein Programm schreiben, welchem man Argumente auf der Kommandozeile übergeben kann. Hab leider dazu kein einziges Beispiel im Netz gefunden...

zum Beispiel:

Code: Alles auswählen

 
> Testprogramm A1 B2 C3
  A1
  B2
  C3
 

Wie macht man das?

Gruß

[Christian]

Mit
http://lazarus-ccr.sourceforge.net/docs ... ption.html
http://lazarus-ccr.sourceforge.net/docs ... value.html

damit kannst du wahlweise mit kurzem Parameter übergeben z.b.
-d test
oder langem
--directory=test

und mit GetOptionValue('d','directory') abfragen

[wp_xyz]

Oder aus der alten Pascal-Schule: Die dem Programm als Parameter übergebenen Strings kann man mit ParamStr(index) abfragen, ihre Anzahl mit ParamCount, wobei sich Index 0 auf den Programmnamen inkl Pfad bezieht.

Dein TestProgramm sollte damit so funktionieren:

Code: Alles auswählen

Program TestProgramm;
var
  i: Integer;
begin
  WriteLn('Das Programm heißt: ', ParamStr(0));
  for i:=1 to ParamCount do
    WriteLn(ParamStr(i));
end.

[EDIT] Habe in dem Beispiel noch Code zum Programmnamen eingefügt.

[Yoda]

Oder aus der alten Pascal-Schule: Die dem Programm als Parameter übergebenen Strings kann man mit ParamStr(index) abfragen, ihre Anzahl mit ParamCount, wobei sich Index 0 auf den Programmnamen inkl Pfad bezieht.

Dein TestProgramm sollte damit so funktionieren:

Code: Alles auswählen

Program TestProgramm;
var
  i: Integer;
begin
  for i:=1 to ParamCount do
    WriteLn(ParamStr(i));
end.

Danke!
Genau das habe ich gesucht.