Bonjour,
Ancien de Delphi, n'ayant jamais pu renouveler ma Licence en Delphi, j'ai décidé de programmer en Lazarus depuis peu pour le plaisir.
J'ai un problème de déclaration d'une variable dans une unité

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
 var  CircRect : TRect; // coordonnées figure circonscrite

procedure Dessine_Point(Ox,Oy,R,e : integer; aCanvas : TCanvas; aColorExt, aColorInt: Tcolor);
begin
  CircRect := Rect( Ox - R , OY - R, OX + R, OY + R);        
  ...
end;
A la compilation, j'ai l'erreur suivante sur la première virgule : Syntax error, ")" expected but "," found
J'ai vérifié la définition, elle est bien compatible avec ce que je faisais en Delphi
Source position: classesh.inc line 2089

function Rect(
ALeft: Integer;
ATop: Integer;
ARight: Integer;
ABottom: Integer
):TRect;

Description

Rect returns a TRect record with the given top-left (ALeft,ATop) and bottom-right
(ABottom,ARight) corners filled in.

No checking is done to see whether the coordinates are valid.

See also

TRect Descibes a rectangle
Point Returns a TPoint record with the given coordinates.
SmallPoint Returns a TSmallPoint record with the given coordinates.
Bounds Returns a TRect structure with the bounding rect of the given location and size.

Documentation generated on: May 12 2018
Pouvez vous m'éclairer?
merci