et: = tablica.Cells [4, i]; (f, zap);;; pswchange: = false; newdoc: = true; end; : begin action: = caNone; end;;;; TForm1.FormCreate (Sender: TObject); not FileExists (ExtractFilePath (ParamStr (0)) + 'settings.stgg') then begin
showmessage ('Ні файлу налаштувань. Переконайтеся, що він знаходиться в папці з програмою або встановлювати її');
Halt;;: = true; pis: = 1;. PasswordChar: = '*';. PasswordChar: = '*';. PasswordChar: = '*';. passwordchar: = : = 1 to Tablica.rowcount do.cells [2, I]: = '?';. Cells [3,0]: = 'У буфер';. ColWidths [3]: = 66; i: = 1 to Tablica . rowcount to tablica.rowcount do.cells [5, i]: = '?';; TForm1.N12Click (Sender: TObject); (Form1.Handle, nil, PChar (ExtractFilePath (ParamStr (0)) + 'help.doc' ), nil, nil, SW_RESTORE);; TForm1.N13Click (Sender: TObject);. ShowModal;; TForm1.N2Click (Sender: TObject); pis <> 0 then beginPSWChange = true thenMessageBox (Handle, PChar ('Зміни не зберегли. Закрити без збереження? '), PChar (' Увага '), MB_YESNOCANCEL + MB_APPLMODAL) of: begin end;: beginSaveDialog1.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);;; pswchange: = false; newdoc: = true; end;: begin exit; end;;; end;. RowCount: = 10; i: = 1 to Tablica.RowCount do.Rows [i]. Clear;. RowCount: = 10; i: = 1 to Tablica.rowcount do.cells [2, I]: = '?'; i: = 1 to Tablica.rowcount do.cells [3, I]: = '?';; TForm1.N3Click (Sender: TObject); pis <> 0 then begin if PSWChange = true thenMessageBox (Handle, PChar ('Зміни не зберегли . Закрити без збереження? '), PChar (' Увага '), MB_YESNOCANCEL + MB_APPLMODAL) of: begin end;: beginSaveDialog1.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);;; newdoc: = false; pswchange: = false; end;: begin exit; end;;; end; OpenDialog1.execute then: = OpenDialog1.FileName; (f, namer); (f); (f, 0); (f, zap); filesize (f) = 1 then tablica.RowCount: = 2filesize (f) -1 <> Tablica.RowC...
