Discussion :

[tourlourou]

Bonjour,

Je déclare une procédure dans la section interface de l'unité 2, qui est en uses de l'unité 1.

Sur la ligne d'un appel de cette procédure, l'IDE montre bien qu'elle est reconnue (procédure machin, unité 2), mais le compilateur bute avec le message "Error : identifier not found (nom de la procédure)"

Mais qu'est-ce que j'ai fait de mal ? Qui m'en veut ?

[Paul TOTH]

difficile à dire sans voir le code

[tourlourou]

Certes !

Mais Lazarus réserve quelques difficultés qui laissent pantois...

J'ai par exemple eu un souci -non résolu- avec ce code :

Code :

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

1
2
3
4
5
6
constructor TDepasseLabel.Create(var aLabel: TLabel; ALongColor: TColor; ADepasseMode: TDepasseMode);
begin
 inherited Create(ALabel.Owner);  
  //...
 aLabel:=self;
end;

qui plante ici :

Code :

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

1
2
3
4
5
6
7
function TControl.GetText: TCaption;
var
  len: Integer;
begin
  // Check if GetTextBuf is overridden, otherwise
  // we can call RealGetText directly
  if TMethod(@Self.GetTextBuf).Code = Pointer(@TControl.GetTextBuf) // self = ????

Mais pour en revenir à nos moutons, voici le code déviant :

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
unit Unit1; 
 
{$Mode Delphi} // {$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, sqldb, db, BufDataset, memds, sqlite3conn, FileUtil, Forms,
  Controls, Graphics, Dialogs, StdCtrls, DBGrids,
  lyDepasseLabel in 'C:\Users\...\lyDepasseLabel.pas'; 
 
type
  TForm1 = class(TForm)  
    //....
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.lfm}       
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  ModifieLabelPourDepassement(Label1, clRed, dmEndPoints);
  // avec le curseur, l'IDE montre l'unité qui l'héberge
  // le compilo dit "identifier not found : ModifieLabelPourDepassement"
end;

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
unit lyDepasseLabel;
 
{$Mode Delphi}
 
interface
 
uses
  StdCtrls, Graphics, Dialogs; 
 
type
 TDepasseMode=(dmBeginPoints, dmMiddlePoints, dmEndPoints);
 
procedure ModifieLabelPourDepassement(var aLabel: TLabel; aLongColor: TColor; aDepasseMode: TDepasseMode);
 
implementation             
 
//...

[chris37]

Bonjour,

As tu essayé de déclarer simplement lyDepasseLabel dans ta ligne de USES et d'ajouter 'C:\Users\...\lyDepasseLabel.pas' dans les options de compilation de ton projet ?

Cordialement,
Chris

[tourlourou]

Merci pour ton idée ; je viens de tester : c'est sans effet, sinon que l'IDE ne reconnaît plus la procédure...

Lazarus supporte-t-il les noms de répertoires avec des espaces ?

[chris37]

Hum

Essaye avec cette directive de compilation
{$mode objfpc}{$M+}
J'ai du modifier mes unités avec la dernière version de Lazarus

Toutes mes unités perso sont dans des dossiers autres que ceux de mes projets et j'ajoute uniquement le chemin dans les options de compilation du projet.

Si tu es sous Vista ou Seven ! il te faut les droits d'admin sur ces dossiers car il arrive que cela bloque notre guépard

Cordialement,
Chris