Как сделать текст выходить на екран в виде звездам Опции

[Сандо]

Я пытаюсь сделать себе пароль!Но я не хочу чтоб кто-то ее читал пока я ее пишу!Я хочу сделать так чтобы когда я пишу на екране выходили звездачки,а сам текст анализировался!пожалуйста помогите!

P.S. Простите мои ошибки, но я не Руский!

[SKVOZNJAK]

Это тебе к модулю crt обращаться нужно  :) Считывать информацию с клавы используя конструкцию if keypressed=true then A:=readkey; а выводить информацию на экран перемещая курсор GotoXY(X,Y) {и снова goto!}
А выводить звёзды Write('*');

[KRUTOY]

SKVOZNJAK
да GOTO!!

[Altair]

Вот как:

uses crt;
var
 s: string; {PAROL}
 с : byte;
begin
 repeat
  c:=ord(readkey);
  if c<>13 then write('*'); {здесь желательно сделать бы проверку если с есть допустимый символ... можно через множества }
  s:=s+CHR( c );
 until c<>13;  { 13 код ENTER т.е конец ввода}
 s[0]:=CHR(ORD(s[0])-1); {может так и не надо, только последний элемент нужно удалить  в строке}
 end. 

все теперь в строке s пароль

Сообщение отредактировано: Altair - 27.12.2005 7:49

[Altair]

да совсем забыл после строки C:=ORD(readkey);
добавить:
write('*');

(отредактировал)