Einzelnen Beitrag anzeigen

Berni68

Registriert seit: 9. Jan 2006
Ort: Villingen
162 Beiträge
 
Delphi XE5 Professional
 
#1

Free Pascal Syntax

  Alt 26. Sep 2013, 18:49
Hallo zusammen,

ich habe mit der LazActiveX Komponente eine .tlb importiert.
Es wird z.B. folgender Code generiert

 function GetBSplineInfo(pnOrder:array[0..1] of LongWord;pnNumPoles:array[0..1] of LongWord;pnNumKnots:array[0..1] of LongWord;out pbIsRational:ShortInt;pbIsPeriodic:TArrayShortInt01;pbIsClosed:TArrayShortInt01;out pbIsPlanar:ShortInt;pPlaneVector:TPoint02):HRESULT;stdcall;
das läßt sich aber nicht kompilieren Fehler:
L:\Inventor\Inventor_1_0_TLB.pas(34766,41) Fatal: Syntax error, "OF" expected but "[" found

Das Problem kann man zwar umgehen idem man
Delphi-Quellcode:
type
  TpnOrder = array[0..1] of LongWord;
deklariert, und dann TpnOrder in der Funktion übergibt.

Das unangenehme aber ist, daß in dieser Bib zahllose solcher (verschiedener) arrays verwendet werden die dann alle händisch ersetzt werden müssten.
Meine Hoffnung ist aber, das LazActiveX syntaktisch korrekten Code generiert, und ich lediglich einen Compilerschalter richtig setzen muß.
Lieg ich da richtig, und vor allem wo find ich den Haken?
Bernhard
  Mit Zitat antworten Zitat