Comment avoir une fonction à deux résultats ?

Bonjour,

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

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

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.

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.

Crée un type "record"

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

Code:

---

1 2 3 4 5

TMonResultat=record result1:integer; result2:tcolor; end;

---

Puis ta fonction

Code:

---

1 2	function mafontion: TMonResultat;

---

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:

---

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

---

fonction renvoyant true si OK par exemple... :wink:

Citation:

---

Envoyé par bbil

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:

---

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

---

fonction renvoyant true si OK par exemple... :wink:

---

la syntaxe c'est "var nomdevariable:type" :)

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)

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

Code:

---

1 2 3 4 5 6 7

procedure Imprimante(out Result1, Result2: string); begin ... Result1 := ...; ... Result2 := ...; end;

---

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

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:

---

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:

---

1 2 3 4

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

---

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

pour utiliser une fonction de la forme

Code:

---

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

---

Il faut faire ceci :

Code:

---

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;

---

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

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