Discussion :

[chavers]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[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.

[chavers]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[MD Software]

il me déplaît pas ton code

[chavers]

Merci mais comme je debut sur delphi depuis deux ans j'ai toujours l'impression de produire de la M....

[edam]

sauf avec halt tu pense pas MD Software??

[MD Software]

sauf avec halt tu pense pas MD Software??

Boarf !
Le halt signifie "fin anormale", c'est son cas.

[chavers]

vi...

un EXIT serait mieux dans le corp du prog c'est vrai, mais comment faire dans un procedure ???

[edam]

je parle d'utlisé de:

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

[chavers]

Et ca marche ca dans une application, console ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

{$APPTYPE CONSOLE}