,  , Delphi

 
 
 4.60/5:  :  - 5,   - 4.60
Faither
0 / 0 / 0
: 19.12.2009
: 15
1

!

29.12.2009, 18:51. 817. 16
( )





Delphi
1
2
3
4
5
6
7
8
9
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
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, Menus, ComCtrls;
 
type
  TPrograma = class(TForm)
    ListBox1: TListBox;
    L1: TLabel;
    L2: TLabel;
    BitBtn1: TBitBtn;
    Edit3: TEdit;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N2: TMenuItem;
    N6: TMenuItem;
    StatusBar1: TStatusBar;
    procedure FormShow(Sender: TObject);
 
    procedure Button2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure Edit3KeyPress(Sender: TObject; var Key: Char);
    procedure N5Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure ListBox1Click(Sender: TObject);
    procedure ListBox1DblClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Programa: TPrograma;
 
implementation
 
uses Unit2, Unit3, Unit4;
 
{$R *.dfm}
type Tdic = record
 Engword : string [30];
 Ukrword : string [30];
 end ;
var Eng,Ukr : array [1..10] of string;
var FDic : textfile;
n : integer = 0 ;
EU : Boolean = true;
 
procedure TPrograma.FormShow(Sender: TObject);
var dor,k :integer ;
rjadok : string;
begin
Illumination.ShowModal;
AssignFile (FDic, 'Dictionary.txt');
Reset (FDic) ;
while not Eof (FDic) do
begin
n := n+1;
readln (Fdic, rjadok);
dor:= Pos ('=', rjadok);
Eng [n] := Copy (rjadok , 1,dor-1);
Ukr [n] := Copy (rjadok,dor+1,100);
end;
closefile (Fdic);
//      
for k:=1 to n do
ListBox1.Items.Add(Eng[k]);
 
StatusBar1.Panels[0].Text:=Timetostr(now);
StatusBar1.Panels[1].Text:=datetostr(now);
end;
 
 
 
procedure TPrograma.Button2Click(Sender: TObject);
var slovo : string ;
     i : integer ;
     Yes : Boolean;
begin
slovo := Edit3.Text ;
Yes := False ;
for i := 1 to n do
if Eng [i] = slovo then
begin
Pereklad.Show;
Pereklad.Label1.Caption:= Ukr[i];
Yes := True ;
break;
end else
if Ukr [i] = slovo then
begin
Pereklad.Show;
Pereklad.Label1.Caption:= Eng[i];
Yes := True ;
break;
end;
if not Yes then
ShoWmessage ( ' ') ;
end;
 
 
 
procedure TPrograma.BitBtn1Click(Sender: TObject);
var l: integer ;
begin
if EU = true then
begin
L1.Caption := 'Ua' ;
l2.Caption := 'EN';
EU := false;
ListBox1.Clear;
for l:=1 to n do
ListBox1.Items.Add(Eng[l]);
end
else
begin
l1.caption := 'EN';
l2.caption := 'UA';
EU :=true ;
ListBox1.Clear;
for l:=1 to n do
ListBox1.Items.Add(Ukr[l]);
end;
end;
 
 
 
procedure TPrograma.Edit3KeyPress(Sender: TObject; var Key: Char);
var slovo : string ;
     i : integer ;
     Yes : Boolean;
 
begin
if key=#13  then
begin
Programa.Button2Click(Sender);
end
end;
 
procedure TPrograma.N5Click(Sender: TObject);
begin
Dovidka.ShowModal;
end;
 
procedure TPrograma.N3Click(Sender: TObject);
begin
Edit3.CutToClipboard;
end;
 
procedure TPrograma.N2Click(Sender: TObject);
begin
Edit3.PasteFromClipboard;
end;
 
procedure TPrograma.N6Click(Sender: TObject);
begin
Edit3.CopyToClipboard;
end;
 
procedure TPrograma.ListBox1Click(Sender: TObject);
begin
Edit3.Text := ListBox1.Items[ListBox1.ItemIndex];
Edit3.SetFocus;
end;
 
procedure TPrograma.ListBox1DblClick(Sender: TObject);
begin
Programa.Button2Click(Sender);
end;
 
end.
0
? .
Similar
41792 / 34177 / 6122
: 12.04.2006
: 57,940
29.12.2009, 18:51
:


? #include <iostream> #include <vector> using...


, . , ...


, ... ... 1) #include <stdio.h> #include <conio.h> void...

Idea
//??? ?????? ?????? ?????? ...


, .model tiny .code .startup mov bx, 10000...

16
*~<`PIK`>~*
ﻌﺹ ﺦ ﺖﻀ ﺹ ﻙ ﺵﻔ ﺊ ﺘﺝ
606 / 386 / 81
: 15.12.2009
: 753
29.12.2009, 20:03 2
??

0.00001
0
Faither
0 / 0 / 0
: 19.12.2009
: 15
29.12.2009, 20:34  [] 3
"//"
0
*~<`PIK`>~*
ﻌﺹ ﺦ ﺖﻀ ﺹ ﻙ ﺵﻔ ﺊ ﺘﺝ
606 / 386 / 81
: 15.12.2009
: 753
29.12.2009, 20:47 4
))
0
Faither
0 / 0 / 0
: 19.12.2009
: 15
29.12.2009, 20:49  [] 5
_
0
Delphin_KKC
UNIX-way
710 / 494 / 49
: 15.01.2009
: 1,721
29.12.2009, 20:56 6
Faither
_
Unit2, Unit3, Unit4. .

- . " ".

.. . , .
0
Faither
0 / 0 / 0
: 19.12.2009
: 15
29.12.2009, 21:05  [] 7
0
 : rar .rar (769.5 , 30 )
deathNC
1892 / 1005 / 123
: 08.12.2009
: 2,792
: 2
30.12.2009, 21:28 8
Delphi ?

- ...
0
Faither
0 / 0 / 0
: 19.12.2009
: 15
30.12.2009, 21:44  [] 9
7
0
deathNC
1892 / 1005 / 123
: 08.12.2009
: 2,792
: 2
30.12.2009, 21:49 10
... ...
0
EFEFEFEF
36 / 13 / 2
: 12.10.2009
: 421
30.12.2009, 22:00 11
Faither




Delphi
1
2
3
4
5
6
7
8
9
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
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, Menus, ComCtrls;
 
type
  TPrograma = class(TForm)
    ListBox1: TListBox;
    L1: TLabel;
    L2: TLabel;
    BitBtn1: TBitBtn;
    Edit3: TEdit;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N2: TMenuItem;
    N6: TMenuItem;
    StatusBar1: TStatusBar;
    procedure FormShow(Sender: TObject);
 
    procedure Button2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure Edit3KeyPress(Sender: TObject; var Key: Char);
    procedure N5Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure ListBox1Click(Sender: TObject);
    procedure ListBox1DblClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Programa: TPrograma;
 
implementation
 
uses Unit2, Unit3, Unit4;
 
{$R *.dfm}
type Tdic = record
 Engword : string [30];//  30
 Ukrword : string [30];
 end ;
var Eng,Ukr : array [1..10] of string; //  10
var FDic : textfile;
n : integer = 0 ;
EU : Boolean = true;
 
procedure TPrograma.FormShow(Sender: TObject);
var dor,k :integer ;
rjadok : string;
begin
Illumination.ShowModal;
AssignFile (FDic, 'Dictionary.txt'); //     
Reset (FDic) ; //  
 //,          
while not Eof (FDic) do
begin
n := n+1;
readln (Fdic, rjadok);
dor:= Pos ('=', rjadok);
Eng [n] := Copy (rjadok , 1,dor-1);//  
Ukr [n] := Copy (rjadok,dor+1,100);
end;
closefile (Fdic);// 
//      
for k:=1 to n do
ListBox1.Items.Add(Eng[k]);//
 
StatusBar1.Panels[0].Text:=Timetostr(now);//
StatusBar1.Panels[1].Text:=datetostr(now);//
end;
 
 
 
procedure TPrograma.Button2Click(Sender: TObject);
var slovo : string ;
     i : integer ;
     Yes : Boolean;
begin
slovo := Edit3.Text ;
Yes := False ;
for i := 1 to n do
if Eng [i] = slovo then
begin
Pereklad.Show;
Pereklad.Label1.Caption:= Ukr[i];
Yes := True ;
break;
end else
if Ukr [i] = slovo then
begin
Pereklad.Show;
Pereklad.Label1.Caption:= Eng[i];
Yes := True ;
break;
end;
if not Yes then
ShoWmessage ( ' ') ;//    
end;
 
 
 
procedure TPrograma.BitBtn1Click(Sender: TObject);
var l: integer ;
begin
if EU = true then
begin
L1.Caption := 'Ua' ;
l2.Caption := 'EN';
EU := false;
ListBox1.Clear;
for l:=1 to n do
ListBox1.Items.Add(Eng[l]);
end
else
begin
l1.caption := 'EN';
l2.caption := 'UA';
EU :=true ;
ListBox1.Clear;
for l:=1 to n do
ListBox1.Items.Add(Ukr[l]);
end;
end;
 
 
 
procedure TPrograma.Edit3KeyPress(Sender: TObject; var Key: Char);
var slovo : string ;
     i : integer ;
     Yes : Boolean;
 
begin
//    #13
if key=#13  then
begin
Programa.Button2Click(Sender);
end
end;
 
procedure TPrograma.N5Click(Sender: TObject);
begin
Dovidka.ShowModal;
end;
 
procedure TPrograma.N3Click(Sender: TObject);
begin
Edit3.CutToClipboard;
end;
 
procedure TPrograma.N2Click(Sender: TObject);
begin
Edit3.PasteFromClipboard;
end;
 
procedure TPrograma.N6Click(Sender: TObject);
begin
Edit3.CopyToClipboard;
end;
 
procedure TPrograma.ListBox1Click(Sender: TObject);
begin
Edit3.Text := ListBox1.Items[ListBox1.ItemIndex];
Edit3.SetFocus;
end;
 
procedure TPrograma.ListBox1DblClick(Sender: TObject);
begin
Programa.Button2Click(Sender);
end;
 
end.

?
0
Faither
0 / 0 / 0
: 19.12.2009
: 15
30.12.2009, 22:01  [] 12
"" ?
0
deathNC
1892 / 1005 / 123
: 08.12.2009
: 2,792
: 2
30.12.2009, 22:03 13
׸ ... ? ...
0
EFEFEFEF
36 / 13 / 2
: 12.10.2009
: 421
30.12.2009, 22:07 14
deathNC
׸ ... ? ...
0
Faither
0 / 0 / 0
: 19.12.2009
: 15
30.12.2009, 22:11  [] 15
0
deathNC
1892 / 1005 / 123
: 08.12.2009
: 2,792
: 2
31.12.2009, 00:55 16

EFEFEFEF
, , ... , ...

, ...

2 2
, - ... ... ... , ....

Delphi
1
2
3
4
5
6
7
8
9
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
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
unit Unit1;
 
interface // Ýòî ð*çäåë ç*ãîëîâêîâ îáúÿâëå*èé ôó*êöèé è ïðîöåäóð, òèïîâ, ïîäêëþ÷å*èé ìîäóëåé è ò.ä.
 
uses // ïîäêëþ÷å*èå ìîäóëåé
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, Menus, ComCtrls, XPMan;
 
type // òóò îáúÿâëÿþòñÿ òèïû
  TPrograma = class(TForm)
    ListBox1: TListBox;
    L1: TLabel;
    L2: TLabel;
    BitBtn1: TBitBtn;
    Edit3: TEdit;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N2: TMenuItem;
    N6: TMenuItem;
    StatusBar1: TStatusBar;
    XPManifest1: TXPManifest;
    procedure FormShow(Sender: TObject);
 
    procedure Button2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure Edit3KeyPress(Sender: TObject; var Key: Char);
    procedure N5Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure ListBox1Click(Sender: TObject);
    procedure ListBox1DblClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var // Ð*çäåë, ãäå îáúÿâëÿþòñÿ ãëîá*ëü*ûå ïåðåìå**ûå
  Programa: TPrograma; // ýòî îáúÿâëå*èå ïåðåìå**îé Ôîðìû
 
implementation
 
// ïîäêëþ÷å*èå ìîäóëåé
uses
  Unit2, Unit3, Unit4;
 
{$R *.dfm}
type
  Tdic = record // Ç*ïèñü, ñîäåðæ*ù*ÿ ïåðåìå**ûå.... ñóäÿ ïî âñåìó, ýòî äëÿ ì*îãîÿçû÷*îñòè (Óêð*è*ñêèé è À*ãëèéñêèé)
    Engword : string [30];
    Ukrword : string [30];
  end ;
 
var
  Eng, Ukr: Array [1..10] of string; // Îáúÿâëå*èÿ äâóõ ì*ññèâîâ
  FDic: TextFile; // Ô*éëîâ*ÿ ïåðåìå***ÿ òåêñòîâîãî òèï*
  N: Integer = 0; // Öåëî÷èñëå***ÿ ïåðåìå***ÿ, îïðåäåëÿþù*ÿ êîë-âî ç*ïèñåé â rjadok...
  EU: Boolean = true; // Áóëåâ* ïåðåìå***ÿ... (**÷*ëü*îå ç**÷å*èå - Ïð*âä*)
 
procedure TPrograma.FormShow(Sender: TObject);
var
  dor, k: Integer ;
  // dor - âñïîìîã*òåëü**ÿ ïåðåìå***ÿ äëÿ îïðåäåëå*èÿ *îìåð* ñèìâîë* '=' â ñòðîêå
  rjadok : String; // ñþä* ñ÷èòûâ*þòñÿ ä***ûå ñ ô*éë*
begin
  Illumination.ShowModal;// Âûçîâ ôîðìû Illumination â ìîä*ëü*îì ðåæèìå (ýòî êîãä* *åëüçÿ *êòèâèðîâ*òü äðóãèå ôîðìû òâîåãî ïðèëîæå*èÿ!)
  AssignFile (FDic, 'Dictionary.txt'); // Ñâÿçûâ*åì ô*éëîâóþ ïåðåìå**óþ ñ ô*éëîì
  Reset (FDic); // Îòêðûâ*åì ô*éë FDic äëÿ ÷òå*èÿ
  while not Eof (FDic) do
  {
  Öèêë "Ïîê* *å êî*åö ô*éë*":
  Ïðè ð*áîòå ñ ô*éëîì åñòü ò*ê*ÿ ôèøê* - ïîçèöèÿ. Ïðè îòêðûòèè ïî óìîë÷**èþ ïîçèöèÿ óñò***âëèâ*åòñÿ ** 0
  Êîãä* âû ïîëüçóåòåñü ôó*êöèåé ReadLn, ýò* ôó*êöèÿ âûä*¸ò â*ì ñòðîêó, **÷è**þùóþñÿ ñ ê*êîé-òî ïîçèöèè,
  è óñò***âëèâ*åò ýòó ïîçèöèþ ** ñë. ñòðîêó....
  Ñò**ä*ðò**ÿ ôó*êöèÿ, ïîñò*âëÿåì*ÿ êîðïîð*öèåé Borland, function EOF(f: file): boolean; îïðåäåëÿåò - *å ÿâëÿåòñÿ ëè òåêóù*ÿ ïîçèöèÿ ïîñëåä*åé...
  Åé ïîëüçóþòñÿ ïîòîìó, ÷òî ð*çìåð ç*ãðóæ*åìîãî ô*éë*, ê*ê *è êðóòè, â*ì *å èçâåñòå*... ïî êð*é*åé ìåðå
  êîë-âî ñòðîê òî÷*î *å èçìåðèøü...
  }
    begin
      n := n + 1; // ñ ê*æäîé ïðî÷ò¸**îé ñòðîêîé ïîâûø*åì ç**÷å*èå N ** 1
      ReadLn(Fdic, rjadok); // Ñ÷èòûâ*åì î÷åðåä*óþ ëè*èþ èç ô*éë*, è ç*ïñûâ*åì â rjadok
      dor := Pos('=', rjadok); // ïåðåìå**îé dor ïðèñâ*èâ*åì *îìåð ñèìâîë* '=', êîòîðûé **õîäèòñÿ â ñòðîêå rjadok
      // Ä*ëüøå ð*çáèâ*åì ïî ÿçûê*ì ïðè ïîìîùè ïåðåìå**îé dor:
      // â ì*ññèâ äëÿ À*ãëèéñêîãî ÿçûê* ç*ïèñûâ*åì âñ¸, ÷òî åñòü äî ç**ê* '=',
      // è â Óêð*è*ñêèé âñ¸, ÷òî ïîñëå ð*â*î
      Eng [n] := Copy(rjadok , 1, dor-1);
      Ukr [n] := Copy(rjadok,dor+1,100);
    end;
  CloseFile(Fdic);
  // Ïåðøå ç*â**ò*æå**ÿ ñïèñêó ñë³â ó â³ê*î (äîá*âëÿåì âñ¸. ÷òî ç*ãðóçèëè â ListBox)
  For k:=1 to n do
    ListBox1.Items.Add(Eng[k]);
 
  // Ýòî ð*áîò* ñ Ýë.Óïð. StatusBar
  StatusBar1.Panels[0].Text:=Timetostr(now); // â ïåðâûé Item ïèøåì òåêóùåå âðåìÿ
  StatusBar1.Panels[1].Text:=datetostr(now); // âî âòîðîé òåêóùóþ ä*òó...
end;
 
 
 
procedure TPrograma.Button2Click(Sender: TObject);
var
  Slovo: String ;
  i: Integer ;
  Yes: Boolean;
begin
{
  Â ýòîé ïðîöåäóðå ìû èùåì ñëîâî â ì*ññèâå Eng, ñîâïîä*þùåå ñî ñëîâîì â Edit3
  Åñëè î*î *å **õîäèòñÿ, òî **÷è**åì èñê*òü â ì*ñèâå Ukr... åñëè è â ýòîì ñëó÷*å *å **õîäèòñÿ,
  òî ìû âûâîäèì **äïèñü "Íå ç**éäå*î æîä*îãî ñëîâ*! (Íå **éäå*î ââåä¸**îå ñëîâî!)"
}
  Slovo := Edit3.Text ;
  Yes := False ; // è*èöè*ëèçèðóåì ïåðåìå**óþ Yes, ïðåäïîë*ã*ÿ, ÷òî â öèêëå î** ìîæåò èçìå*èòüñÿ...
  For i := 1 to n do // Ýòî öèêë îò 1 äî N, êîòîðûé ïåðåáèð*åò îá* ì*ññèâ*
    If Eng[i] = slovo then // ñ**÷*ë* ñìîòðèì â ì*ññèâå 
      begin
        Pereklad.Show;
        Pereklad.Label1.Caption:= Ukr[i];
        Yes := True;
        break;
      end
    Else
      If Ukr [i] = Slovo then
        begin
          Pereklad.Show;
          Pereklad.Label1.Caption:= Eng[i];
          Yes := True;
          break;
        end;
  If not Yes then
    ShowMessage ( 'Íå ç**éäå*î æîä*îãî ñëîâ*!') ;
end;
 
 
 
procedure TPrograma.BitBtn1Click(Sender: TObject);
var l: integer ;
begin
if EU = true then
begin
L1.Caption := 'Ua' ;
l2.Caption := 'EN';
EU := false;
ListBox1.Clear;
for l:=1 to n do
ListBox1.Items.Add(Eng[l]);
end
else
begin
l1.caption := 'EN';
l2.caption := 'UA';
EU :=true ;
ListBox1.Clear;
for l:=1 to n do
ListBox1.Items.Add(Ukr[l]);
end;
end;
 
 
 
procedure TPrograma.Edit3KeyPress(Sender: TObject; var Key: Char);
var slovo : string ;
     i : integer ;
     Yes : Boolean;
 
begin
if key=#13  then
begin
Programa.Button2Click(Sender);
end
end;
 
procedure TPrograma.N5Click(Sender: TObject);
begin
Dovidka.ShowModal;
end;
 
procedure TPrograma.N3Click(Sender: TObject);
begin
Edit3.CutToClipboard;
end;
 
procedure TPrograma.N2Click(Sender: TObject);
begin
Edit3.PasteFromClipboard;
end;
 
procedure TPrograma.N6Click(Sender: TObject);
begin
Edit3.CopyToClipboard;
end;
 
procedure TPrograma.ListBox1Click(Sender: TObject);
begin
Edit3.Text := ListBox1.Items[ListBox1.ItemIndex];
Edit3.SetFocus;
end;
 
procedure TPrograma.ListBox1DblClick(Sender: TObject);
begin
Programa.Button2Click(Sender);
end;
 
end.
26
? ?

(.. , )...
3
deathNC
1892 / 1005 / 123
: 08.12.2009
: 2,792
: 2
31.12.2009, 02:46 17
... ... , , ..
0
 : rar Words.rar (469.5 , 12 )
31.12.2009, 02:46
MoreAnswers
37091 / 29110 / 5898
: 17.06.2006
: 43,301
31.12.2009, 02:46


, ? #include&lt;vcl&gt;...

tASM
, , , ....

.
, : uses crt; function...




:
17

- , ,
-
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
@Mail.ru