if (EStyle in [psPython, psPerl])[ ar reProgram) F:= StrScan(P +1,#13 if F= nil then F:= StrEnd(P 1) if EStyle psv then begin F:= StrScan(P 1, #13) if F= nil then F: StrEnd(P 1)end; '#': if (FStyle in [psPython, psPerl]) { and ((P = FpcProgram) or (P[-1] in [#10, #13])) } then begin F := StrScan(P + 1, #13); if F = nil then F := StrEnd(P + 1); P := F; end; '''': if FStyle = psVB then begin F := StrScan(P + 1, #13); if F = nil then F := StrEnd(P + 1); P := F; end; end; end;