|
Процедура выводит на экран коды и наименования символов
препинания
Delphi/Pascal
type
Tstroc=record
name:string;
Value:char;
end;
var
ch:array of Tstroc;
chCount:integer;
Function AddCh(Name:string;Value:Char):integer;
begin
chCount:=chCount+1;
setlength(ch,chCount);
ch[chCount-1].name:=name;
ch[chCount-1].value:=value;
end;
Procedure Init;
begin
AddCh('апостроф','’');
AddCh('скобки','[');
AddCh('скобки',']');
AddCh('скобки','(');
AddCh('скобки',')');
AddCh('скобки','{');
AddCh('скобки','}');
AddCh('двоеточие',':');
AddCh('запятая',',');
AddCh('тире','–');
AddCh('тире','—');
AddCh('многоточие','…');
AddCh('восклицательный знак','!');
AddCh('точка','.');
AddCh('дефис','-');
AddCh('кавычки','‘');
AddCh('кавычки','’');
AddCh('кавычки','"');
AddCh('кавычки','”');
AddCh('кавычки','«');
AddCh('кавычки','»');
AddCh('кавычки',#39);
AddCh('точка с запятой',';');
AddCh('косая черта','/');
AddCh('косая черта ','/');
//Словоразделители
AddCh('пробел',#32);
AddCh('интерпункт','·');
//Основная типографика
AddCh('амперсанд','&');
AddCh('коммерческое at','@');
AddCh('звёздочка','*');
AddCh('обратная косая черта','\');
AddCh('маркер списка','•');
AddCh('циркумфлекс','^');
AddCh('знак охраны авторского права','©');
AddCh('знак валюты','¤');
AddCh('крестик','†');
AddCh('крестик','‡');
AddCh('градус','°');
AddCh('октоторп/решётка/хеш','#');
AddCh('знак номера','№');
AddCh('процент','%');
AddCh('процент','‰');
AddCh('абзац','¶');
AddCh('знак правовой охраны товарного знака','®');
AddCh('знак параграфа','§');
AddCh('тильда','~');
AddCh('символ товарного знака','™');
AddCh('подчёркивание','_');
AddCh('вертикальная черта','|');
AddCh('вертикальная черта','¦');
end;
Function GetListFromCH:string;
var x:integer;
s2:string;
begin
s2:='';
for x:=0 to chCount-1 do begin
s2:=s2+ch[x].name+'="'+ch[x].Value+'"'+#13+#10;
end;
result:=s2;
end;
Function GetMassivText:string;
var x:integer;
s2:string;
begin
s2:='';
for x:=0 to chCount-1 do begin
if s2='' then
s2:=s2+'#'+inttostr(Ord(ch[x].value))
else s2:=s2+',#'+inttostr(Ord(ch[x].value))
end;
result:=s2;
end;
|
