Discussion :

[SergioMaster]

Bonjour,

Je me heurte à un petit problème de déclaration d'un variable de type TBookmark (Data.DB) dans une de mes unités où j'utilise aussi Winsoft.Firemonkey.pdfium

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
procedure TFormOrdreStock.SwitchtologisticSwitch(Sender: TObject);
//var ABookMark : TBookMark;
begin
//ABookMark:=Datas.FDFacturesExport.GetBookmark;
Datas.FDFacturesExport.Close;
if Switchtologistic.IsChecked
 then Datas.FDFacturesExport.MacroByName('logistique').AsRaw:='AND COALESCE(a.TRANSMISUS,-1)<0'
 else Datas.FDFacturesExport.MacroByName('logistique').Clear;
Datas.FDFacturesExport.Open;
//if Datas.FDFacturesExport.BookmarkValid(ABookMark) then
//   Datas.FDFacturesExport.GotoBookmark(ABookMark);

UnitOrdreStock.pas(801): E2010 Types incompatibles : 'TBookmark' et 'System.TArray<System.Byte>'

et ceci parce que l'unité Winsoft contient aussi une déclaration d'un TBookmark

J'ai essayé de déclarer var ABookMark : Data.DB.TBookmark;
mais je me heurte à cette erreur de compilation

UnitOrdreStock.pas(799): E2007 Constante ou identificateur de type attendu

Bien que je puisse éviter l'utilisation de ce repositionnement j'aimerai trouver la soluce pour la déclaration. Une idée ?

[SergioMaster]

Re,

évidemment, question posée m'a fournie l'idée
Je suis allé fouillé dans les deux sources concernés

Code :

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

1
2
3
4
5
6
7
8
9
 
 // Winsoft
 TBookmark = record
    Handle: FPDF_BOOKMARK;
    Title: WString;
    PageNumber: Integer;
    Action: TPdfAction;
    ActionPageNumber: Integer;
  end;

Code :

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

1
2
3
 
  // Data.DB
  TBookmark = TArray<Byte>;

La solution, j'ai déclaré ABookMark comme étant un TArray<Byte> et pffft... plus de soucis.
Moralité, quand on propose des composants faire attention aux déclarations si winsoft l'avait nommé TPDFBookmark je n'aurai eu aucun souci.

Désolé pour le soliloque

[Andnotor]

Perso je ne me pose plus de question et passe par des variables inline : var ABookMark := Datas.FDFacturesExport.GetBookmark;

[SergioMaster]

Je suis encore frileux avec les variables inline surtout que je suis encore avec l'utilisation de 10.3 (je trouve la 10.4 encore un peu "délicate" pour de la production) et défaut de jeunesse la déclaration des variables inline le correcteur de syntaxe surligne (j'aime pas les surlignages).

Il va falloir que je m'y mette