Discussion :

[Kephuro]

Bonjour à tous !

J'ai une erreur de compilation que je ne comprend pas. Pour un projet de stage j'ai besoin de récupérer des données provenant d'excel. J'utilise les composants Flexcel de chez TMS.
C'est juste pour situer (un peu), le contexte.

Du coup j'ai codé une fonction me permettant de faire le lien entre l'indice d'une colonne d'excel (A, B, AA...) et sa position chiffrée (1, 2, 27).
En fait le code est situé sur l'évènement onclick d'un bouton et j'aurais aimé le mettre dans une fonction qui prend comme paramètre un string (de deux caractères maxi) et qui renvoie la position en integer. Voici donc le prototype :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

function indiceTopos(Indice :string):integer;

Que j'ai placé juste après la déclaration de la classe TForm1 et "implementation". Le compilo me renvoie :

[Pascal Error] Kernel.pas(176): E2065 Unsatisfied forward or external declaration: 'indiceTopos'

Et je ne comprend pas pourquoi, c'est bien à cet endroit là qu'on déclare les fonctions qui sont hors classes ?

Du coup j'aurais bien besoin de vos lumières....Google n'étant pas mon ami pour ce cas précis.

Merci d'avance

[kevinou55]

je ne sais pas si j'ai bien compris mais il faut que tu mette juste l'en-tete de ta fonction dans la partie "Var" juste avant implementation
et dans la partie implementation tu declare completement ta fonction avec le code a l'interieur.

[Kephuro]

Dans Var on ne met que les variables, non ?

J'ai copié le prototype dans Var mais ça me renvoit cette erreur :

[Pascal Error] Kernel.pas(178): E2029 Identifier expected but 'FUNCTION' found

[kevinou55]

Perso là je suis en train de developper aussi un projet Delphi pour un stage et j'ai mis les procedures que j'ai créées comme je t'ai dis et je n'ai aucun probleme...
il ne te manque pas un point-virgule juste avnt ou je ne sais quoi ??

[Cl@udius]

Salut

Ta fonction est bien la première fonction ou procédure définie dans la partie implémentation de ton unité ?

@+

[kumo]

@ cl@udius: ben en delphi peu importe l'ordre de déclarartion des procédures non?
Du moment que la fonction est déclarée avant dans la partie var, ça devrait suffire non?
Peut être aussi que c'est pas là ou tu veux en venir...

[bubulemaster]

Voilà un exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
unit UnitXXX;
 
 
interface
 
uses Code, Windows, SysUtils, Extension, Classes ;
 
function ConProc(CtrlType : DWord) : Bool; stdcall; far;
implementation
 
function ConProc(CtrlType : DWord) : Bool; stdcall; far;
begin
    GlobalError := True ;
 
    Result := False;
end;

[kumo]

perso, c'est la première fois que je vois une fonction déclarée dans le "uses", ce que moi je sais c'est que les procédure ratachées aux composants, comme le Onclick pour un bouton sont déclarés dans "type" juste après le "uses" et que les procédure et fonctions utilisateur sont déclarées dans le "var".

[Kephuro]

Honte sur moi...en fait j'ai juste écrit le prototype et j'ai compilé pour voir si c'était au bon endroit.
Fallait l'implémenter avant de compiler

[kevinou55]

c'est bon alors ca fonctionne ??

[Cl@udius]

ben en delphi peu importe l'ordre de déclaration des procédures non?

Ben si ça a de l'importance, suivant que tu as défini ou non le prototype de la fonction dans la partie Interface.

Si le prototype n'est pas défini dans la partie interface, alors dans la partie implémentation la fonction doit être définie avant toutes fonctions ou procédures qui l'appelle.

@Kephuro: as-tu implémenter ta fonction ?

[edit]

Honte sur moi...en fait j'ai juste écrit le prototype et j'ai compilé pour voir si c'était au bon endroit.
Fallait l'implémenter avant de compiler

Ok je comprends mieux.

@+

[bubulemaster]

Ma fonction n'est pas déclarer des uses car uses s'arrête au ;.
Je déclare les fonctions avant implémentation

[guillemouze]

@ cl@udius: ben en delphi peu importe l'ordre de déclarartion des procédures non?
Du moment que la fonction est déclarée avant dans la partie var, ça devrait suffire non?
Peut être aussi que c'est pas là ou tu veux en venir...

l'ordre en delphi n'a aucune importance, il faut juste que les le code entre les "balises" de debut et de fin soit placé au bon enndroit :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
uses unit1; //"uses" = debut de la section uses /  ";" = balise de fin
 
const  //balise de debut de const (pas de balise de fin, les const doivent etre totalement definies a l'interieur
  a = 3; 
 
type // "type" = balise de debut de type (pas de balise de fin, les type a l'interieur doivent juste etre complets
  Tx = record  //balise debut d'un type
    x: integer;
  end; // balise fin d'un type
 
function f(x: string): real; // prototype de fonction = une entité placable n'importe ou

on peut donc avoir un peu n'importe quoi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
32
33
34
35
 
 
uses unit1;
 
const
 a=3;
type
  TX = record
    x: integer;
  end;
 
var
  MyX: TX
 
function f(x: real): string;
 
type
  TY = record
    y: string;
  end;
 
  TZ = record
    z: char;
  end;
 
procedure g(x: real);
 
var
  e: extended;
 
const
  t = 'toto';
  u = 10.5;
 
etc ...