1. ңғ ү қ қ ө қ Repeat
2 ү ү ғ ө ү ө ү қ қ ө қ: Div
3. Қ қ құғ ғ ң TDBGird, Edit, TDBImage
4. rdln(a, b, c); қ қ ң : 1 2 3
5. қ
6. procedure TForm1.DelButtonClick(Sender:TObject); begin Listbox1.Items.Delete(Listbox1.Items.Index); end; қғ өңң ә ө
7. ө қ ә Memo
8. Ә өң ө ғң ң private, protected, public
9. ә Procedure Button1Click (Sender: Tobject);
10. ң ө қ
11. ұ ә ә ғ, ң ү ә ң , ң қ
12. ә қ ү қ ә Locate, Loocup
13. ә ұ With қ қ қ? өң қ ү
14. ұ , Mod 2 = 0
15. ө Compiling ө ү қ ? Tools->Environment Options
16. ғ өң ә қ: x:=0; for i:=4 downto 1 do x:=x+1; writeln(x); 10
17. TSpeedButton ң... ү қ Additional
18. ү < >: < >
19. ң қ ү ү қ қ ң: sqrt (x)
20. EinOutError ғң ()... ғ /ғ қ
21. қ ң ққ ә қ ү өң if P then S, if P then S1 else S2
22. Delphi ғ ү қ қ ө : Integer
23. CheckBox ң Checked қң ә true, ұ өң: ғ
|
|
|
24. Қ ғ ң қ Set relation to < > into <>
25. қ ң әң қ
26. Edit1- Memo1- ө қ ү қ ? Edit1.CopyToClipboard; Memo1.PasteFromClipboard;
27. ғ.bmp қ ө Canvas.COPYMode:=cmSrcCop y;+
28. Delphi ғ Real ө қ : қ
29. for j:= 1 to 3 do for := 1 to 4 do ә қ? 12
30. MoveTo (x,y:integer); (,) ү қ
31. ... ө. ә, , ұқ
32. Reset (f) қ ү
33. ң қ өң ( ң қ) While not eof (f) do ,
34. ғ ө ң қ Caption
35. Windows ң қ-ү ғ StatusBar
36. MedaPlayer , ә қ ғғ ү .
37. BitBtn ғ ң қ Glyph
38. ... Show Modal ә қ ө
39. ө құ ү ң.... қғ OnCalcFields
40. ң ң ө .dpr
41. IntToStr үi Str қ
42. құ Rave Reports
43.... қң ө қ ғ Style
44. StrToFloat St қң қ қ ғ
45. ғ қ ң ғ
Procedure TForm1.Button1Click (Sender: TObject);
type st = record
a1: string[3];
a2: string[20];
a3: string[5];
a4: string[7];
end;
var f: file of st; st: bf; bf: string[8]; k: integer;
begin bf:=InputBox(ң, -, );
AssignFile(f, bf);
Rewrite(f);
with v do
for k:=1 to 3 do
begin
a1:=InputBox(,өi - ,);
a2:=InputBox(,-өi - ,);
a3:=InputBox(,ғ - ,);
a4:=InputBox(,Ұ - ,);
write(f,v);
end;
CloseFile(f); end;
46.ң қ c
47. Қ ғ қғ өңi OnCreate, OnActivate, OnShow
48. ә ң қ қ ү Truncate(f)
49. Delphi ғ қ қ ө : Boolean
50.өi қiң қ CheckBox-ң i-ү ғң ii қ
|
|
|
GrayedState
51. Қғ ә ұ TAnimate
52. ? Delphi-ң ң
53. System ii Copy i s1 қ s2 қ өi
54. procedure TForm1. ButtonlClick(Sender: TObject); begin ListBox1.Items.Add(Edit1.Text); end; қғ өңң ә ң ң ң қ
55. ң қ ө : Var
56. Standart i қ iң қ қ TBitBtn
57. ә қ қ ғ қ ү Checked
58 Delphi ғғ abs (x) ң қ: ң
59. ө ө....өң () ұ Ezerodivide
60. Қ- ү ұ қ FilterOptions, Filtered, Filter
61. қ қ 1)Var a,b:real;2)procedure max(x: real; Var y: real); 3) var c,d: real; 4)begin 5)end; 2
62. . ң ң қ
63. ReadOnly қң ә false , ң ұ ғ ү
64. ғ үң ә қ :=4; For j:=1 tob do x:=J Writeln(X-B+7); 7
65. Arc (x1, y1,x2, y2, x3,y3, x4, y4: integer) (1, 1)-(2, 2)-ұ ғ
66. ә ң ұ <>=TextFile;
67. Ә ү қ ә ү қ ү қ ?
68. (13b + 53c + d):(7a+4) өiiң Delphi үi (13*b + 53*c + d)/ (7*a+4)
69. Delphi- ұ құң ө әii ғ ғ қ i қ Query, Table, DataSource, DBGrid
70. St, k ө ө қғ: Var ST: string[4]; k: integer; k;= Length(st)қ ң қ St ң ңң ұғ
71. -ұ... қ қғ қ ү қ ө қ
72. өi ғ i iii
var ar: array[1..255] of Integer;
i,j: Integer;
begin
for i:= 1 to 255 do
ar[i]:= random(255);
j:= ar[1];
for i:= 1 to 255 do begin
if ar[i] > j then
j:= ar[i]; end; end; i i
73. ғ i қ әi қ
var i, j, m: Integer;
begin
i:= 0; j:= 1;
for m:= 1 to 5 do begin
Inc(i);
j:= j + m;
end;
i:= i + j;
end; 17
74. ө ө қ ү .. қ dispose
75. Program peachat; var x: integer; begin x:=2; writeln(x+1)end. x+1
76. Table ң қ қ қ ө MasterFields
77. Image ң қ қғ ғ қ Picture
78. Canvas.RecTangle (10.10.250.120) ) (10,10) ү (250,120) ү ө ұ
$79. Te Ғ өpici ә ү Table l.Ғlter:='F="'+ ''+""
|
|
|
80. ә ө ә ү ғ қ қ ө Data controls
81. ғ ұқ ө ү қ қ ө ң: Const
82. nommes =5 ,ғ ғ ғ? Case nommes of 12,1,2:writeln (қ 볒); 3,4,5:writeln (ө 쳒); 6,7,8:writeln ( 쳒); 9,10,11: writeln (ү 쳒); end; ө
83. b:=a: ө ә a ә b қ : a: integer; b: real;
84. - ң ү ң қ ғ
85. Secondary Indexes қ...
86. қ
87. ң қ , ұ,
88. ұң қ үiiң ii SELECT <өi iii> FROM <>
89. Rewrite (f) ңғ ғ
90. c ү қ ә ң: Destroy
91. құғ Қ үi қ үi Delphi құ ii ... BDE
92. Edit ә Text
93. ғ ғ құ ү қ ә құ
94. ү ғ ә ү Label1 ғ ө ү ұ ғ ? Label1.Caption:= IntToStr(DayOfWeek (Now));
95. ϳ ң ң қ? .dfm
96. M1 ә M2 . 1:=['','','']; 2=[''] ү :=1*2 қғ. M3 ң. ['A', 'B','C]
97. SQL - cұқ құғ
98. қ ң ? .dcu
99. =14 b=4 ғ, ә =3 ө ң c:= a div b
100. () ұ... ғ ә әү ұ әң ғ
