Discussion :

[xenos]

Bonjour,

J'aimerais savoir si il y a moyen de définir deux résultats pour une fonction, si oui, comment le faire ?

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
Function Imprimante : String;
var
  Dev, Drv, Prt: Array[0..255] of Char;
  DM1: PDeviceMode;
  DM2: PDeviceMode;
  Sz: Integer;
  DevM: THandle;
begin
  Printer.PrinterIndex := - 1;
  Printer.GetPrinter(Dev, Drv, Prt, DevM);
  DM1 := nil;
  DM2 := nil;
  Sz := DocumentProperties(0, 0, Dev, DM1^, DM2^, 0);
  GetMem(DM1, Sz);
  DocumentProperties(0, 0, Dev, DM1^, DM2^, DM_OUT_BUFFER);
  if DM1^.dmColor > 1 then
    result1 := Dev + ': Couleur'
  else
    result1 := Dev + ': Noir et blanc';
  if DM1^.dmFields and DM_Color <> 0 then
    result2 := 'L''imprimante supporte les couleurs'
  else
    result2 := 'L''imprimante ne supporte pas les couleurs';
  FreeMem(DM1);
end;

J'aurais besoin de pouvoir avec cette fonction exporter deux résultats !

Si quelqu'un peut m'aider, son aide serait la bienvenue.

[LLB]

Ce n'est pas possible.
Tu peux soit créer un nouveau type, qui contiendra tes deux strings.
Tu peux aussi utiliser mettre un argument avec le mot-clé var, ta fonction se contentera de modifier la string en argument.

Dans ton cas précis, tu peux aussi concaténer tes deux strings.

[sfpx]

Crée un type "record"

Genre (exemple au hasard pas relié à ton code)

Code :

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

1
2
3
4
5
 
TMonResultat=record
 result1:integer;
 result2:tcolor;
 end;

Puis ta fonction

Code :

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

1
2
 
function mafontion:  TMonResultat;

[SfJ5Rpw8]

passe des paramétres par référence à ta fonction ... et met à jour ces paramétres .... je ne sais plus la syntaxe en delphi ... :

Code :

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

Function Imprimante ( stResult1 byRef as string ,stResult2 byRef as string ) as boolean)

fonction renvoyant true si OK par exemple...

[sfpx]

passe des paramétres par référence à ta fonction ... et met à jour ces paramétres .... je ne sais plus la syntaxe en delphi ... :

Code :

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

Function Imprimante ( stResult1 byRef as string ,stResult2 byRef as string ) as boolean)

fonction renvoyant true si OK par exemple...

la syntaxe c'est "var nomdevariable:type"

[xenos]

Merci pour vos réponses TRES rapide !!!

Ce que j'ai fait en définitif, c'est de scinder cette Function en deux Function. Le temps de trouver un moyen plus performant ...

Il y avait plusieurs de vos réponses qu'étaient interessantes, mais qui n'aurait pas été pour mon logiciel ... malheureusement.

Encore merci et bon weekend. 8)

[neilbgr]

Meme si le fil est clot, je tiens a dire qu'il existe les paramètres du genre "out":

Code :

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

1
2
3
4
5
6
7
procedure Imprimante(out Result1, Result2: string);
begin
  ...
  Result1 := ...;
 ...
  Result2 := ...;
end;

Faire pour plus amples informations sur le sujet des routine/procédure/fonction/méthode

[xenos]

Merci pour ta réponse neilbgr,

Vu que tu m'apporte de nouveaux éléments de réponse, qui vont justement dans le sens de ma recherche, j'me suis permis d'enlever les tags [Résolu] et [Délestage].

Je me suis penché sur ta proposition, et je suis arrivé à :

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
  public
    { Public declarations }
    procedure Imprimante(out Result1, Result2: string);
 
[...]
 
procedure TForm1.Imprimante(out Result1, Result2: string);
var
  Dev, Drv, Prt: Array[0..255] of Char;
  DM1: PDeviceMode;
  DM2: PDeviceMode;
  Sz: Integer;
  DevM: THandle;
begin
  Printer.PrinterIndex := - 1;
  Printer.GetPrinter(Dev, Drv, Prt, DevM);
  DM1 := nil;
  DM2 := nil;
  Sz := DocumentProperties(0, 0, Dev, DM1^, DM2^, 0);
  GetMem(DM1, Sz);
  DocumentProperties(0, 0, Dev, DM1^, DM2^, DM_OUT_BUFFER);
  if DM1^.dmColor > 1 then
    result1 := Dev + ': Couleur'
  else
    result1 := Dev + ': Noir et blanc';
  if DM1^.dmFields and DM_Color <> 0 then
    result2 := 'L''imprimante supporte les couleurs'
  else
    result2 := 'L''imprimante ne supporte pas les couleurs';
  FreeMem(DM1);
end;

Cependant, je n'arrive pas à extraire les résultats de cette Procédure ...

J'ai bien essayé de différentes façon, mais je n'y arrive pas ...

Code :

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

1
2
3
4
procedure TForm1.FormCreate(Sender: TObject);
begin
  Label1.Caption := Imprimante.Result1;
end;

... si quelqu'un pourrait m'aiguiller ... ça serait sympa.

[smyley]

pour utiliser une fonction de la forme

Code :

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

1
2
 
procedure TForm1.Imprimante(out Result1, Result2: string);

Il faut faire ceci :

Code :

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

1
2
3
4
5
6
7
8
 
procedure TForm1.Something;
var
 Res1,Res2 : string;
begin
 Imprimante(Res1,Res2);
 Label1.Caption := Res1; //ou Res2
end;

[xenos]

Merci à neilbgr et smyley, c'est exactement ce que je cherchais !!!

Bonne journée et à une prochaine sur l'forum