Подсветка синтаксиса на форуме , Начата опытная эксплуатация :)

? Это про что?

О, Тишайший освободился
новой версии не появилось?

В смысле про что? Про глюк.
Написал в [code=asm]...[/code] < и > , а он выдаёт &lt &gt

Song, . А что, уже кто-то посмотрел последнюю?
JinX, правильно. htmlSpecialChars работает.

Тут кто-то жаловался на отсутсвие комментариев в примере.
Так вот...
Прикреплённый файл7.o.zip (0.82 Кбайт, скачиваний: 131)

И версия с подновлённым файлом rhgribochek.
Прикреплённый файлhilight5.7.1.o.zip (15.76 Кбайт, скачиваний: 104)

Анонсирована версия 3 подсветки на форуме Исходников.РУ
В этот раз в исполнении Leprecon'а (модератор Си).
Она примечательна тем, что имеет гибкую настройку и !позволяет изменять настройки для каждого конкретного раздела модератором этого раздела.
Небольшие кусочки кода:

unit AboutFormUnit;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, ComCtrls;
 
type
  TAboutForm = class(TForm)
    Panel1: TPanel;
    Button1: TButton;
    ProgressBar1: TProgressBar;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    /* Public declarations */
  end;
 
var
  AboutForm: TAboutForm;
 
implementation
 
{$R *.dfm}
 
procedure TAboutForm.FormCreate(Sender: TObject);
// testing
begin
 With Button1 Do
  Begin
 { comment }   SetWindowLong(Handle,GWL_STYLE,GetWindowLong(Handle,GWL_STYLE) or BS_MULTILINE); { comment begin
   comment end }
   Caption:='Загрузка {test2} данных,'#13#10'пожалуйста подождите...';  // Изменяем Caption
  /* multiline
    
     comment */
   i:=i + 10;
   Inc(i);
   r:=r + 0.5; // Дробное число
   r:=r * $0A;  // Hex
  End; {With}
end;
 
end.

<b> test2 </b>

With TStringList.Create Do
 try
  r:=r * $0B;
  S:=S1 + #32 + S2;
  { Text }
 finally
  Free;
 end;
  { asm text }
 asm
  mov al,05h;
  xnhg al,al;
 end;

Всячекого рода ашипки:
Ex. 1:
Source:

procedure xyz;
begin
  WriteLn('Hello // boys } and girlz');
  WriteLn('How are you?');
  This is 'not closed quote but a string
  But this is not a string'
  Testing "double quotes" in pascal
  { Trying this // }
  This is not a comment
  // Normal comment {
  This in not a comment too
  // }
  WriteLn('Hi!');
  А попробую-ка я [b]вот это[/b].
  { This is a bug, but a comment
end;

procedure xyz;
begin
  WriteLn('Hello // boys } and girlz');
  WriteLn('How are you?');
  This is 'not closed quote but a string
  But this is not a string'
  Testing "double quotes" in pascal
  { Trying this // }
  This is not a comment
  // Normal comment {
  This in not a comment too
  // }
  WriteLn('Hi!');
  А попробую-ка я [b]вот это[/b].
  { This is a bug, but a comment
end;

Ex. 2:
Source:

begin
  WriteLn('Hola {boyz//and} gelz!');
  (* Коммент { - это просто скобка, не имею права использовать? :) *)
  WriteLn('A gluk!');
  { Коммент }
  // More { glux
end.

begin
  WriteLn('Hola {boyz//and} gelz!');
  (* Коммент { - это просто скобка, не имею права использовать? :) *)
  WriteLn('A gluk!');
  { Коммент }
  // More { glux
end.

Ex. 4:
Source:

 
writeln readln;
exit;
asm;
begin
end;
(*\?+-:@$
is in external function ProcEdUre
....{in in in in in in}
{$I-}
property read write
{$I ...}input,ouput,hi,addr

writeln readln;
exit;
asm;
begin
end;
(*\?+-:@$
is in external function ProcEdUre
....{in in in in in in}
{$I-}
property read write
{$I ...}input,ouput,hi,addr

Ex. 5:
Source:

program Mine;
{This//That}WriteLn
end.

program Mine;
{This//That}WriteLn
end.

Ex. 6:
Source:

program His;
(*This{That*)WriteLn
end.

program His;
(*This{That*)WriteLn
end.

Ex. 7: (смайл :B )
Source:

begin
   B := 0;
   for i := 1 to N do
     if a[i] > 0 then inc(B); // *
   writeln(b);
end;

begin
   B := 0;
   for i := 1 to N do
     if a[i] > 0 then inc(B); // *
   writeln(b);
end;

[b]test2[/b]