Размер кода? [D5, Win95/98]
Евгений-Зеленоград © (2002-04-20 01:07:00)
Всем привет! Хотел задать вопрос как сделать код меньше. Дело
в следующем: в строке 1 пишем текст, а в строке 2 сразу пишется
тотже текст латиницей. При этом у меня получился большой код. Как
его уменьшить? Часть кода:
.............Edit1OnKeyDown.........
var
A: array [1..33]of string;
B,C : string;
begin
A[1]:="A";
A[2]:="B";
A[3]:="V";
A[3]:="G";
...
A[32]:="YU";
A[33]:="IA";
B:= Edit2.Text;
IF key = $41 then begin
C:=B+ A[1];
Edit2.Text:=C;
end;
и так далее весь рус. алфавит
А мне надо для многих строк сделать так. Что делать?
Кстати еще тут же вопрос, а как сделать так чтобы курсор в
Edit2 также двигался как в Edit1??????
Заранее всем спасибо!!!!!!! Мой мыл: ewgen777@online.ru
MBo (2002-04-20 01:18:00) [1]
примерно так
Lats:array[1..66] of string=("A","B","V"...)
case Ord(key) of
Ord("A")..Ord("я"):Edit2.Text:=Edit2.Text+Lats[Ord(Key)-Ord("A")+1];
ё и #8 отдельно
Наверх 
ЧАТ |
Орешник |
|
