Ник Курков

Приехал с дачи – отметили просто замечательно. Теперь, пока есть свободное время, можно заняться саморазвитием. Начнем с Delphi.

1. Итак, в Delphi 2010 появился нормальный встроенный форматтер. Читаем о настройках, юзаем хоткеем “CTRL-D”. По мне, так очень удобная штука (хотя, как подсказывают товарищи, не лишена багов). Не помешает еще прочитать стандарт стилевого оформления исходного кода в Delphi.
2. В Delphi 2007/2009/2010 появился нормальный Юникод. В результате часть старонаписанного кода работать правильно категорически перестала. О причинах и следствиях (как исправить) читаем тут.
3. Почитал, что пишут разработчики Windows 7 (в русском переводе). Весьма интересно.
4. Изучаю Doc-o-matic – инструмент для создания документации по исходному коду.
5. Авторизация на сайте и работа с Капчей, Ribbon Controls 1 и 2, XML-RPC в Delphi, многопоточность 1 и 2, Как защитить свою программу (законом), Регулярные выражения на примере RegExp.
6. Интересен топик лучших статей по Delphi за год на Хабре.

Для каждой модальной формы должны работать кнопки ESC и Enter. По ESC – выходить без сохранения. По Enter – выходить с сохранением.

Как это проще (и правильнее всего) сделать в Delphi? Нужно для кнопки “Ок” в интерфейсе установить свойство Default в true, а у кнопки “Отмена” установить свойство Cancel в true.

That’s all.

function Translit(const Str: string): string;
const
RArrayL = 'абвгдеёжзийклмнопрстуфхцчшщьыъэюя';
RArrayU = 'АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЬЫЪЭЮЯ';
colChar = 33;
arr: array[1..2, 1..ColChar] of string =
(('a', 'b', 'v', 'g', 'd', 'e', 'yo', 'zh', 'z', 'i', 'y',
'k', 'l', 'm', 'n', 'o', 'p', 'r', 's', 't', 'u', 'f',
'kh', 'ts', 'ch', 'sh', 'shch', '''', 'y', '''', 'e', 'yu', 'ya'),
('A', 'B', 'V', 'G', 'D', 'E', 'Yo', 'Zh', 'Z', 'I', 'Y',
'K', 'L', 'M', 'N', 'O', 'P', 'R', 'S', 'T', 'U', 'F',
'Kh', 'Ts', 'Ch', 'Sh', 'Shch', '''', 'Y', '''', 'E', 'Yu', 'Ya'));
var
i: Integer;
LenS: Integer;
p: integer;
d: byte;
begin
result := '';
LenS := length(str);
for i := 1 to lenS do
begin
d := 1;
p := pos(str, RArrayL);
if p = 0 then
begin
p := pos(str, RArrayU);
d := 2
end;
if p <> 0 then
result := result + arr[d, p]
else
result := result + str; //если не русская буква, то берем исходную
end;
end;