fonctions et procedures sous DELPHI 7 Fermé

Question

Bonjour tout le monde,
actuellement j'apprend le delphi en utilisant un guide en ligne  que voici : https://fbeaulieu.developpez.com/guide/

mais voila j'ai rencontré un probleme avec les fonction: 
j'ai suivi pas a pas ce qui a été decrit dans le guide (creation d'un projet , declaration de la fonction..) mais le compilateur a trouvé bcp d'erreurs , entre autre il a pas reconnu la variable ''result'' alors qu'en principe elle est predefinie!!(c ce que j'ai cru comprendre)avec les fonction!
c a cause de la version du delphi? 

dans l'attente de vos reponse!!

montecristo · Accepted Answer

le probleme vient du fait que tu ne fais pas methode de ta fonctiondedans ton unite calcul
ta fonction
unit calcul; 

interface 
{ici c''est bon}
function AireDisque(Rayon: Single): Single; 

implementation 
{la il faut que tu fasse ta methode dans le genre}
//debut de mehode
function AireDisque(Rayon: Single): Single; 

begin 
Result :=PI * Rayon * Rayon ; 
end ; //fin de methode

end. 
une fois que tu es sur de ton coup sauve l'unite calcul 
et met la dans la close Use le l'unité1
uses 
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
Dialogs, StdCtrls,calcul; 

la normalement tu doit la voir apparaitre
moi pour ecrire mes propres  Procedures ou Fonction sur une unite a part
je les fait d'abord sur une form pour verif apres je la recopie dans ma fiche
un petit truc regarde avec les composants comment Delphi construit ces procedure cela te fera gagner du temps
exemple ton bouton regarde les evenements qui lui sont attribuer
comment ils les declare et lou se triuve les methodes

need ur help · Answer

salut c encore moi !
voila exactement ce que j'ai fait sous mon delphi 
j'ai créer un projet (premierEssai.dpr) contenant une unité 'principale.pas' avec sa forme (forme1) ;et une unité calcul (sans fiche)

voici le corps de principale: 
unit principale;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,calcul;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
aire : single;
begin
ShowMessage ('bravo!bonne réponse:)');
aire := AireDisque(3.2);
end;

end.



et le corps de l'unité calcul 

unit calcul;

interface
function AireDisque(Rayon: Single): Single;

implementation
AireDisque(Rayon: Single): Single;

begin
Result :=PI * Rayon * Rayon ;
end ;


end.


et apres compilation voila les erreurs que le compilateur m'affiche :
[Error] calcul.pas(7): Declaration expected but identifier 'AireDisque' found
[Error] calcul.pas(10): Undeclared identifier: 'Result'
[Error] calcul.pas(10): Undeclared identifier: 'Rayon'
[Error] calcul.pas(11): '.' expected but ';' found
[Error] calcul.pas(4): Unsatisfied forward or external declaration: 'AireDisque'
[Fatal Error] principale.pas(8): Could not compile used unit 'calcul.pas'



SVP aidez moi a mieux comprendre 
et merci d'avance.

amira · Answer

bonjour, 
je suis entraine de faire une operation arithmitique mais j'ai un probleme dans le resultat qui est par exemple 6,66666........ je sais qu'il y a une fonction predifinie sous delphie s'il vous plait j'ai besoin de cette fonction 
 merci.

Fonctions et procedures sous DELPHI 7

3 réponses