--- a/SynHighlighterCS.pas +++ b/SynHighlighterCS.pas @@ -219,7 +219,7 @@ procedure SetLine({$IFDEF FPC}const {$ENDIF}NewValue: String; LineNumber:Integer); override; function GetToken: String; override; {$IFDEF SYN_LAZARUS} - procedure GetTokenEx(var TokenStart: PChar; var TokenLength: integer); override; + procedure GetTokenEx(out TokenStart: PChar; out TokenLength: integer); override; {$ENDIF} function GetTokenAttribute: TSynHighlighterAttributes; override; function GetTokenKind: integer; override; @@ -1457,8 +1457,8 @@ end; {$IFDEF SYN_LAZARUS} -procedure TSynCSSyn.GetTokenEx(var TokenStart: PChar; - var TokenLength: integer); +procedure TSynCSSyn.GetTokenEx(out TokenStart: PChar; + out TokenLength: integer); begin TokenLength:=Run-fTokenPos; TokenStart:=FLine + fTokenPos;