- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
- 27
- 28
- 29
- 30
- 31
- 32
- 33
- 34
- 35
- 36
- 37
- 38
- 39
- 40
- 41
- 42
- 43
- 44
- 45
- 46
- 47
- 48
- 49
- 50
- 51
- 52
- 53
- 54
Клиентская программа:
unit Unit3;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Unit5, ExtCtrls, ScktComp;
type
mass = array[1..100] of integer;
TForm3 = class(TForm)
Edit1: TEdit;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
Button6: TButton;
Button7: TButton;
Button8: TButton;
Button9: TButton;
Button10: TButton;
Button11: TButton;
Button12: TButton;
Button13: TButton;
Button14: TButton;
Edit2: TEdit;
Label2: TLabel;
Button15: TButton;
Button16: TButton;
Image1: TImage;
Label1: TLabel;
...(В том же духе)
procedure TForm3.Button15Click(Sender: TObject);
begin
q.Delete(h-1);
q.Insert(h-1,''+Edit2.Text+'');
q.SaveToFile('otv\otvet.txt');
if h=1 then form3.Shape1.Brush.Color:=clLime;
if h=2 then form3.Shape2.Brush.Color:=clLime;
if h=3 then form3.Shape3.Brush.Color:=clLime;
if h=4 then form3.Shape4.Brush.Color:=clLime;
if h=5 then form3.Shape5.Brush.Color:=clLime;
if h=6 then form3.Shape6.Brush.Color:=clLime;
if h=7 then form3.Shape7.Brush.Color:=clLime;
if h=8 then form3.Shape8.Brush.Color:=clLime;
if h=9 then form3.Shape9.Brush.Color:=clLime;
if h=10 then form3.Shape10.Brush.Color:=clLime;
if h=11 then form3.Shape11.Brush.Color:=clLime;
if h=12 then form3.Shape12.Brush.Color:=clLime;
if h=13 then form3.Shape13.Brush.Color:=clLime;
if h=14 then form3.Shape14.Brush.Color:=clLime;
e:=StrToInt(Edit2.Text);
end;
Код из серии "Дипломные работы бакалавров".
31 страницу диплома (из 56 страниц) занимает листинг.
kgm-rj 13.11.2015 17:44 # +3
kegdan 13.11.2015 18:00 # 0
kgm-rj 13.11.2015 18:08 # 0
dxd 13.11.2015 19:33 # +3
inkanus-gray 13.11.2015 18:08 # +3
kgm-rj 13.11.2015 18:15 # +3
kegdan 13.11.2015 19:11 # +1
inkanus-gray 13.11.2015 19:37 # +2
Abbath 13.11.2015 18:20 # +2
kgm-rj 13.11.2015 18:23 # +3
kegdan 13.11.2015 19:11 # +3
Abbath 13.11.2015 19:12 # +3
bormand 13.11.2015 19:16 # +4
kegdan 13.11.2015 19:20 # +2
guest 13.11.2015 21:35 # +4
Abbath 15.11.2015 02:37 # +4
inkanus-gray 15.11.2015 02:53 # +5
Паскаль. Генерики. STL.
Дело Мичурина живёт?