Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.05.02;
Скачать: CL | DM;

Вниз

Размер кода?   Найти похожие ветки 

 
Евгений-Зеленоград   (2002-04-20 01:07) [0]

Всем привет! Хотел задать вопрос как сделать код меньше. Дело в следующем: в строке 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) [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 отдельно



Страницы: 1 вся ветка

Текущий архив: 2002.05.02;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.009 c
3-2499
vitnt2000
2002-04-10 13:18
2002.05.02
Как подключиться к базе InterBase


1-2583
som
2002-04-19 16:56
2002.05.02
Edit


6-2628
knyaz17
2002-02-15 16:53
2002.05.02
КАК Загрузить в WebBrowser из потока файл *.MHT???


3-2488
Yuraz
2002-04-11 11:50
2002.05.02
Вставляю в таблицу сразу очень много строк


1-2560
Коля
2002-04-19 01:33
2002.05.02
Что это с иконкой?