déclaration fonction

Marsh Posté le 04-05-2006 à 13:10:34

slt à tous

j'ai implémenté une fonction tte bete et j'ai une erreur de compilation :
=> [Erreur] Unit1.pas(40): Déclaration forward ou external non satisfaite : 'TForm1.carre'

Voici le code

Spécification :

function carre(X: Integer): Integer;

Corps :

function carre(X: Integer): Integer;
begin
Result := X * X;
end;

si qq pouvait m'éclairer, merci

Marsh Posté le 04-05-2006 à 13:10:34

Marsh Posté le 04-05-2006 à 13:48:53

En fait, ta déclaration complete, c'est plutôt ça:

TForm1 = class(TForm)
(...)
function carre(X: Integer): Integer;
(...)
end;

Ce qui signifie
1) Que tu déclare une classe (un type d'objet) nommé TForm1
2) Que tu déclare la fonction Carre au sein de cette classe

Il faut donc
- soit que tu déclare ta fonction hors de la déclaration de classe

TForm1 = class(TForm)
(...)
end;
function carre(X: Integer): Integer;

- soit que tu écrive le corp d'une fonction appartenant à la classe TForm1

function [b]TForm1.[/b]carre(X: Integer): Integer;
begin
Result := X * X;
end;

Marsh Posté le 04-05-2006 à 14:00:46

okay merci

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed

Name *

Email *

URL

Message *