строки

[Miwqa]

Как сделать так, чтобы при нажатии на Backspace удалялся 1 символ. Например, мы вводим 123(отображается "***")и после нажатия на Backspace должно остаться 12("**").

write('Введите пароль: ');
Repeat
C := ReadKey;
Write('*');
if p <> #13 then p := p + C;
Until C = #13;
delete(p,length(p), 1);

У меня получается только так:

Repeat
C := ReadKey;
if c<>#8 then
begin
Write('*');
if l<>#13 then l := l + C;
end
else
begin
delete(l,length(l), 1);
write(l);
end;
Until C = #13;

Здесь у меня вводишь 123 и при нажатии Backspace выводит 12312

[Poma][a]

uses
        Crt;
var
        s : string;
        c : Char;

begin
        s := '';
        c := #0;
        while c <> #13 do begin
                c := ReadKey;
                if (c <> #8) and (c <> #13) then
                        s := s + c
                else if c = #8 then
                        Delete (s, Length(s), 1)
        end;
        WriteLn (s)
end.

Со '*' сами нахимичите.

[Miwqa]

Сообщение от Poma][a

uses
        Crt;
var
        s : string;
        c : Char;

begin
        s := '';
        c := #0;
        while c <> #13 do begin
                c := ReadKey;
                if (c <> #8) and (c <> #13) then
                        s := s + c
                else if c = #8 then
                        Delete (s, Length(s), 1)
        end;
        WriteLn (s)
end.

Со '*' сами нахимичите.

Здесь текст появляется после нажатия на Enter, а мне надо чтобы выводилось то, что вводишь и, чтобы можно было это стереть

[Poma][a]

Добавил 2 строчки

uses
        Crt;
var
        s : string;
        c : Char;

begin
        s := '';
        c := #0;
        while c <> #13 do begin
                c := ReadKey;
                if (c <> #8) and (c <> #13) then
                        s := s + c
                else if c = #8 then
                        Delete (s, Length(s), 1);
                ClrScr;
                Write (s)
        end
end.

То что в коде 2 развилки - мне очень не нравится, но как избавиться от этой бяки, я не знаю..

[Miwqa]

Сообщение от Poma][a

Добавил 2 строчки

uses
        Crt;
var
        s : string;
        c : Char;

begin
        s := '';
        c := #0;
        while c <> #13 do begin
                c := ReadKey;
                if (c <> #8) and (c <> #13) then
                        s := s + c
                else if c = #8 then
                        Delete (s, Length(s), 1);
                ClrScr;
                Write (s)
        end
end.

То что в коде 2 развилки - мне очень не нравится, но как избавиться от этой бяки, я не знаю..

спасибо огромное) сейчас еще подделаю и все ок)

[s-andriano]

Стирание всего экрана после ввода каждого символа? Ж8( )

Нужно стереть на экране единственный символ, для чего передвинуть курсор на 1 позицию назад, вписать пробел и (если процедура отображения символа сдвигает каретку) еще раз подвинуть курсор назад.

[Poma][a]

Стирание всего экрана после ввода каждого символа?

Согласен! Это редкостная ересь. Но в условиях учебной задачи вполне применима!

Ж8( )

nicht verstehen

Нужно стереть на экране единственный символ, для чего передвинуть курсор на 1 позицию назад, вписать пробел и (если процедура отображения символа сдвигает каретку) еще раз подвинуть курсор назад.

Повторюсь, ИМХО в данном случае игра не стоит свеч. (да и не знаю я как это можно нахимичить)

[Stilet]

nicht verstehen

Это смайл такой )

да и не знаю я как это можно нахимичить

Вот так например:

uses crt;
var c:char;
begin
 clrscr;
 c:=readkey;

 repeat
  write(c);
  if c=#8 then write(' '#8);
  c:=readkey;
 until c=#13;
end.

[Poma][a]

о! Виталий, огроменное спасибо!!

[Stilet]

Всегда пожалуйста )