Программа, которая призвана немного помочь жителям форумов не поддерживающих синтаксис языков программирования. Программа находит в коде зарезервированные слова языка и вставляет BB коды ([b],[i],[u],[color],[size]), что делает код немного читабельнее.
P.S. в архиве есть сохраненка для Delphi
Скрин:
Программа:
http://delphi.3dn.ru/load/11-1-0-15
Обычное сообщение:
Код:
function Sum(n:integer):integer; //Сумма цифр
var
r:integer;
begin
r:=0;
repeat
r:=r+n mod 10;
n:=n div 10;
until n=0;
Result:=r;
end;
Необычное:
Код:
function Sum(n:integer):integer; //Сумма цифр
var
r:integer;
begin
r := 0;
repeat
r := r + n mod 10;
n := n div 10;
until n = 0;
Result := r;
end;