Реферат Високорівневі методи інформатики та програмування

der: TObject); ColL: LongInt; Lst: TStrings;: = [];: = 0;// Нуль рядків: = TStringList.Create ;. Clear; FileExists (ExtractFilePath (ParamStr (0)) + 'Grid.cfg') Then.LoadFromFile (ExtractFilePath (ParamStr (0)) + 'Grid.cfg');: = Lst.Count;. RowCount: = ColL ;. Free;;

// + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +. ColCount: = ColL;. RowCount: = Sg1.ColCount;

VAR R: LongInt;// Заповнення таблиці

Det0: = True; R: = 0 To Tb.RowCount-1 DoTb.Cells [0, R] ='' Then: = True; ('ЗАПОВНІТЬ ВСЕ!'); Break; ELSE Det0: = False;; TForm1.N1Click (Sender: TObject); R, I: LongInt; Ms, Sd: String; Det0 (SG2) Then Exit;

// ======================================== ======= Фільтр символів: = []; I: = 0 To Sg2.RowCount - 1 Do: = Cont + [Znak (Sg2, 0, I)];;

// ======================================== =======. Enabled: = False;: =''; I: = 0 To Sg2.RowCount-1 Do: = MS + SG2.Cells [0, I]; R: = 0 To SG1.RowCount -1 Do.Rows [R]. Clear;: = Invert (MS, R); I: = 1 to Length (Sd) Do.Rows [R]. Add (Sd [I]);;. Enabled: = True ;; TForm1.FormClose (Sender: TObject; var Action: TCloseAction); Det0 (Sg2) = False Then.Cols [0]. SaveToFile (ExtractFilePath (ParamStr (0)) + 'Grid.cfg');; Invert (S : String; N: LongInt): String; S1, S2, Sum: String; (S ='') OR (N> Length (S)) Then Exit;

///////////////////////////N> 0 Then: =''; S2: =''; : = Copy (S, 1, N);: = Copy (S, N +1, Length (S)-N);: = S2 + S1;: = Sum; ELSEN <= 0 Then: = S;; ( 'Внутрішня помилка!'); Exit;;; TForm1.Button1Click (Sender: TObject);. showmodal;; TForm1.Button2Click (Sender: TObject);. Visible: = Not SG1.Visible;; TForm1.Button3Click (Sender: TObject );. ActivePage: = TabSheet1;; TForm1.Button4Click (Sender: TObject);. ActivePage: = TabSheet2;; TForm1.Edit1KeyPress (Sender: TObject; var Key: Char); Key OF

'А' .. 'Я', # 8, # 9:;

'а' .. 'я', 'a' .. 'z': Key: = Chr (Ord (Key) -32);

'е', 'Е': Key: = 'Е';

// ELSE Key: = # 0;; Not (Key in Cont) Then Key: = # 0;; TForm1.REd1KeyPress (Sender: TObject; var Key: Char); Key OF

'А' .. 'Я', # 8, # 9, # 13, # 10, '':;

'а' .. 'я', 'a' .. 'z': Key: = Chr (Ord (Key) -32);

'е', 'Е': Key: = 'Е';

'0 '.. '9':;;; TForm1.REd2KeyPress (Sen...