Введение в технологию программирования. Ч.1. Среда объектно-ориентированного программирования Delphi. Коржов Е.Н - 32 стр.

UptoLike

Составители: 

32
Ʉɨɦɩɨɧɟɧɬɵ, ɤɨɬɨɪɵɟ ɫɨɞɟɪɠɢɬ ɩɪɢɥɨɠɟɧɢɟ, ɩɟɪɟɱɢɫɥɟɧɵ ɜ ɬɚɛɥɢɰɟ.
ȼ ɬɚɛɥɢɰɟ ɩɪɢɜɟɞɟɧɵ ɫɜɨɣɫɬɜɚ, ɫɤɨɪɪɟɤɬɢɪɨɜɚɧɧɵɟ ɨɬɧɨɫɢɬɟɥɶɧɨ ɡɚɞɚɧ-
ɧɵɯ ɩɨ ɭɦɨɥɱɚɧɢɸ.
Ʉɨɦɩɨɧɟɧɬ ɋɜɨɣɫɬɜɚ
Panel1 Caption – ɨɱɢɫɬɢɬɶ
Align – alBottom
Edit1, Edit2 Text – ɨɱɢɫɬɢɬɶ
Label1 Caption – ɮɚɦɢɥɢɹ
Label2 Caption – ɪɟɡɭɥɶɬɚɬ
RadioGroup1 Caption – ɩɨɥ
ItemIndex – 0
Items – ɦɭɠɫɤ., ɠɟɧɫɤ.
RadioGroup2 Items – ɫɪɟɞɧɢɣ ɛɚɥɥ ɦɚɥɶɱɢɤɨɜ, ɫɪɟɞɧɢɣ ɛɚɥɥ ɞɟɜɨɱɟɤ,
ɨɛɳɢɣ ɫɪɟɞɧɢɣ ɛɚɥɥ
Caption – ɩɪɢɡɧɚɤ ɪɚɫɱɟɬɚ
BitBtn1 Caption – ɡɚɩɢɫɚɬɶ
Kind – bkOK
BitBtn2 Kind – bkClose
StringGrid1 Align – alClient
ColCount – 6
RowCount – 11
DefaultColWidth – 100
Options | goEditing – True
Form1 Caption ɥɚɛɨɪɚɬɨɪɧɚɹ ɪɚɛɨɬɚ ʋ 3
2. Ɉɡɧɚɤɨɦɶɬɟɫɶ ɫ ɩɪɨɝɪɚɦɦɨɣ.
unit Unit1;
{
ɇɚɡɧɚɱɟɧɢɟ: ɉɨɞɫɱɟɬ ɫɪɟɞɧɟɝɨ ɛɚɥɥɚ ɤɚɠɞɨɝɨ ɫɬɭɞɟɧɬɚ
ȼɯɨɞɧɵɟ ɞɚɧɧɵɟ: Ɉɰɟɧɤɢ ɤɚɠɞɨɝɨ ɫɬɭɞɟɧɬɚ
ȼɵɯɨɞɧɵɟ ɞɚɧɧɵɟ: ɋɪɟɞɧɢɟ ɨɰɟɧɤɢ ɫɬɭɞɟɧɬɨɜ
}
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
Forms, Dialogs, ExtCtrls, StdCtrls, Buttons, Grids;
type
TForm1 = class(TForm)
Panel1: TPanel;
StringGrid1: TStringGrid;
BitBtn2: TBitBtn;
Edit1: TEdit;
Label1: TLabel;
    Ʉɨɦɩɨɧɟɧɬɵ, ɤɨɬɨɪɵɟ ɫɨɞɟɪɠɢɬ ɩɪɢɥɨɠɟɧɢɟ, ɩɟɪɟɱɢɫɥɟɧɵ ɜ ɬɚɛɥɢɰɟ.
ȼ ɬɚɛɥɢɰɟ ɩɪɢɜɟɞɟɧɵ ɫɜɨɣɫɬɜɚ, ɫɤɨɪɪɟɤɬɢɪɨɜɚɧɧɵɟ ɨɬɧɨɫɢɬɟɥɶɧɨ ɡɚɞɚɧ-
ɧɵɯ ɩɨ ɭɦɨɥɱɚɧɢɸ.
 Ʉɨɦɩɨɧɟɧɬ                                ɋɜɨɣɫɬɜɚ
Panel1         Caption – ɨɱɢɫɬɢɬɶ
               Align – alBottom
Edit1, Edit2   Text – ɨɱɢɫɬɢɬɶ
Label1         Caption – ɮɚɦɢɥɢɹ
Label2         Caption – ɪɟɡɭɥɶɬɚɬ
RadioGroup1    Caption – ɩɨɥ
               ItemIndex – 0
               Items – ɦɭɠɫɤ., ɠɟɧɫɤ.
RadioGroup2    Items – ɫɪɟɞɧɢɣ ɛɚɥɥ ɦɚɥɶɱɢɤɨɜ, ɫɪɟɞɧɢɣ ɛɚɥɥ ɞɟɜɨɱɟɤ,
                        ɨɛɳɢɣ ɫɪɟɞɧɢɣ ɛɚɥɥ
               Caption – ɩɪɢɡɧɚɤ ɪɚɫɱɟɬɚ
BitBtn1        Caption – ɡɚɩɢɫɚɬɶ
               Kind – bkOK
BitBtn2        Kind – bkClose
StringGrid1    Align – alClient
               ColCount – 6
               RowCount – 11
               DefaultColWidth – 100
               Options | goEditing – True
Form1          Caption – ɥɚɛɨɪɚɬɨɪɧɚɹ ɪɚɛɨɬɚ ʋ 3
     2. Ɉɡɧɚɤɨɦɶɬɟɫɶ ɫ ɩɪɨɝɪɚɦɦɨɣ.
unit Unit1;
{
   ɇɚɡɧɚɱɟɧɢɟ: ɉɨɞɫɱɟɬ ɫɪɟɞɧɟɝɨ ɛɚɥɥɚ ɤɚɠɞɨɝɨ ɫɬɭɞɟɧɬɚ
   ȼɯɨɞɧɵɟ ɞɚɧɧɵɟ: Ɉɰɟɧɤɢ ɤɚɠɞɨɝɨ ɫɬɭɞɟɧɬɚ
   ȼɵɯɨɞɧɵɟ ɞɚɧɧɵɟ: ɋɪɟɞɧɢɟ ɨɰɟɧɤɢ ɫɬɭɞɟɧɬɨɜ
}
interface
   uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
       Forms, Dialogs, ExtCtrls, StdCtrls, Buttons, Grids;
   type
      TForm1 = class(TForm)
                   Panel1: TPanel;
                   StringGrid1: TStringGrid;
                   BitBtn2: TBitBtn;
                   Edit1: TEdit;
                   Label1: TLabel;
                                   32