Hallo Matthias,
Delphi-Quellcode:
procedure TSynAdaSyn.Next;
begin
fTokenPos := Run;
case fRange of // <== Hier fehlt natürlich etwas
else
begin
fRange := rsUnknown;
fProcTable[fLine[Run]];
end;
end;
end;
wie kommst du darauf, dass an der bezeichneten Stelle etwas fehlt? Hast du denn MultiLine-Einträge spezifiziert?
marabu