Делаем Транслит В Delphi

[Sascha]

В этой статье мы научимся делать простейший траслит в Delphi.
Кто не знает что такое транслит:

Транслит — это написание русских букв с помощью латиницы.
Сам алгоритм создания транслита будет состоять из функции, которую мы назовем Translit.

Создаем новый проект, кидаем на форму Memo1 и Button1 с вкладки Standart. Кликаем по кнопке два раза, и переходим в редактор кода. Перед тем как писать кнопке код, нужно объявить функцию Translit.

После {$R *.dfm} пишем:

function Translit(s: string): string;
const
rus: string = ‘абвгдеёжзийклмнопрстуфхцчшщьыъэюяАБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЬЫЪЭЮЯ’;
lat: array[1..66] 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
p, i, l: integer;
begin
Result := »;
l := Length(s);
for i := 1 to l do
begin
p := Pos(s[i], rus);
if p<1 then Result := Result + s[i] else Result := Result + lat[p];
end;
end;

Теперь в созданном событии кнопки Onclick объявляем переменную a типа string и после begin пишем:

a:=Translit(‘Привет Мир’);
memo1.Lines.Add(a);

Полный код:

function Translit(s: string): string;
const
rus: string = ‘абвгдеёжзийклмнопрстуфхцчшщьыъэюяАБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЬЫЪЭЮЯ’;
lat: array[1..66] 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
p, i, l: integer;
begin
Result := »;
l := Length(s);
for i := 1 to l do
begin
p := Pos(s[i], rus);
if p<1 then Result := Result + s[i] else Result := Result + lat[p];
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
a: string ;
begin
a:=Translit(‘Привет Мир’);
memo1.Lines.Add(a);
end;
end.