Konsolenapplikation mit mehreren Params

[kirchfritz]

Hallo,

ich möchte eine Konsolenanwendung mit Lazarus schreiben, und dabei sollen fünf Parameter als Name/Wert-Paare übergeben werden.
Der Kommandozeilenaufruf der fertigen Anwendung könnte zum Beispiel so aussehen:

MeineAnwendung -a 123 -b 456 -c 789 -d xxx -e zzz

Dazu habe ich mir in Lazarus unter Datei->Neu->Konsolenanwendung ein Grundgerüst erstellen lassen.

Leider weiß ich jetzt nicht mehr weiter.

Was genau bewirkt die function CustApp.CheckOptions('h','help') ?
Wie gibt man dort an, dass fünf Programm-Parameter erlaubt sind?
Wie liest man die fünf Programm-Parameter im Programm?

[Michl]

Was genau bewirkt die function CustApp.CheckOptions('h','help') ?

Siehe http://www.freepascal.org/docs-html/fcl ... tions.html (prüft, ob ein übergebener Parameter gültig ist, in diesem Fall sind die Paramter "-h" oder "-help" zulässig)

Wie gibt man dort an, dass fünf Programm-Parameter erlaubt sind?

Nein, das könntest Du aber bei dem Aufruf mit Parameter -h bei TMyApplication.WriteHelp ausgeben.

Wie liest man die fünf Programm-Parameter im Programm?

z.B:

Code: Alles auswählen

  // quick check parameters
  ErrorMsg:=CheckOptions('a, b, c, d, e, h','');
  if ErrorMsg<>'' then begin
    ShowException(Exception.Create(ErrorMsg));
    Terminate;
    Exit;
  end;
 
  // parse parameters
  if HasOption('h','help') then begin
    WriteHelp;
    Terminate;
    Exit;
  end;
 
  { add your program here }
 
  Writeln(GetOptionValue('a'));
  Writeln(GetOptionValue('b'));
  Writeln(GetOptionValue('c'));
  Writeln(GetOptionValue('d'));
  Writeln(GetOptionValue('e'));
 
  Writeln('Alternativ:');
 
  //oder
 
  i:=1;  //0 ist eigener Pfad+Programmname
  repeat
    Para:=ParamStr(i);
    writeln(Para);
    inc(i);
  until length(Para)=0;
  Readln;
 
  // stop program loop
  Terminate;  

[Edit] noch mal angepasst, wie von M.Fuchs vorgeschlagen...

[m.fuchs]

Ich habe die Vorlage "Konsolenanwendung" nie so richtig verstanden und nutze diese nicht. Neues Projekt => Programm ist meine Wahl für Konsolenanwendungen.

Für Kommandozeilenparamter existiert auch die Unit GetOpts. Dort gibt es ein ausführliches Beispiel für Parameterübergaben: http://www.freepascal.org/docs-html/rtl ... etopt.html

[creed steiger]

http://wiki.freepascal.org/Command_line ... _variables

http://www.freepascal.org/docs-html/rtl ... amstr.html