Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.05.02;
Скачать: [xml.tar.bz2];

Вниз

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

 
Евгений-Зеленоград   (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;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.44 MB
Время: 0.004 c
14-2678
fliz
2002-03-27 13:53
2002.05.02
прошу подсказать, какую модель из мониторов Митсубиси брать?


1-2553
Starkom
2002-04-18 09:34
2002.05.02
вопрос про потоки и модальные формы


3-2443
Бульбаш
2002-04-05 19:22
2002.05.02
Как заполнить список ListBox-а значениями двух полей...???


1-2502
makruha
2002-04-18 12:06
2002.05.02
Компонета TGraph (из ActiveX)?


14-2668
lipskiy
2002-03-25 01:02
2002.05.02
Можно ли грузить доп. инструкции к коду во время работы ехешника, например, из файла?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский