Hast du denn die generierte
Unit einmal verwendet? Der Erfolg meiner Anpassung macht sich in der generierten
Unit in der Prozedur LineEndCommentProc bemerkbar - wenn der Ada-Comment LineEndComment genannt wurde:
Delphi-Quellcode:
procedure TSynSampleSyn.LineEndCommentProc;
begin
fTokenID := tkComment;
repeat
// es ist dieser Teil der bei EOL terminierten enclosures
// nicht erzeugt werden darf...
{
if then
begin
Inc(Run, 0);
fRange := rsUnKnown;
Break;
end;
}
if not (fLine[Run] in [#0, #10, #13]) then
Inc(Run);
until fLine[Run] in [#0, #10, #13];
end;
Sobald ich kann werde ich es selbst überprüfen.
marabu