Kodowanie hasła Pascal

Odpowiedz Nowy wątek
2006-11-27 16:47
zak
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ć??

Pozostało 580 znaków

2006-11-27 18:33
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;

Nie łam się, i tak ktoś zrobił to za ciebie
<hr style="color: #B10C0C; width: 10%; margin-left: 0" />
LUDZIE goto NIE UŻYWA SIĘ WSZĘDZIE GDZIE MOŻNA, TYLKO TAM GDZIE TRZEBA

Pozostało 580 znaków

2006-11-27 20:46
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.

Pozostało 580 znaków

2006-11-27 20:49
Mgr.Dobrowolski
0

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

Pozostało 580 znaków

Odpowiedz
Liczba odpowiedzi na stronę

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