.


:

:



,



( , )

:

































 

 

 

 
FAQ

' '.

12345 ⇒



̲

.................................................................................................................  
1. ....................................................................................................  
2. ............................................  
3. ...  
4. ..  
5.  
6. ...................................................................................................  
7. ()  
8. ' () Matlab Mathematica ' 腅...  
...........................................  
...............................................................  

, .

"-", ' ( ). ' , - , , . .

- . , .

" " .

. , , .

, . , , , , , , . , , . .

"" , ' . - , , ' . , :

1) , ;

2) ;

3) , '.

, .

"" 6.040203 "Գ" '- .

 

 

1.

 

. .

. Delphi 7 c , , " ".

. . . , .

, . . , , .

' . , , , . , , 9. () ; , , .

, ' , , . , , , .

, . , , .

, , , - , , .

, , , .

, ᒺ Form, Label, Mainmenu. ᒺ Form :

AutoScroll True, False
BorderStyle bsSizeable ( ), bsDialog, bsNone ( )
Width, Height 530, 224 ( )
Font ,
HorizScrollBar VertScrollBar
Icon , (None) Delphi, *.ico
Name Form1 ()
Caption
Color ClGreen, clInfoBk ( ) $004525B1 (... . )
Cursor CrDrag, crCross, crHelp, crArrow ( )
Enabled ᒺ True, False
Left, Top 200, 108 ( )
WindowState wsNormal, wsMaximized, wsMinimized

' Label, Image Button. ᒺ Label . ' :

Align ᒺ, () alBottom, alClient, alLeft, alNone, alTop
Alignment TaCentre, taLeftJustify, taRightJustify
AutoSize True, False
Visible ᒺ True, False
WordWrap True, False

ᒺ Image ᒺ *.bmp, *.wmf, *.emf, *.ico . Align, Width, Height, Name, Cursor, Enabled, Left, Top, Visible, ' Image :

Center , True, False
Picture
Stretch ᒺ True, False
AutoSize ᒺ True, False

ᒺ Button . ᒺ Button , : Visible, Width, Height, Font, Color, Name, Caption, Cursor, Enabled, Left, Top.

DELPHI ' Mainmenu.

ᒺ Items. ϳ & Caption, Shortcut.

Name ' '. Break , . : mbNone ( ), mbBarBreak mbBreak , (mbBarBreak) (mbBreak). Checked = true, , , . Radotem true, , , Groupndex. Groupndex 0.

Enabled = false, . Vsble = false, .

Btmap . .

 

1. " " :

 

ճ

' '.

2. . WindowState=wsMaximized.

3. ᒺ Image1 (). Image Q Additional .

4. Align=alClient, Stretch=True.

5. Picture ᒺ Image1.

6. . F ile Þ Sa v e All ( ) Save All . , (Save Unit1 As), 6 , . ' . Save Project1 As ' . , .

7. ᒺ Label1 Label9.

8. Caption ᒺ Label.

9. ᒺ Label1 Label9. Transparent=True.

10. Form2.

11. Button1. ' '. Button1 Form1 Hide Form2, Show.

procedure TForm1.Button1Click(Sender: TObject);

Begin

Form1.Hide;

form2.Show;

end;

12. (File Þ Save All).

13. .

14. - . P roject Þ B uild All.

15. .

. .

2. " " :

ճ

1. Delphi .

2. Form2 .

3. ' MainMenu.

4. : , , , .

5. Form3, Form4, Form5.

6. 1-3 , ShowModal.

procedure TForm2.N1Click(Sender: TObject); { N1 , , } begin Form3.ShowModal { } end; { }

2-3

procedure TForm2.N2Click(Sender: TObject);

Begin

Form4.ShowModal

end;

procedure TForm2.N3Click(Sender: TObject);

Begin

Form5.ShowModal

end;

7. , Close.

procedure TForm2.N4Click (Sender: TObject); { N4 } begin Close; form1.close { } end; { }

8. .

9. ᒺ Image1 (). Image Q Additional.

10. Align=alClient, Stretch=True.

11. Picture ᒺ Image1.

12. ᒺ Label1 Label2.

13. Caption ᒺ Label. ϳ , .

14. ᒺ Label1 Label2. Transparent=True.

15. .

16. .

 

1. ?

2. ?

3. ?

4. ?

5. ?

6. Stretch?

7. ?

8. 2-

a. Shift + à

b. Alt + à

c. Ctrl + à.

9. Bitmap MainMenu :

a. , .

b. - .

c. ..

2

. .

. , . ϳ .

, , , , , .

. , : , . , , , , , , , , , , , .

ϳ , , , -. :

1. .

2. .

3. .

4. , .

, ' 30 . ' . , .

, , ' . ' ' .

. , , ( ). , . , ' ' () . , , Windows. , .

, ( ), '. - .

- , , , , .

, , - .

, :

1. (' ).

2. , ' , .

. () :

1. ' Mainmenu.

2. ' Popupmenu.

3. ' Label.

4. ' Edit.

5. ' Button.

6. ' Memo.

7. ' ListBox.

8. ' OpenDialog.

9. ' SaveDialog.

10. ' RadioGroup.

ճ

1. .

2. .

3. . ', .

4. .

5. .

1. ?

2. ?

3. - ?

4. ?

5. ?

6. ?

7. ?

 

3.

. .

 

. ᒺ- Delphi 7 , ( 2).

 

'- , :

1. .

2. , .

3. , , , .

4. - , , .

5. - .

6. , .

7. () , : , , , .

8. .

, , :

1. - , ', , , .

2. , , , .

3. ' .

4. , .

5. .

6. , :

, ; , ; ; ; .

7. , , .

8. .

9. .

10. , .

11. ³ , .

12. .

13. .

, txt ᒺ mo.

ᒺ mo . mo :

HideSelection True ( ), False ()
Lines ( )
MaxLenght 50 - , 0 - -
ScrollBars ssNone (), ssHori-zontal (), ssBoth ()

Lines ᒺ Memo , ᒺ .

. , ', :

 

ճ

1. Delphi .

2. , ', .

3. ' '.

4. WindowState = wsMaximized..

5. ' Panel1 Standart ( ' Panel1 (Align = alBotton).

6. ' Panel1 Button1 ' '.

7. Button1 :

procedure TForm3.Button1Click(Sender: TObject);

Begin

Form3.Close { Form3}

end;

8. ' Memo1. : Align = alClient; ScrollBars= ssVertical; ReadOnly=True.

9. OnActivate , .

procedure TForm3.FormActivate(Sender: TObject);

var s: string;

Begin

s:='' ';

Memo1.Lines.LoadFromFile(s);

end;

10. (File Þ Save All).

11. .

12. .

 

1. ?

2. ?

3. ?

4. Lines ᒺ Memo?

5. Memo1.Lines.LoadFromFile(s)?

6. Memo1.Lines.Add( )?

7. ReadOnly Þ True ᒺ Memo?

8. ?

9. ?

10. ?

 

4

: .

: ( 2) .

i i - i i. , , i ᒺ i.

' ' . ; ; (, ).

' () :

;

' ;

;

' , .

. . ϳ 񳺿 , .

. , .

, , , , , . , , , , ', .

:

1. "", , , ', ;

2. , , ', ( );

3. , , , ', .

, ' :

1. .

2. .

3. .

4. '.

5. .

:

1. ( ) .

2. B ( ) .

3. ( ) .

4. D ( ) , .

.

' . . , N. N, :

1) (1; n), n N. , M n N. , A, B C ;

2) - (n; n), n M N. ³ M N . - , D.

' : .

:

1) , ;

2) , ' ; .

, , (, ), , : . .

A , .

.

:

- .

- .

- .

, , , , . , .

. , .

. , , \. . , . . . , , , .

:

.

,0

,0

,1

, .

, , , . :

Delphi?

1. ShowMessage()

2. Writeln()

3. Sleep()

1

 

. ( 2). .

ճ

1. ( 2) 10 , .

2. .

3. .

4. .

5. .

 

1. ?

2. ?

3. ?

4. ?

5. ?

6. ?

 

5.

. .

. , Delphi.

 

Delphi. , :

1. , , .

2. , .

3. , .

4. .

5. , , .

6. , , .

7. .

8. ' . , .

9. , . Delphi .

10. , , , .

11. "" , : , ; .

' RadioButton RadioGroup. ᒺ RadioButton, RadioGroup . ᒺ RadioButton :

Checked True (), False ( )
TabOrder ᒺ Tab 0 (), 4 ()
TabStop ᒺ True ( ), False ( )

 

 

. , , , ( 4). ³ :

 

ճ

1. Delphi .

2. .

3. (Caption) ' '.

4. ' Panel1 Standart. ' Panel1 (Align=alTop, Caption= '' ). ' Panel1 ( 4).

5. ' RadioGroup1 Standart. nfrs : Align=alTop, Caption=' '. : RadioButton1, RadioButton2, RadioButton3 Standart. ' RadioButton1, RadioButton2, RadioButton3 . ' RadioButton1, RadioButton2, RadioButton3: Checked= False,Width=500.

6. ᒺ GroupBox1 Standart. : Align=alLeft, Caption= ''.

7. ' Label1 Label4. Caption: Label1 ''; Label2 ' '; Label3 ''; Label4 '' . ' Label3 , ' Label4 .

8. . ᒺ SpeedButton1 Additional Delphi. , : bmp. ᒺ SpeedButton1: Caption= '& '; Enabled= False; Glyph= 'C:\ProgramFiles|Borland|Delphi x.0\Images\Buttons\arrow3D.bmp'.

9. (File Þ Save All). :

', , (Timer), (Gauge ProgressBar) .

10. 䳿 OnActivate.

Var

Form4: TForm4;

TestData: array [1..100,1..5] of string;

QCount,AGood,CurTrue,i: i nteger;

 

procedure TForm4.FormActivate(Sender: TObject);

var F: TextFile;

s: string;

Begin

s:='' ';

AssignFile(F,s);

Reset(F);

i:=1;

while (not eof(F)) do

begin

Readln(F, TestData[i,1]);

Readln(F, TestData[i,2]);

Readln(F, TestData[i,3]);

Readln(F, TestData[i,4]);

Readln(F, TestData[i,5]);

i:=i+1;

end;

CloseFile(F);

QCount:=i-1;

AGood:=0;

Label4.Caption:=IntToStr(AGood);

Label3.Caption:='1/'+IntToStr(QCount);

Panel1.Caption:=TestData[1,1];

RadioButton1.Caption:=TestData[1,2];

RadioButton2.Caption:=TestData[1,3];

RadioButton3.Caption:=TestData[1,4];

CurTrue:=StrToInt(TestData[1,5]);

i:=1;

end;

11. SpeedButton1:

procedure TForm4.SpeedButton1Click(Sender: TObject);

var nVidpovid: integer;

Begin

if RadioButton1.Checked then nVidpovid:=1

else if RadioButton2.Checked then nVidpovid:=2

else nVidpovid:=3;

if nVidpovid=CurTrue then AGood:=AGood+1;

i:=i+1;

if i<=QCount then

Begin

Label4.Caption:=IntToStr(AGood);

Label3.Caption:=IntToStr(i)+'/'+IntToStr(QCount);

Panel1.Caption:=TestData[i,1];

RadioButton1.Caption:=TestData[i,2];

RadioButton2.Caption:=TestData[i,3];

RadioButton3.Caption:=TestData[i,4];

CurTrue:=StrToInt(TestData[i,5]);

RadioButton1.Checked:=FALSE;

RadioButton2.Checked:=FALSE;

RadioButton3.Checked:=FALSE;

SpeedButton1.Enabled:=FALSE;

Panel1.SetFocus

end

Else

Begin

Label4.Caption:=IntToStr(AGood);

ShowMessage( . : '+IntToStr(AGood));

Form4.Close;

end;

end;

12. RadioButton1, RadioButton2, RadioButton3 :

procedure TForm4.RadioButton1Click(Sender: TObject);

Begin

SpeedButton1.Enabled:=TRUE;

end;

 

procedure TForm4.RadioButton2Click(Sender: TObject);

Begin

SpeedButton1.Enabled:=TRUE;

end;

procedure TForm4.RadioButton3Click(Sender: TObject);

Begin

SpeedButton1.Enabled:=TRUE;

end;

13. (File Þ Save All).

14. .

 

ϳ ' .

1. ' ?

2. ?

3. ᒺ ?

4. ?

5. ?

6. close?

7. & .

8. assignfile(f, 'informatyka.txt')?

9. Reset(f)?

10. ?

11. ?

var

TestData: array [1..100,1..5] of string;

QCount, AGood, CurTrue, : integer;

 

 

6

. .

. ᒺ- Delphi 7 c .

 

peaa . , .

, , . .

. . :

, : , , , , .

ϳ ( ), , .

' Chart. :

procedure TfRez1.Button2Click(Sender: TObject);

Begin

Table1.Insert;

Table1Prizv.Text:=fPrizv.Edit1.Text;

Table1Imja.Text:=fPrizv.Edit2.Text;

Table1Tema.Text:=fPrizv.Edit4.Text;{ Nazva_temi;}

Table1KilkistPrav.Value:= StrToFloat(fTest.Label2.Caption);

Table1KilkistNeprav.Value:= StrToFloat(fTest.Label5.Caption);

Table1Otsinka.Value:=StrToFloat(fTest.Label6.Caption);

Table1Data.Text:= DateToStr(Date);

Table1.Post;

end;

 

. :

ճ

1. Delphi Project1_PIB.dpr.

2. (Caption) .

3. BorderStyle bsDialog.

4. BitBtn. Kind=bkClose.

5. ' Label1-Label5. Caption : Label1 ' '; Label3 ' '; Label2 ''; Label4 ''; Label5 '' . ' Label2 , ' Label4 , Unit4. ' Label5 .

6. implementation Unit5 :

uses Unit4;

7. 䳿 OnActivate:

procedure TForm5.FormActivate(Sender: TObject);

Begin

Label2.Caption:=IntToStr(QCount);

Label4.Caption:=IntToStr(AGood);

If AGood<=QCount/2 then Label5.Caption:='!!!'

else if AGood<=3/5*QCount then Label5.Caption:='!!!'

else if AGood<=4/5*QCount then Label5.Caption:='!!!'

else if AGood<QCount then Label5.Caption:=' !!!'

else Label5.Caption:='³!!! !!!';

end;

8. (File Þ Save All).

9. .

1. ' Label?

2. '?

3. ?

4. ?

5. Visible ' Label?

6. 2- ?

Shift + à

Alt + à

Ctrl + à.

7. ScrollBars?

sbBoth

ssBoth

ccBoth.

8. Bitmap ' MainMenu :

, .

- .

.

9. ?

Font

Color

Cursor.

10. ¢?

Name

Caption

Text.

7

. ().

. . .

 

() , . - , . . , . ' , , , . .

, '. () ' ' , '. ³ '. . , ' , . . .

, -̔. , () ', .

' : ; ; .

.

, , ( ). , ( ).

', , . , ' .

( inter ) , "-". , , , . , .

, . , , , . ,


12345 ⇒


:

: 2016-12-18; !; : 466 |

:

:

: , .
==> ...

1360 - | 1311 -


© 2015-2024 lektsii.org - -

: 0.535 .