GetCurrentDir : exception External SIGSEGV

:salut: Bonjour à tous

Décidément, LAZARUS me réserve des surprises !

Voici l'instruction : (pas trop compliquée :D)

Citation:

---

Chemin := GetCurrentDir;

---

J'ai bien SysUtils dans les uses et Chemin est bien déclaré : pas d'erreur à la compilation; En revanche à l'exécution j'ai le message

Citation:

---

Project raised exception class 'External SIGSEGV'

---

:koi: :koi: :koi: :koi: :koi:

Je m'interroge ! Et suis prêt à toute suggestion !

Merci d'avance.

J'ai l'impression que c'est plus tordu ! Précision sur le code. Le programme commence comme ceci

Citation:

---

begin
Application.Initialize;
if LANCEUR.ConnecteBDD then begin
.
.
.
.

---

C'est dans ConnecteBDD que j'ai l'erreur et je viens de constater que n'importe quel ordre donne le même message. Ce n'est donc pas le GetCurrentDir, lequel est le premier de ConnecteBDD. L'ordre suivant est un tout bête Zone := '01' qui provoque la même erreur si je mets le premier en commentaire.

:koi:

Désolé pour le dérangement : j'ai trouvé ! Une forme mal positionnée !