Interpréter les paramètres en ligne de commande (ParamStr)

Version imprimable

06/07/2005, 16h33
chavers

Interpréter les paramètres en ligne de commande (ParamStr)

Bonjour,

Je cherche une procedure pour récupérer mes paramstr par couple.

Code:

monappli.exe -u user -p password -w workdir ....

Mais en laissant l'utilisateur choisir l'ordre des parametres. Bref je me retrouve avec des if then else if else if else if....

quelque chose pour récupérer un tableau serait magnifique. :wink:
06/07/2005, 16h59
MD Software

Comprend pas ton problème, interprette les paramètres deux par deux. Tu en lis un, tu le stocket, tu en lis un autre, tu interprettes et tu recommences.

En faite mon code fonctionne, mais je le trouve pas beau. Je me demandais donc si quelqu'un avait une solution plus élégante.

mon code:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
 
uses
  SysUtils, classes;
 
 
procedure start();
begin
  if ParamCount <> 10 then
    if ParamCount <> 1 then begin
      Writeln('Erreur param.'+ inttostr(ParamCount));
      Halt ;
  end;
end;
 
 
{*****************************************************************}
var
i: Integer;
sUser, sDomain, Spassword, sExecutable, sWorkdir: String;
begin
 
  start;
  for i := 1 to ParamCount do
    if AnsiLowerCase(ParamStr(i)) = '-u' then
      sUser := ParamStr(i + 1)
    else if AnsiLowerCase(ParamStr(i)) = '-p' then
      spassword := ParamStr(i + 1)
    else if AnsiLowerCase(ParamStr(i)) = '-d' then
      sDomain  := ParamStr(i + 1)
    else if AnsiLowerCase(ParamStr(i)) = '-e' then
      sExecutable  := ParamStr(i + 1)
    else if AnsiLowerCase(ParamStr(i)) = '-w' then
      sWorkdir  := ParamStr(i + 1);
if sUser = '' then Halt;
if spassword = '' then Halt;
if sDomain = '' then Halt;
if sExecutable = '' then Halt;
if sWorkdir = '' then Halt;
end.

06/07/2005, 17h45
MD Software

il me déplaît pas ton code
06/07/2005, 17h50
chavers

Merci :chin: mais comme je debut sur delphi depuis deux ans j'ai toujours l'impression de produire de la M....
06/07/2005, 17h52
edam

sauf avec halt tu pense pas MD Software??
06/07/2005, 17h54
MD Software

Citation:

Envoyé par edam

sauf avec halt tu pense pas MD Software??

Boarf !
Le halt signifie "fin anormale", c'est son cas.
06/07/2005, 17h55
chavers

vi...

un EXIT serait mieux dans le corp du prog c'est vrai, mais comment faire dans un procedure ???
06/07/2005, 18h03
edam

je parle d'utlisé de:

Citation:

TApplication.Terminate

Termine l'exécution d'une application.

procedure Terminate;

Description

Appelez Terminate pour terminer par programme l'exécution d'une application. En appelant Terminate au lieu de libérer l'objet application, vous permettez à l'application de s'arrêter d'une manière plus ordonnée.

voir l'aide en ligne :wink:
06/07/2005, 18h11
chavers

Et ca marche ca dans une application, console ?

Code:

{$APPTYPE CONSOLE}

:wink: