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

Вниз

Непонятки с консолью   Найти похожие ветки 

 
dreamse   (2006-02-23 08:12) [0]

Пишу консольную утилиту ...



write(Rus("     Опции :"+#13#10+#13#10+
       "     1) Установить программу"+#13#10+#13#10+
       "     2) Сменить тип авторизации "+#13#10+#13#10+
       "     3) Выход")+ #13#10);

 Readln(sline);
 if sline = "3" then exit;



В общем после вывода этих строк нужно выбрать опцию ... например 3 : пользователь вводит 3 и она пишеться на экране , после чего нужно нажимать Enter

Вопрос : каким образом сделать так чтобы буквы не писались на экране при наборе пользователем ( например выбор или пароль )

Вопрос 2 : как сразу же переходить к выбраному пункту меню не нажимаю Enter а выбрав пункт из опций ?


 
Alexandr ©   (2006-02-23 08:18) [1]

вопрос 1 не знаю.
а вопрос 2 - напиши   Read(sline); и обрабатывай посимвольно.


 
dreamse   (2006-02-23 08:54) [2]

> а вопрос 2 - напиши   Read(sline); и обрабатывай посимвольно.

Можно поподробней ? а то что то нечиге не получаеться ... не могу понять как обрабатывать так как символ уже написан


 
Alexandr ©   (2006-02-23 09:18) [3]

ну так символ считал один же. и сразу его анализируй.
т.е. программа то больше и не изменяется, только в данной строке.
или что?


 
Zeqfreed ©   (2006-02-23 10:49) [4]

http://www.delphimaster.ru/articles/console.html



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

Форум: "Начинающим";
Текущий архив: 2006.03.12;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.013 c
2-1140900557
Adios
2006-02-25 23:49
2006.03.12
Из ListBox в Image


2-1140607527
Клон
2006-02-22 14:25
2006.03.12
Charset в Idmessage


1-1138899629
Санек
2006-02-02 20:00
2006.03.12
Excel потеря фокуса


2-1140343320
redlord
2006-02-19 13:02
2006.03.12
winsock


2-1140711503
K_Lock
2006-02-23 19:18
2006.03.12
Ошибка......





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский