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.