Исходники и листинги ::: Delphi ::: Квадрат числа
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
  unit Unit1;
 
  interface
 
  uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, ComCtrls, ExtCtrls, Grids, StdCtrls;
 
  type
    TForm1 = class(TForm)
      ButtonRND: TButton;
      ButtonCalc: TButton;
      ButtonExit: TButton;
      Label1: TLabel;
      EditRow: TEdit;
      GridOut: TStringGrid;
      Bevel1: TBevel;
      Bevel2: TBevel;
      UpDown: TUpDown;
      procedure ButtonExitClick(Sender: TObject);
      procedure UpDownClick(Sender: TObject; Button: TUDBtnType);
      procedure ButtonCalcClick(Sender: TObject);
      procedure ButtonRNDClick(Sender: TObject);
      procedure FormCreate(Sender: TObject);
      procedure EditRowKeyDown(Sender: TObject; var Key: Word;
        Shift: TShiftState);
      procedure EditRowKeyUp(Sender: TObject; var Key: Word;
        Shift: TShiftState);
      procedure GridOutSetEditText(Sender: TObject; ACol, ARow: Integer;
        const Value: String);
    private
      { Private declarations }
    public
      { Public declarations }
    end;
 
  var
    Form1: TForm1;
 
  implementation
 
  {$R *.dfm}
 
  procedure TForm1.ButtonExitClick(Sender: TObject);
  begin
  Form1.Close;
  end;
 
  procedure TForm1.UpDownClick(Sender: TObject; Button: TUDBtnType);
  begin
  GridOut.RowCount :=UpDown.Position+1;
  end;
 
  procedure TForm1.ButtonCalcClick(Sender: TObject);
  var V,f:integer;
  begin
    For f:=1 to gridOut.RowCount do
  &nbsp;&nbsp;if GridOut.Cells[0,f]<>'' then begin
  &nbsp;&nbsp;V:= StrToInt( GridOut.Cells[0,f] );
  &nbsp;&nbsp;GridOut.Cells [1,f]:=IntToStr( Sqr( V) )
  &nbsp;&nbsp;End
  &nbsp;&nbsp;Else
  &nbsp;&nbsp;GridOut.Cells[1,f]:='Ошибка';
  end;
 
  procedure TForm1.ButtonRNDClick(Sender: TObject);
  var f:integer;
  begin
  For f:=1 to GridOut.RowCount do
  GridOut.Cells[0,f] :=IntToStr(Random(21)-10);
  ButtonCalcClick(Sender);
 
  end;
 
  procedure TForm1.FormCreate(Sender: TObject);
  begin
   GridOut.Cells[0,0]:='x';
   GridOut.Cells[1,0]:='y(x)=x^2';
   Randomize;
   UpDown.Position:=3;
   UpDownClick(Sender, btNext);
  end;
 
  procedure TForm1.EditRowKeyDown(Sender: TObject; var Key: Word;
  &nbsp;&nbsp;Shift: TShiftState);
  begin
  If Key=13 Then UpDownClick(Sender,btNext);
  end;
 
  procedure TForm1.EditRowKeyUp(Sender: TObject; var Key: Word;
  &nbsp;&nbsp;Shift: TShiftState);
  begin
  if EditRow.text='' then begin
  EditRow.Text:='1';
  EditRow.SelStart:=0;
  EditRow.SelLength:=1;
  end;
  end;
 
  procedure TForm1.GridOutSetEditText(Sender: TObject; ACol, ARow: Integer;
  &nbsp;&nbsp;const Value: String);
  begin
  ButtonCalcClick(Sender);
  end;
 
  end.
<<< Предыдущая работа

Вернуться в галерею исходников 		Квадрат числа
Автор: Popkoff*
Город: Тогучин
 Дата: 16.01.2007  14:37
Комментариев: 0
Просмотров: 148
Оценка: 0 (0|0|0|0|0) [0]
Вернуться на главную
Авторский комментарий к работе: Таблица квадратов чисел
Вы не можете оценивать

КОММЕНТАРИИ К РАБОТЕ:
Нет комментариев