Deutsches Lazarusforum

Du musst diesem Code ändern

procedure TMySynHighlighter.Next;
var
l: Integer;
CloseCh: Char;
begin
FTokenPos := FTokenEnd;
FTokenEnd := FTokenPos;

l := Length(FLineText);
if FTokenPos > l then
Exit;

// Leerzeichen / Tabs
if FLineText[FTokenEnd] in [#9, ' '] then
begin
while ...

Das Problem liegt in Next.

Dort werden Tokens aktuell nur an Leerzeichen bzw. Tabs getrennt:


while (FTokenEnd <= l) and not(FLineText[FTokenEnd] in [#9, ' ']) do
inc(FTokenEnd);
Dadurch wird z. B. nachgab<RF> als ein einziges Token behandelt.
GetTokenAttribute schaut aber nur auf das erste ...