ount thenzap.dlin <> 0 then n: = 1 else n: = 0;. RowCount: = filesize (f); (f, 1); i: = 1 to filesize (f) -1 do (f, zap) ; zap.flag = false then tablica.Cells [0, i]: ='' tablica.Cells [0, i]: = '?'; n = 1 then begin tablica.cells [1, i]: = 'Ай -ай-ай! '; pis: = 0; endbegin tablica.cells [1, i]: = decode.cipher (zap.password, zap.dlin); pis: = 1; end;. Cells [4, i] : = zap.zamet;;: = false;: = false;;;; TForm1.N4Click (Sender: TObject); pis <> 0 then if newdoc = false then begin (f, namer); (f); (f, 1); I: = 1 to Tablica.RowCount do ((Tablica.Cells [0, i] ='') (tablica.Cells [1, i] ='') (tablica.Cells [4, i ] ='')) then continuebeginTablica.Cells [0, i] ='' then zap.flag: = falsezap.flag: = true;. password: = code.cipher (tablica.Cells [1, i], SaveDialog1.Execute then: = SaveDialog1.FileName + '. Psw'; (f, namer); (f); (f, 0);. Password: ='';. Dlin: = 0; (f, zap); ( f, 1); I: = 1 to Tablica.RowCount do ((Tablica.Cells [0, i] ='') (tablica.Cells [1, i] ='') (tablica.Cells [4, i] ='')) then continuebeginTablica.Cells [0, i] ='' then zap.flag: = falsezap.flag: = true;. password: = code.cipher (tablica.Cells [1, i], length (tablica . Cells [1, i]));. dlin: = length (tablica.Cells [1, i]);. zamet: = tablica.Cells [4, i]; (f, zap);;; end;: = false; newdoc: = false;; TForm1.N5Click (Sender: TObject); pis <> 0 then if SaveDialog1.Execute then: = SaveDialog1.FileName + '. psw'; (f, namer); (f); (f, 0);
zap.password: ='';. dlin: = 0;
write (f, zap); (f, 1); I: = 1 to Tablica.RowCount do ((Tablica.Cells [0, i] ='') (tablica.Cells [1 , i] ='') (tablica.Cells [4, i] ='')) then continuebeginTablica.Cells [0, i] ='' then zap.flag: = falsezap.flag: = true;. password: = code.cipher (tablica.Cells [1, i], length (tablica.Cells [1, i]));. dlin: = length (tablica.Cells [1, i]);. zamet: = tablica.Cells [ 4, i]; (f, zap);;; newdoc: = false; pswchange: = false; end;; TForm1.N9Click (Sender: TObject);. ShowModal;; TForm1.PasswordButtonClick (Sender: TObject); (f , 0); (f, zap); passwordedit.text = decode.cipher (zap.password, zap.dlin) theni: = 1 to filesize (f) -1 do begin pis: = 1; read (f, zap) ; tablica.cells [1, i]: = decode.cipher (zap.password, zap.dlin); label8.caption: =''; endlabel8.caption: = 'Пароль невірний';; TForm1.TablicaMouseWheelDown (Sender: TObject ; Shift: TShiftState;: TPoint; var Handled: Boolean);. Perform (WM_VScroll, SB_LINEDOWN, 0); Handled: = True;; TForm1.TablicaMouseWheelUp (Sender: TObject; Shift: TShiftState;: TPoint; var Handled: Boolean) ;. Perform (WM_VScroll, SB_LINEUP, 0); Handled: = True;; TForm1.TablicaSelectCell (Sender: TObject; ACol, ARow: Integer; CanSelect: Boolean); (ACol = 0) then: = true;. Options: = Tablica.Options-[goEditing]; Tablica.cells [ACol, ARow] = '?' then Tablica.cells [...
