, , , ; , , .. .. , , .
:
1. . , . , , , , ;
2. . , , . , , , ;
3. . , , . , ;
4. , , . , , , ;
5. . , , , , ;
6. , .
, . -, , , 8 :
1. . . . : () ( ).
|
|
|
2. , . , , , . , , , .
3. . .
4. . , . , .
5. . , , , .
6. . , ( , ).
7. . , .
8. , . , , , .
, , . , . , , . , , , . , . , . ( ).
, , , , , , , .
, , , , , - ...
|
|
|
... .
: 20 +.
: , . , ?
1.
1. , (. )
---------------------------------------------------------------------------------
2.
2. ,
--------------------------------------------------------------------------------
3. , , ,
3. ,
-------------------------------------------------------------------------------
4. (, , , ..)
4. , ,
----------------------------------------------------------------------------------
5. - ,
5. ( , )
---------------------------------------------------------------------------------
6. ( - )
6. ( ) - (, , )
----------------------------------------------------------------------------------
7. , ( )
7. - ( ) , , .
------------------------------------------------------------------------------
8., ( , ..)
8. , ( , )
-------------------------------------------------------------------------------
9. , (, ),
9. , ,
------------------------------------------------------------------------------
10.
10. ,
------------------------------------------------------------------------------
11.
11., (, , , ..)
------------------------------------------------------------------------------
12. , , , , ,
12. , , (, , )
------------------------------------------------------------------------------
13.,
13.,
-----------------------------------------------------------------------------
14., ,
14. , , ..
-------------------------------------------------------------------------------
15. , ( )
15. - , , .
------------------------------------------------------------------------------
16.
16., , ,
|
|
|
-----------------------------------------------------------------------------
17. ,
17. ,
------------------------------------------------------------------------------
18. , , , ..
18. ,
--------------------------------------------------------------------------
19. , (, ),
19.3 , ,
-------------------------------------------------------------------------
20. , ,
20. ( .)
| 1 | 2 | |||
| 4 | 5 | |||
| 6 | 7 | |||
| 8 | ||||
| 9 | ||||
| 10 | ||||
| 11 | 12 | 13 | ||
| 14 | 15 | |||
| 16 | 17 | |||
| 18 | ||||
| 19 | ||||
| 20 |
, + 5- . 5- . , +. :
1. - , , ;
2. - ;
3. - , , ;
4. - , , , ;
5. - .
. , , 20-30 . . , . , .
. .
( 3). . , . . .
3.
, - . ( 4).
4.
, . , , ( 5).
|
|
|
5.
. . . ( 6).
6.
, . ( 7).
7.
, ( 8).
8.
( 9, 10). .
9.
10.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, jpeg, ExtCtrls, StdCtrls;
type
TForm1 = class(TForm)
Image1: TImage;
Image2: TImage;
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
N9: TMenuItem;
N10: TMenuItem;
Image3: TImage;
Image4: TImage;
Image5: TImage;
Label1: TLabel;
procedure N10Click(Sender: TObject);
procedure N6Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure N7Click(Sender: TObject);
procedure N3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses Unit2, Unit3, Unit5, Unit4;
{$R *.dfm}
procedure TForm1.N10Click(Sender: TObject);
begin
close;
end;
procedure TForm1.N6Click(Sender: TObject);
begin
form2.show;
Form1.Hide;
end;
procedure TForm1.N2Click(Sender: TObject);
begin
form3.show;
Form1.Hide;
end;
procedure TForm1.N5Click(Sender: TObject);
begin
form5.show;
Form1.Hide;
end;
procedure TForm1.N7Click(Sender: TObject);
begin
Showmessage(' Delphi 7. 1.0');
end;
procedure TForm1.N3Click(Sender: TObject);
begin
form4.show;
Form1.Hide;
end;
end.
unit Unit3;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, ComCtrls, jpeg, ExtCtrls;
type
TForm3 = class(TForm)
PageControl1: TPageControl;
TabSheet1: TTabSheet;
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form3: TForm3;
var a,b,c,d,e,mab,mcd,max,mae:Integer;
implementation
uses Unit1;
{$R *.dfm}
procedure TForm3.BitBtn1Click(Sender: TObject);
begin
form1.show;
Form3.Hide;
end;
procedure TForm3.BitBtn2Click(Sender: TObject);
var a,b,c,d,e, mab,mcd,max,mae:Integer;
procedure max2(x,y:integer; var z:integer);
begin if x>y then z:=x else z:=y;
end;
begin
max2(a,b,mab);
max2(c,d,mcd);
max2(mab,mcd,max);
max2(max,e,mae);
label13.Caption:='-';
label13.Caption:='-';
label13.Caption:='-';
label13.Caption:='-';
label13.Caption:='- ';
label13.Caption:='htp='+inttostr(mae);
end;
procedure TForm3.FormActivate(Sender: TObject);
begin
a:=0; b:=0;c:=0;d:=0;e:=0;
end;
procedure TForm3.Button1Click(Sender: TObject);
begin
if ((((a>=b)and (a>=c)) and (a>=d))and (a>=e)) Then label14.Caption:='- ';
if ((((b>=a)and (b>=c)) and (b>=d))and (b>=e)) Then label14.Caption:='- ';
if ((((c>=b)and (c>=a)) and (c>=d))and (c>=e)) Then label14.Caption:='- ';
if ((((d>=b)and (d>=c)) and (d>=a))and (d>=e)) Then label14.Caption:='- ';
|
|
|
if ((((e>=b)and (e>=c)) and (e>=d))and (e>=a)) Then label14.Caption:='- ';
//label13.Caption:='a='+inttostr(a)+' b='+inttostr(b)+' c='+inttostr(c)+' d='+inttostr(d)+'e='+inttostr(e);
label14.visible:=true;
//label13.visible:=true;
end;
end.
, .
Delphi- : .
.
.
, Properties .
, Events .
, . , . Delphi , On.
begin... end () Object Pascal. .
.
Delphi , . Windows , , .
, . ( File Save) , Delphi, , , . , , , . , , , .
1. . . Delphi .:, ; 1999.
2. . Delphi 2002
3. .. . , , "", 1998
4. . - 1992.
5. ... ...... Windows.- ; 2001
6. ., . Delphi- 1996.
7. ., ., . Delphi 1995.
8. Delphi 6: . , 2002
9. ., . DELPHI : , 2005.
10. . . DELPHI 6: : , 2002.
11. .. Delphi 5. 2000.
