Un réel comme résultat d'une fonction ?Résolu

Question

Bonjour à tous. J'ecris une fonction qui charge une liste d'opérations depuis un fichier. Certaines de ces opérations doivent être executées, d'autres non, on dira que ces opérations sont actives ou inactives. Je souhaiterais que ma fonction renvoie un nombre réel sous le format suivant , Ainsi si ma fonction charge 10 règles, dont 5 seulement sont actives, elle renvera le nombre "10,5" Est'il possible d'assigner à part les deux partie d'un nombre réel (avant et après la virgule) ? Par exemple ... PartieEntière(Nombre):=10; ParieRéelle(Nombre):=5; En esperant m'être fait comprendre ...

cptpingu · Accepted Answer

Oui. Si c'est un réel tu peut essayer ceci.

function division(nb: integer): float;
var
  res : float;
begin
  res :=  nb;
   while  (res > 1) do
     res : = res / 10
  result :=  res;
 end ;

PartieEntiere : = 10
PartieRelle := 5;
Result := PartieEntiere + division(PartieRelle);

Il y a peut être une méthode un peu plus élégante, mais je pense que celle ci devrait fonctionner.

John Dogget · Answer

C'est la méthode que j'avais employé, à defaut d'autre chose

Cirec · Answer

Salut,

en fait ce que tu désire c'est pouvoir renvoyer deux valeurs dans une Variable et de pouvoir les récuperer.

Il existe d'autres possibilitées, mais en voici une que tu pourras peut être trouver utile :

Function MaFonction: Integer;
Var PartieEntiere, PartieReelle : Integer;
begin
  PartieEntiere :=  10;  // ici on simule le résultat de ta fonction
  PartieReelle  := 5;
  Result := MAKELong(PartieEntiere, PartieReelle);  // et ici on affecte les deux valeurs à Result 
 end ;





procedure TForm1.Button1Click(Sender: TObject);
Var PartieEntiere, PartieReelle : Integer;
begin
  PartieEntiere : = Loword(MaFonction);  // Récupération de la première Valeur 
  PartieReelle  := hiword(MaFonction);   // Récupération de la deuxième Valeur
  Label1.Caption := Format('%d, %d', [PartieEntiere, PartieReelle]);  // Et pour finir un affichage pour le contrôle des Valeurs
end;

@+
Cirec

cptpingu · Answer

Tu pourrais aussi renvoyer une structure, non ?

John Dogget · Answer

Je ne sais pas si il est possible de renvoyer une structure, en revanche un pointeur de structure c'est certain que ça pourrait marcher

cptpingu · Answer

Il est tout a fait possible de renvoyer une structure. Mais c'est plus propre de renvoyer un pointeur sur structure.

John Dogget · Answer

Ok ...
Donc effectivement, je pourrais tout aussi bien renvoyer une structure 
J'ai l'embarra du choix maintenant !

Merci à vous

f0xi · Answer

type

  TRegles = record
     case integer of
       0: (code : dword);
       1: (Total,Active: word);
  end;

function blablabla : TRegles;
begin
  total := 10;
  active:= 5;
// ... //
  result.total := total;
  result.active:= active;
end;


var

  Tampax : TRegles;

begin
  Tampax := blablabla;  
  label1.caption := format('total : %d, actives : %d, code : %.8x',
                           [tampax.total, tampax.active, tampax.code]);
end;




<hr size="2" width="100%" />
Croc (click me)

f0xi · Answer

ATTENTION AUX APELS REDONDANT DE FONCTIONS! procedure TForm1.Button1Click(Sender: TObject); Var PartieEntiere, PartieReelle : Integer; begin PartieEntiere := Loword(MaFonction); // Récupération de la première Valeur PartieReelle := hiword(MaFonction); // Récupération de la deuxième Valeur Label1.Caption := Format('%d, %d', [PartieEntiere, PartieReelle]); // Et pour finir un affichage pour le contrôle des Valeurs end ;

Function MaFonction : dword; Var CHigh, CLow : word; begin CHigh : = 10; CLow := 5; Result := MakeLong(CHigh, CLow); end ; procedure TForm1.Button1Click(Sender: TObject); Var Code : cardinal; CLow, CHigh : word; begin Code : = MaFonction; CLow := Loword(Code); CHigh:= Hiword(Code); Label1.Caption := Format('%d, %d', [CHigh,CLow]); end ;

Croc (click me)

Un réel comme résultat d'une fonction ?

9 réponses

Votre réponse

Discussions similaires