Kodowanie hasła Pascal

0
repeat
c:=readkey;
write('*');
s:=s+c;
until c=#13;

mam taki kod tylko ze jesli nacisne BackSpace to zamiast usówać znaki to sie dopisuja nowe gwiazdki. Jak temu zaradzić??

0

Trzeba dodać własną obsługę BackSpace.
np:

repeat
c:=readkey;
if c=#8 then
 begin
  s[0]:=Length(s)-1;
  gotoxy(wherex-1,wherey);
  write(' ');
  gotoxy(wherex-1,wherey);
 end
else
 begin
  write('*');
  s:=s+c;
 end;
until c=#13;
0
Loloki napisał(a)
s[0]:=Length(s)-1;

tego kompilator nie przełknie ;) Powinieneś ująć liczbę po prawej stronie w Char (), albo zrobić to tak:

s :=Copy (s, 1, Length (s) -1);

Pozdrawiam.

0

if length(s)>0 then dec(s[0]);

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0