Главная страница
    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-1140985062
Vitalik__
2006-02-26 23:17
2006.03.12
Перевод значения String в число.


2-1139935979
smus811
2006-02-14 19:52
2006.03.12
Поиск по BLOB ам


2-1140779871
Saveliy
2006-02-24 14:17
2006.03.12
Соединение с интернетом


8-1128233186
homm
2005-10-02 10:06
2006.03.12
16 битное значение цвета из 32 битного представления


2-1140669848
Silver__Dragon
2006-02-23 07:44
2006.03.12
Выделение цветом в TLIstBox





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