Delphi. ???? 6.

1
???????????? ? ?????????? ???????????

• Delphi. ???? 6.

2
???? ????

• 1. ??????? ????????????.
• 2. ????, ???????? ? ????????? ???????????.
• 3. ????? ???????????.
• 4. ???????? ?????? ????? ????????????? ?
  ?????????? ?? ??????????.
• 5. ?????????? ??????????? ? ???????????
  ???????????? ?????????? (DLL).
• 6. ????? ??????????? ?? DLL.
• 7. ?????? ?????????? ??????????? ? DLL ? ?? ?????
  ? ???????? ?????????.

3
1. ??????? ????????????.

• ??? ??????? ?????? ?????, ????? ?????????
  ??????????? ?????????? ?? ????? ? ??? ??
  ?????????? ??? ????????? ???????? ??????. ???
  ?????????? ???????????????? ? ??????
  ???????????????? ????? ????????? ??????????? ?
  ???? ???????????.

4
1. ??????? ????????????.

• ???????????? ??? ?????????????????? ??????????,
  ??????????? ????? ???????, ??? ?? ????? ???????
  ?? ????? ?? ????? ?????? ?????????, ??????? ??
  ???????????? ????????? ?, ??????? ?? ???,
  ????????? ?????????, ?????????? ?????? ??????????
  (????????) ?????????.

5
2. ????, ???????? ? ????????? ???????????.

• ? ????? ??????? ??????? ??? ???? ???????????
  ????????? (Procedure) ? ??????? (Function).
• ???????, ? ??????? ?? ?????????, ???????????
  ?????????? ? ????? ?????? ????????? (????
  ???????? ????????????? ????).

6
2. ????, ???????? ? ????????? ???????????.

• ????????? ?????????
• Procedure ???(?????? ?????????? ??????????)
• var //?????? ???????? ????????? ??????
• begin
• //?????????????????? ????? ??????????
• end
• ????????? ???????
• Function ???(?????? ?????????? ??????????)
  ???
• var //?????? ???????? ????????? ??????
• begin
• //?????????????????? ????? ??????????
• Result lt?????????gt
• end

7
3. ????? ???????????.

• ????? ????????? ?????????????? ?????????
  ??????????
• ???(?????? ??????????? ??????????)
• ????? ??????? ?????????????? ?????? ?????????
• y ???(?????? ??????????? ??????????)

8
4. ???????? ?????? ????? ????????????? ?
?????????? ?? ??????????.

• ???????? ?????? ?????????????? ????? ?????????.
• ?????????? ????????? ?????? ???????????? ?????
  ???? ????????? ??????????????
• ?????????-????????,
• ?????????-??????????.

9
4. ???????? ?????? ????? ????????????? ?
?????????? ?? ??????????.

• ?????????-???????? ??????????? ?????????
  ??????? ???(a, b ???1 c, d ???2 ...)
• ??? ??????? ??????????? ?????????????????
  ?????? ???????????? ????????????? ??????????????
  ?????? ??????. ??? ?????? ????????????,
  ?????????? ????????? ???????????? ????????? ? ???
  ?????? ??????, ????? ???? ???????????
  ????????????. ??? ???? ???????? ??????, ???
  ????????? ??? ??????????? ????????, ??
  ??????????. ??????????? ?????????? ????? ????
  ?????????, ?????????? ??? ??????????????
  ?????????.

10
4. ???????? ?????? ????? ????????????? ?
?????????? ?? ??????????.

• ??????????????????? ??????????? ?????????
  ???????
• ???(Var a, b ???1 Var c, d ???2 ...)
• ? ???? ?????? ??????????? ?????????? ????? ????
  ?????? ??? ??????????. ??? ?????? ???????????
  ?????????? ????? ?????? ??????????, ? ???????
  ????????? ??????????? ????????, ? ???
  ???????? ???????????? ??? ???? ???????.
  ??????? ????? ?????? ???????????? ? ??????
  ???????????? ????????? ??? ????????????? ?????
  ?????????? ?????????.

11
4. ???????? ?????? ????? ????????????? ?
?????????? ?? ??????????.

• ??????
• type vek array of integer
• procedure sab(n byte a, b vek var s
  integer)
• Var i byte
• begin
• s0
• for i1 to n do
• s s aibi
• end
• Var x, y vek sk integer
• begin
• //???? ???????? x, y
• sab(5,x,y,sk) //????? ?????????
• //????? ?????????? sk
• end

12
5. ?????????? ??????????? ? ???????????
???????????? ?????????? (DLL).

• ??????
• Var x, u, z real
• Function sqxy(x, y real) real
• begin
• if xlt0 then x0
• if ylt0 then y0
• Result sqrt(x) sqrt(y)
• end
• begin
• x -0.5
• u 4
• z sqxy(x, u) //????? ???????
• z sqxy(sin(u) x, 1.86)
• end

13
5. ?????????? ??????????? ? ???????????
???????????? ?????????? (DLL).

• ????? ???????????? ???????????? ?????? ?????????
  ? ????????? ??????????? ??????, ??????????? ?
  ???? ??????????? ???????????? ?????????? (DLL).
• DLL ???????????? ????? ????? ? ?????????????????
  ??????????? ?????, ??????? ????? ??????????????
  ?????????? ????????????.
• DLL ???????????? ?? ???? ?????????????, ?.?.
  ??????????? ? ?????? ?????? ?????, ????? ? ???
  ?????????? ?????-???? ???????.

14
5. ?????????? ??????????? ? ???????????
???????????? ?????????? (DLL).

• ?????????? DLL ????????? ???????? ????
  ???????????
•  ??????????? ?????? ???????????? ????? ??????????
  ? ?????????? ?? ???????
•  ??????? DLL ????? ???????????? ?????????
  ????????? ????????????
•  ?????????? ????????????? ????????????
  ??????????? ?? ???????????? ???????
•  ???????? ????????? ? DLL ?? ???????
  ?????????????? ????? ??????? 
•  ???? DLL ????? ???????????? ?????????,
  ?????????? ?? ?????? ??????.

15
5. ?????????? ??????????? ? ???????????
???????????? ?????????? (DLL).

• ?????????????????? ???????? ??? ???????? DLL
• ??????? DLL-?????? ????????
• File\New\Other \DLL Wizard
• ???????? ??? ????????? ? ??????? ? ????,
  ????????????? ????????????? ????????? ?????
  ??????????
• (??. ??????)

16
5. ?????????? ??????????? ? ???????????
???????????? ?????????? (DLL).

• ????????? DLL-??????
• ??????????????? DLL-?????? ????????
• Project\Compile lt??? ???????gt
• ? ?????????? ???????? ?????????? ????????? ????
  lt???gt.DLL ??? ? ???? ????????? DLL-??????????.
• ??????????? ????????? DLL-???? ? ????? ? ????????
  ???????? ?????????.

17
6. ????? ??????????? ?? DLL.

• ??? ????????????? ??????????? ?? DLL-?????????? ?
  ???????? ????????? ?????????? ?????????????
  ???????????? ? ???????????? ????? ????????????
  ??????, ??????
• Function Count_Chet(V Vektor) integer
  stdcall external 'ArrayLib'
• Procedure Sum_Col(k integer var M Matrica)
  stdcall external 'ArrayLib'