;: integer;
{$ R * .dfm}
TForm4.Button1Click (Sender: TObject); OpenPictureDialog1.Execute then
Image1.Picture.LoadFromFile (OpenPictureDialog1.FileName) ;;
procedure TForm4.Button2Click (Sender: TObject); s, U, I, A, B, C: string; f: textfile ;: Integer;:=ComboBox1.Text;.CreateDir(ExtractFilePath(paramstr(0))+laquo;1laquo;+s);:=Edit2.Text+raquo; V laquo ;;:=Edit3.Text + Amplaquo;;:=Edit4.Text;:=Edit5.Text;:=Edit6.Text;(f,ExtractFilePath(paramstr(0))+raquo;1laquo;+s+raquo;1.txtlaquo;);(f);(f,U);(f,I);(f,A);(f,B);(f,C);(f);.Picture.SaveToFile(ExtractFilePath(paramstr(0))+raquo;1laquo;+s+raquo;1.jpglaquo;);(f,ExtractFilePath(paramstr(0))+raquo;1laquo;+s+raquo;2.txtraquo;);(f);(f,n- 2); j:=1 to n - 1 do (f, StringGrid1.Cells [0, j]); (f);
except
ShowMessage ( Все поля повинні бути заповнені! );
end ;;
TForm4.Button3Click (Sender: TObject);.Text:=laquo;raquo;;.Text:=laquo;raquo;;.Text:=laquo;raquo;;.Text:=laquo;raquo;;.Text:=laquo;raquo;;.Text:=laquo;raquo;;
n:=2; .Cells [0,1]:= raquo ;;. RowCount:=n; .Picture:=nil ;;
TForm4.FormCreate (Sender: TObject); s1, U, I, A, B, C, k: string; f: Textfile; j:integer;:=laquo;raquo;;:=laquo;raquo;;:=laquo;raquo;;:=laquo;raquo;;:=laquo;raquo;;:=laquo;raquo;;.Text:=laquo;raquo;;.Text:=laquo;raquo;;.Text:=laquo;raquo;;.Text:=laquo;raquo;;.Text:=laquo;raquo;;.Visible:=False;:=2;.RowCount:=n;.Cells[0,0]:=laquo;Компонентыraquo;;.Cells[0,1]:=laquo;raquo;;:=ComboBox1.text;s1lt;gt;laquo;raquo; then begin(f,ExtractFilePath(paramstr(0))+laquo;1CA1028IR1.txtraquo;);(f);(f,U);(f,I);(f,A);(f,B);(f,C);(f);
end;
//Читання і висновок компонентів агрегату:
if s1 lt; gt; then begin
assignfile(f,ExtractFilePath(paramstr(0))+laquo;1CA1028IR2.txtraquo;);(f);(f,n);.RowCount:=n+1;j :=1 to n do(f,k);.Cells[0,j]:=k;;(f);;.Visible:=True;.Picture.LoadFromFile(ExtractFilePath(paramstr(0))+laquo;1laquo;+s1+raquo;1.jpgraquo;
) ;. Text:=U; .Text:=I; A lt; gt; then Edit4.Text:=A; B lt; gt; then Edit5.Text:=B; C lt; gt; then Edit6.Text:=C;
//Обнулення всіх праметров агрегату:
Edit2.Text:=laquo;raquo;;.Text:=laquo;raquo;;.Text:=laquo;raquo;;.Text:=laquo;raquo;;.Text:=laquo;raquo;;.Picture:=nil;;;
TForm4.StringGrid1MouseMove (Sender: TObject; Shift:
TShiftState; X ,: Integer); StringGrid1.cells [0, n - 1] lt; gt; then begin (n) ;. RowCount:=n ;;;
.
unit Unit5;
, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, StdCtrls;
=class (TForm): TLabel ;: TEdit ;: TButton ;: TButton; Button1Click (Sender: TObject); Button2Click (Sender: TObject);
{Private declarations}
{Public declarations};
: TForm5;
Unit1, Unit6;
{$ R * .dfm}
TForm5.Button1Click (Sender: TObject); key=38; psw, psw1, s: string; f: TextFile ;: Integer; (f, ExtractFilePath (paramstr (0)) + psw.hrr ); (f); (f, s); (f); s= then begin
MessageDlg ('Вміст файлу psw.hrr було видалено! Програма
буде закрита! ', mtWarning, [mbOK], 0);
Button2.Click; begin:=Edit1.Text;:= raquo ;; i:=1 to length (s) do [i]:=Chr (key xor Ord (s [i ]));:=psw1 + s [i] ;; psw1 lt; gt; psw then MessageDlg ( пароль неправильні !!! raquo ;,
mtWarning, [mbOK], 0) begin.Close; .AlphaBlend:=False ;;; ( Файл psw.hrr не знайден! Програма буде закрита! raquo ;,
mtWarning, [mbOK], 0);
Button2.Click ;;;
TForm5.Button2Click (Sender: TObject) ;. Close ;;
.
Unit6;
uses, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, StdCtrls;
type=class (TForm): TLabel ;: TLabel ;: TLabel ;: TEdit ;: TEdit ;: TEdit ;: TButton; Button1Click (Sender: TObject);
{Private declarations}
{Public declarations};
: TForm6;
{$ R * .dfm}
TForm6.Button1Click (Sender: TObject); key=38; pswst, pswnv, s, psw1, ss: string; f: TextFile; i:byte;:=Edit1.Text;:=Edit2.Text;:=Edit3.Text;(f,ExtractFilePa...
