Delphi ң ө ә ұ: ң қ ө құ ә ғ қ қ қ ү . ү , құ ү қғ , ң .
ң ұң ү . ғ ң ө ә ә қ қғ ө ә ө ә. қ құ, қ ғ ғ ғ ө.
Aғa aaap ecepe op, қoғa ecei eyiң eeci cpyeaқ құpaap e әicepi aқa:
Қң ң , ұқ (), , , ә ә ү қ. ұ ғң () ө ә :
ә () құ.
қ қ ә , 0 9999 қ ү .
ә ә қғ , қ. ғ ғқ ә ү ә ғ . , NumberLmes btnOpen.
ғ ң ң ө () .
1 ғ қ
() | ң қ қ | ң қғ қ ә | Қ әң | |
Button1, | TButton | Қ | Caption | ң ә |
OnClick | қғ -ә | |||
Label1, Label2, | TLabel | ә , ғ. | Caption | ң ә |
SrtingGrid1 SrtingGrid2 | TSrtingGrid | ғәғ | Name | |
ColCount | ғң . | |||
RowCount | ң . |
ң (class) ә ұғ . Object Pascal - ө, ә ә қ ұғ ұ . ң ғ- , Turbo Pascal ң . Turbo Pascal Delphi- құғғ ұғ. Object Pascal ң ң ұқ ғ Delphi ғқ ө ү ү қғ. Қ қ ң .
|
|
ө ұқғ . қ әү ұқғқ қғ ң ұқғ: қ қғ "^" қғ .
ғ қ ә ұ.
ң қ (ң ).
ө ә ө .
қ ұқғ |
type
TForm1 = class(TForm) { TForm1- TForm ң ұқ - }
{қ ң ө, ә ә қ }
Button1: TButton; {ө}
Button2: TButton; {ө}
L1: TLabel; {ө}
L2: TLabel; {ө}
procedure Button1Click(Sender: TObject); {ә}
procedure FormActivate(Sender: TObject); {ә}
private
{ Private declarations }
public
{ Public declarations }
end;
ғ (record) ұқ, ң ө ғ ,
:
private
FCaption: String; {қ ң ө}
FModified: Boolean; {қ ң ө}
ң ә ғ.
қ ә ө . :
var
Form1: TForm1;
қ ғ құ . ң қ ә қ ң қ ғң қ ұ ғ ү , ң құғ ұ қ , TObject ғ . , ұ қ қғ ң қ ( ү, һң ү ғ құғ , қ ө, қ қ ә .. құғ ). ұ , қ ғ ә . ұ қ, ұ құ , ө ұ қ ұқ ө қ қ ғ қ қғ .
|
|
ү қ :
- (encapsulation),
- (inheritance),
- (polymorphism).
Ә ә ұ ә . құ ә ү ғғ. ә, Object Pascal қ құ ә - ғ ұ. қ ү ә ң ө ғқ ә . ғ ң ө ғқ ә 0 , қ , ұқғ ө - nil ә, ң - ө - Unassigned ә . қ, қ ө құғ Self . қ ү Self ұ, ү .
, ғ қ қ ұғ, ң ғ ғ, ғ ң ұ ә ө . TObject қ ң ә ң ұқ Create (құ) ә Destroy () ә . ұ қ Free ә ғ, ң ( ә ү ғ ?) ә қ Destroy ә қ. құғ , ғ қ ғң ә ғ. ұ Destroy әң Free ә қғ ө .
Ө˲
2.1 ғ
ғ Label1, Label2, StrngGrd1,, StrngGrd2, Button1 . StrngGrd1 ң қң ә ө.
ң ә min max ә ү StrngGrd1 ә StrngGrd2 .
қ ү ( 5).
Begin
Repeat
StringGrid1.Cells[I, j]:=IntToStr(Random(300));
A[i, j]:=StrToInt(StringGrid1.Cells[I, j]);
Until not (a[I, j] in d);
D:=d+[a[I, j]];
End;
5 ң қ қ ғқ
ғ қ ғ ғ . ұ ңmax ә min ң , ң ә қғ ғ ұғ ө .
2.2 ғң ұ
ң - ( 6).
For(i=0;I<n;i++)
For(j=0;j<n;j++)
max=a[0][0] min=a[0][0]
max_i=0 max_j=0
a[i][j] min_i=0 min_j=0
For(i=0;I<n;i++)
For(j=0;j<n;j++)
max<a[i][j] a[ max_i][max_j]=min
a[ min_i][min_j]=max
max=a[i][j]
max_i=i
max_j=j
min>a[i][j]
|
|
For(i=0;I<n;i++)
min=a[i][j]
min_i=i
min_j=j For(j=0;j<n;j++)
ғ a[i][j]
ң
=1
ң
6. ң
-; flowchart -ғ ә қ ү қ ғ ә ә. - әң ү ө.
- ө қ ә (, ұғ ) қ .
ү қ ү әң ғқ - . ,үқ ә . ұ - , ү ғ әң ө.
- ү ғ қ қ ү қ .
Ә, - -ғ , ә ү әң ә, ғ ө ә қ ү ү .
2.3
ә () құ.
қ қ ә , 0 9999 қ ү .
ә ә қғ , қ. ғ ғқ ә ү ә ғ . , NumberLmes btnOpen.
ғ ң ң ө .
2
қ | ә | ||
a:array[1..10,1..10] | қ | 100(2) ң ү | |
I | қ | қ | |
min | ң ң | қ | |
max | ң ң ү | қ | |
n | қ | ||
m | ғ | қ | |
buf | Қ | қ | |
imax | ң ү ң | қ | |
jmax | ң ү ң ғ | қ | |
imin | ң ң | қ | |
jmin | ң ң ғ | қ |