Добавил:
ivanov666
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Оптимизация режимов резания при токарной обработке металлов. Монография
.pdf
ɰɢɹ ɷɤɨɧɨɦɢɤɢ ɜ ɫɢɫɬɟɦɭ ɦɢɪɨɯɨɡɹɣɫɬɜɟɧɧɵɯ ɫɜɹɡɟɣ: ɋɛɨɪɧɢɤ ɧɚɭɱɧɵɯ ɬɪɭɞɨɜ
XVII Ɇɟɠɞɭɧɚɪ. ɧɚɭɱɧɨ-ɩɪɚɤɬ. ɤɨɧɮ. – ɋɉɛ: ɂɡɞ. ɉɨɥɢɬɟɯɧ. ɭɧ-ɬɚ. ɋɚɧɤɬ-
ɉɟɬɟɪɛɭɪɝ. 2012. – ɋ. 119–120.
ɉɨɜɵɲɟɧɢɟ ɫɬɟɩɟɧɢ ɬɟɯɧɨɝɟɧɧɨɣ ɛɟɡɨɩɚɫɧɨɫɬɢ ɩɪɟɞɩɪɢɹɬɢɣ ɨɬɪɚɫɥɢ
32.
«Ɇɚɲɢɧɨɫɬɪɨɟɧɢɟ» / Ʉ. Ⱥ. Ⱥɥɬɭɧɢɧ, ȿ. ȼ. ɒɚɲɤɨɜɚ // ɉɪɨɛɥɟɦɵ ɬɟɯɧɨɝɟɧɧɨɣ
ɛɟɡɨɩɚɫɧɨɫɬɢ ɢ ɭɫɬɨɣɱɢɜɨɝɨ ɪɚɡɜɢɬɢɹ. ɋɛɨɪɧɢɤ ɧɚɭɱɧɵɯ ɫɬɚɬɟɣ ɦɨɥɨɞɵɯ ɭɱɟ-
ɧɵɯ, ɚɫɩɢɪɚɧɬɨɜ ɢ ɫɬɭɞɟɧɬɨɜ. – Ɍɚɦɛɨɜ: ɂɡɞ-ɜɨ ɎȽȻɈɍ ȼɉɈ «ɌȽɌɍ», 2013.
ȼɵɩ. IV. – ɋ. 263–266.
Ɉɩɟɪɟɠɚɸɳɚɹ ɩɨɞɝɨɬɨɜɤɚ ɤɚɞɪɨɜ ɤɚɤ ɮɚɤɬɨɪ ɨɛɟɫɩɟɱɟɧɢɹ ɤɚɱɟɫɬɜɚ
33.
ɩɪɨɞɭɤɰɢɢ / ɋɨɤɨɥɨɜ Ɇ. ȼ., ɒɚɲɤɨɜɚ ȿ. ȼ. // ɉɪɨɛɥɟɦɵ ɬɟɯɧɨɝɟɧɧɨɣ ɛɟɡɨɩɚɫ-
ɧɨɫɬɢ ɢ ɭɫɬɨɣɱɢɜɨɝɨ ɪɚɡɜɢɬɢɹ: ɫɛɨɪɧɢɤ ɧɚɭɱɧɵɯ ɫɬɚɬɟɣ ɦɨɥɨɞɵɯ ɭɱɟɧɵɯ,
ɚɫɩɢɪɚɧɬɨɜ ɢ ɫɬɭɞɟɧɬɨɜ. ɎȽȻɈɍ ȼɉɈ «ɌȽɌɍ». – Ɍɚɦɛɨɜ, 2013. – ȼɵɩ. IV. –
ɋ. 242–245.
Ɉɩɟɪɟɠɚɸɳɚɹ ɩɨɞɝɨɬɨɜɤɚ ɤɚɞɪɨɜ ɤɚɤ ɮɚɤɬɨɪ ɭɫɬɨɣɱɢɜɨɝɨ ɪɚɡɜɢɬɢɹ
34.
ɨɬɪɚɫɥɢ «Ɇɚɲɢɧɨɫɬɪɨɟɧɢɟ» / ɋɨɤɨɥɨɜ Ɇ. ȼ., Ɍɨɥɦɚɱɟɜɚ ȿ. ȼ. // Ɇɚɬɟɪɢɚɥɵ
VI ȼɫɟɪɨɫɫɢɣɫɤɨɣ ɧɚɭɱɧɨ-ɩɪɚɤɬɢɱɟɫɤɨɣ ɤɨɧɮɟɪɟɧɰɢɢ «Ɇɚɲɢɧɨɫɬɪɨɟɧɢɟ – ɬɪɚɞɢ-
ɰɢɢ ɢ ɢɧɧɨɜɚɰɢɢ (ɆɌɂ-2013)», ɋɛɨɪɧɢɤ ɞɨɤɥɚɞɨɜ. – Ɇ.: ɆȽɌɍ «ɋɌȺɇɄɂɇ»,
2013. – ɋ. 287–290.
ȼɢɡɭɚɥɢɡɚɰɢɹ ɦɟɯɚɧɢɱɟɫɤɢɯ ɩɪɨɰɟɫɫɨɜ ɨɛɪɚɛɨɬɤɢ ɤɚɤ ɬɟɯɧɨɥɨɝɢɱɟ-
35.
ɫɤɢɣ ɮɚɤɬɨɪ ɜɥɢɹɧɢɹ ɧɚ ɨɛɪɚɡɨɜɚɧɢɟ / ɉɟɫɬɪɟɰɨɜ ɋ. ɂ., Ⱥɥɬɭɧɢɧ Ʉ. Ⱥ., ɋɨɤɨ-
ɥɨɜ Ɇ. ȼ. // ɋɬɪɚɬɟɝɢɱɟɫɤɨɟ ɭɩɪɚɜɥɟɧɢɟ ɨɪɝɚɧɢɡɚɰɢɹɦɢ: ɬɟɨɪɢɹ ɢ ɩɪɚɤɬɢɤɚ ɢɧ-
ɧɨɜɚɰɢɨɧɧɨɝɨ ɪɚɡɜɢɬɢɹ: ɫɛɨɪ. ɧɚɭɱɧɵɯ ɬɪɭɞɨɜ ɜɫɟɪɨɫɫ. ɧɚɭɱ.-ɩɪɚɤɬ. ɤɨɧɮ.
ɋɉɛ: ɂɡɞ-ɜɨ ɉɨɥɢɬɟɯ. ɭɧ-ɬɚ, 2013. – ɋ. 258–260.
Ɉɩɬɢɦɢɡɚɰɢɹ ɤɨɧɫɬɪɭɤɬɢɜɧɵɯ ɢ ɪɟɠɢɦɧɵɯ ɩɚɪɚɦɟɬɪɨɜ ɩɪɨɰɟɫɫɚ ɪɟ-
36.
ɡɚɧɢɹ / Ⱥɥɬɭɧɢɧ Ʉ. Ⱥ., ɉɟɫɬɪɟɰɨɜ ɋ. ɂ., Ɍɨɥɦɚɱɟɜɚ ȿ. ȼ., ɋɨɤɨɥɨɜ Ɇ. ȼ. //
ɋɛ. ɬɪɭɞɨɜ XXVII Ɇɟɠɞɭɧɚɪɨɞɧɚɹ ɧɚɭɱɧɚɹ ɤɨɧɮɟɪɟɧɰɢɹ «Ɇɚɬɟɦɚɬɢɱɟɫɤɢɟ ɦɟ-
ɬɨɞɵ ɜ ɬɟɯɧɢɤɟ ɢ ɬɟɯɧɨɥɨɝɢɹɯ» – ɆɆɌɌ-27. – ȼ 10 ɬ. Ɍ. 4. – ɋɟɤɰɢɹ 7 ɩɨɞ ɨɛɳ.
ɪɟɞ. ȼ. ɋ. Ȼɚɥɚɤɢɪɟɜɚ. – əɪɨɫɥɚɜɥɶ: ɂɡɞ-ɜɨ əɪɨɫɥ. ɝɨɫ. ɬɟɯɧ. ɭɧ-ɬɚ
Ɋɚɡɪɚɛɨɬɤɚ ɛɥɨɤɚ ɋȺɉɊ ɨɩɬɢɦɢɡɚɰɢɢ ɩɪɨɰɟɫɫɨɜ ɪɟɡɚɧɢɹ ɦɚɬɟɪɢɚɥɨɜ /
37.
, 2014.
ɋɨɤɨɥɨɜ Ɇ. ȼ., Ɍɨɥɦɚɱɟɜɚ ȿ. ȼ., Ɉɞɧɨɥɶɤɨ ȼ. Ƚ. // ɋɢɫɬɟɦɧɵɣ ɚɧɚɥɢɡ ɜ ɩɪɨɟɤɬɢ-
51
ɪɨɜɚɧɢɢ ɢ ɭɩɪɚɜɥɟɧɢɢ: ɋɛɨɪɧɢɤ ɧɚɭɱɧɵɯ ɬɪɭɞɨɜ XVIII Ɇɟɠɞɭɧɚɪ. ɧɚɭɱ.-ɩɪɚɤɬ.
ɤɨɧɮ. – ɋɉɛ: ɂɡɞ-ɜɨ. ɉɨɥɢɬɟɯɧ. ɭɧ-ɬɚ, 2014. ɑ. 2.
Ȼɪɚɬɤɨ ɂ. Ⱥɥɝɨɪɢɬɦɵ ɢɫɤɭɫɫɬɜɟɧɧɨɝɨ ɢɧɬɟɥɥɟɤɬɚ ɧɚ ɹɡɵɤɟ PROLOG,
38.
3-ɟ ɢɡɞɚɧɢɟ. – Ɇ.: ȼɢɥɶɹɦɫ, 2004. – 640 ɫ.
39.
Ʉɨɡɥɨɜɚ Ɍ. Ⱦ. ɗɤɫɩɟɪɬɧɚɹ ɫɢɫɬɟɦɚ ɩɨɞɞɟɪɠɤɢ ɩɪɢɧɹɬɢɹ ɪɟɲɟɧɢɣ ɞɥɹ
ɨɩɪɟɞɟɥɟɧɢɹ ɩɪɢɱɢɧ ɨɬɤɚɡɨɜ ɚɜɬɨɦɚɬɢɡɢɪɨɜɚɧɧɵɯ ɫɬɚɧɨɱɧɵɯ ɦɨɞɭɥɟɣ /
Ɍ. Ⱦ. Ʉɨɡɥɨɜɚ, Ⱥ. Ⱥ. ɂɝɧɚɬɶɟɜ // Ɍɟɯɧɢɱɟɫɤɢɟ ɧɚɭɤɢ. ɂɧɮɨɪɦɚɬɢɤɚ, ɜɵɱɢɫɥɢ-
ɬɟɥɶɧɚɹ ɬɟɯɧɢɤɚ. – 2013. – ʋ 1 (25). – ɋ. 19–25.
ɘɪɤɟɜɢɱ ȼ. ȼ. ɗɤɫɩɟɪɬɧɚɹ ɫɢɫɬɟɦɚ ɞɥɹ ɬɨɤɚɪɧɨɣ ɨɛɪɚɛɨɬɤɢ // ȼɟɫɬɧɢɤ
40.
ɦɚɲɢɧɨɫɬɪɨɟɧɢɹ. – 2010. – ʋ 6. – ɋ. 73–75.
52
ɉɊɂɅɈɀȿɇɂȿ Ⱥ
ɉɪɨɝɪɚɦɦɚ ɪɚɫɱɟɬɚ ɨɩɬɢɦɚɥɶɧɵɯ ɪɟɠɢɦɧɵɯ ɩɚɪɚɦɟɬɪɨɜ
ɩɪɨɰɟɫɫɚ ɪɟɡɚɧɢɹ
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, StdCtrls, Grids, DBGrids, OleServer, CmAdmCtl,
ShellAPI, Math, ExtCtrls;
type
TDann = class(TForm)
ADOConnection1: TADOConnection;
ADODataSet1: TADODataSet;
DataSource1: TDataSource;
Stuli: TADOTable;
Button1: TButton;
Label1: TLabel;
ADOTable2: TADOTable;
Button2: TButton;
Button3: TButton;
Chugun: TADOTable;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
RadioButton3: TRadioButton;
Cvetmet: TADOTable;
53
RadioButton4: TRadioButton;
Rudiustab: TADOTable;
Button4: TButton;
Label2: TLabel;
Button5: TButton;
Edit1: TEdit;
Edit2: TEdit;
Label3: TLabel;
Label4: TLabel;
ComboBox1: TComboBox;
Label5: TLabel;
ComboBox2: TComboBox;
Label6: TLabel;
Button8: TButton;
ComboBox5: TComboBox;
ComboBox6: TComboBox;
Rezhchast: TADOTable;
Label8: TLabel;
Label10: TLabel;
Button11: TButton;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
Button12: TButton;
Tverd: TADOTable;
Button13: TButton;
Stanki: TADOTable;
54
GroupBox1: TGroupBox;
Label7: TLabel;
Label9: TLabel;
Button6: TButton;
ComboBox3: TComboBox;
Button7: TButton;
ComboBox4: TComboBox;
RadioGroup1: TRadioGroup;
Button9: TButton;
GroupBox2: TGroupBox;
Button14: TButton;
Button15: TButton;
StuliDSDesigner: TWideStringField;
StuliDSDesigner2: TWideStringField;
Stuli_: TWideStringField;
Stuli_2: TWideStringField;
StuliDSDesigner3: TWideStringField;
StuliDSDesigner4: TFloatField;
StuliDSDesigner5: TIntegerField;
StuliDSDesigner6: TWideStringField;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
procedure Button8Click(Sender: TObject);
procedure Button11Click(Sender: TObject);
procedure Button12Click(Sender: TObject);
55
procedure Button13Click(Sender: TObject);
procedure Button14Click(Sender: TObject);
procedure Button15Click(Sender: TObject);
procedure Button9Click(Sender: TObject);
{ Private declarations }
public
{ Public declarations }
end;
var
Dann: TDann;
nmin, nmax, Nst, kpd, smin, smax: string;
implementation
uses Unit2;
{$R *.dfm}
var
mat, marka, res, kt, tau, fi, fi1, epsilon, r, alfa, Kiv, gamma, betta: variant;
splav, Kpv, rh, vh, Kmv, Kg, nv, step, n, ffi, vd, nd, d, t, v, Cv, x: variant;
y, m, a, f, nd1, s: variant;
tfile, Pfile, optimfile, stanfile: TextFile;
xpz, ypz, npz, Cpz, np1, Py,sechB, sechH, Rz: variant;
sigmap, skobka, Kmp, Kfi, Kfiz, Krp, Krpz, mE, Pz: variant;
xp, yp, np, Cp:variant;
h, glub, dium, cher, hst: string;
rezec, str: string;
sigma, rezh: string;
56
procedure Errorrezec;
var
h: hwnd;
begin
ShowMessage('Ⱦɚɧɧɨɝɨ ɪɟɡɰɚ ɧɟɬ ɜ ɛɚɡɟ ɞɚɧɧɵɯ. Ɂɚɞɚɣɬɟ ɟɝɨ ɯɚɪɚɤɬɟɪɢɫɬɢɤɢ');
repeat
{$I-}
ShellExecute(h,'open','BDrezec\Baza.accdb',nil,nil,SW_SHOW);
{$I+}
res:=IOResult;
if res <> 0 then
ShellExecute(h,'open','Baza.accdb',nil,nil,SW_SHOW);
until (res= 0);
end;
procedure TDann.Button9Click(Sender: TObject);
begin
dium:=InputBox('Ɂɚɞɚɧɢɟ ɧɚɱɚɥɶɧɵɯ ɭɫɥɨɜɢɣ','ɍɤɚɠɢɬɟ ɞɢɚɦɟɬɪ ɞɟɬɚɥɢ ɜ ɦɦ
ɢ ɳɟɥɤɧɢɬɟ ɧɚ OK','');
glub:=InputBox('Ɂɚɞɚɧɢɟ ɧɚɱɚɥɶɧɵɯ ɭɫɥɨɜɢɣ','ɍɤɚɠɢɬɟ ɝɥɭɛɢɧɭ ɪɟɡɚɧɢɹɢ ɜ
ɦɦ ɢ ɳɟɥɤɧɢɬɟ ɧɚ OK','');
Edit1.Text:=glub;
Edit2.Text:=dium;
if Edit1.Text='' then
ShowMessage('ɍɤɚɠɢɬɟ ɝɥɭɛɢɧɭ ɪɟɡɚɧɢɹ');
if Edit2.Text='' then
ShowMessage('ɍɤɚɠɢɬɟ ɞɢɚɦɟɬɪ ɞɟɬɚɥɢ');
t:=StrToFloat(Edit1.Text);
d:=StrToFloat(Edit2.Text);
end;
57
procedure TDann.Button1Click(Sender: TObject);
begin
if RadioButton4.Checked then
ShowMessage('ɍɤɚɠɢɬɟ ɤɚɬɟɝɨɪɢɸ ɦɚɬɟɪɢɚɥɚ')
else
begin
h:=InputBox('ȼɵɛɨɪɤɚ ɢɧɮɨɪɦɚɰɢɢ ɢɡ ɛɚɡɵ ɞɚɧɧɵɯ','ɍɤɚɠɢɬɟ ɦɚɪɤɭ ɦɚɬɟ-
ɪɢɚɥɚ ɢ ɳɟɥɤɧɢɬɟ ɧɚ OK','');
if RadioButton1.Checked then
if h <> '' then
begin
marka:=Stuli.Lookup('Ɇɚɪɤɚ',h,'Ɍɟɩɥɨɫɬɨɣɤɨɫɬɶ');
mat:=Stuli.Lookup('Ɇɚɪɤɚ',h,'ɉɥɨɬɧɨɫɬɶ');
res:=Stuli.Lookup('Ɇɚɪɤɚ',h,'Ʉɨɷɮɮɢɰɢɟɧɬ_ɬɟɦɩɟɪɚɬɭɪɨɩɪɨɜɨɞɧɨɫɬɢ');
kt:=Stuli.Lookup('Ɇɚɪɤɚ',h,'Ʉɨɷɮɮɢɰɢɟɧɬ_ɬɟɩɥɨɩɪɨɜɨɞɧɨɫɬɢ');
tau:=Stuli.Lookup('Ɇɚɪɤɚ',h,'ɋɨɩɪɨɬɢɜɥɟɧɢɟ ɩɥɚɫɬɢɱɧɨɦɭ ɫɞɜɢɝɭ');
mE:=Stuli.Lookup('Ɇɚɪɤɚ',h,'Ɇɨɞɭɥɶ ɭɩɪɭɝɨɫɬɢ ȿ');
end;
if RadioButton2.Checked then
if h <> '' then
begin
marka:=Chugun.Lookup('Ɇɚɪɤɚ',h,'Ɍɟɩɥɨɫɬɨɣɤɨɫɬɶ');
mat:=Chugun.Lookup('Ɇɚɪɤɚ',h,'ɉɥɨɬɧɨɫɬɶ');
res:=Chugun.Lookup('Ɇɚɪɤɚ',h,'Ʉɨɷɮɮɢɰɢɟɧɬ
_ɬɟɦɩɟɪɚɬɭɪɨɩɪɨɜɨɞɧɨɫɬɢ');
kt:=Chugun.Lookup('Ɇɚɪɤɚ',h,'Ʉɨɷɮɮɢɰɢɟɧɬ_ɬɟɩɥɨɩɪɨɜɨɞɧɨɫɬɢ');
tau:=Chugun.Lookup('Ɇɚɪɤɚ',h,'ɋɨɩɪɨɬɢɜɥɟɧɢɟ ɩɥɚɫɬɢɱɧɨɦɭ ɫɞɜɢɝɭ');
mE:=Chugun.Lookup('Ɇɚɪɤɚ',h,'Ɇɨɞɭɥɶ ɭɩɪɭɝɨɫɬɢ ȿ');
end;
if RadioButton3.Checked then
if h <> '' then
58
begin
marka:=Cvetmet.Lookup('Ɇɚɪɤɚ',h,'Ɍɟɩɥɨɫɬɨɣɤɨɫɬɶ');
mat:=Cvetmet.Lookup('Ɇɚɪɤɚ',h,'ɉɥɨɬɧɨɫɬɶ');
res:=Cvetmet.Lookup('Ɇɚɪɤɚ',h,'Ʉɨɷɮɮɢɰɢɟɧɬ_ɬɟɦɩɟɪɚɬɭɪɨɩɪɨɜɨɞɧɨɫɬɢ');
kt:=Cvetmet.Lookup('Ɇɚɪɤɚ',h,'Ʉɨɷɮɮɢɰɢɟɧɬ_ɬɟɩɥɨɩɪɨɜɨɞɧɨɫɬɢ');
tau:=Cvetmet.Lookup('Ɇɚɪɤɚ',h,'ɋɨɩɪɨɬɢɜɥɟɧɢɟ ɩɥɚɫɬɢɱɧɨɦɭ ɫɞɜɢɝɭ');
splav:=Cvetmet.Lookup('Ɇɚɪɤɚ',h,'ȼɢɞ ɫɩɥɚɜɚ');
mE:=Cvetmet.Lookup('Ɇɚɪɤɚ',h,'Ɇɨɞɭɥɶ ɭɩɪɭɝɨɫɬɢ ȿ');
end;
end;
if (marka = Null) or (res = Null) or (kt = Null) or (mat = Null) or
(tau = Null) or (res = Null) or (mE = Null)then
begin
ShowMessage('Ⱦɚɧɧɨɝɨ ɦɚɬɟɪɢɚɥɚ ɧɟɬ ɜ ɛɚɡɟ ɞɚɧɧɵɯ ɢɥɢ ɧɟ ɡɚɞɚɧɧɵ ɜɫɟ ɟɝɨ
ɯɚɪɚɤɬɟɪɢɫɬɢɤɢ. Ɂɚɞɚɣɬɟ ɟɝɨ ɯɚɪɚɤɬɟɪɢɫɬɢɤɢ');
ShellExecute(handle,'open','Baza.accdb',nil,nil,SW_SHOW);
end;
end;
procedure TDann.Button8Click(Sender: TObject);
begin
if ComboBox1.Text='' then
ShowMessage('ɍɤɚɠɢɬɟ ɜɢɞ
ɨɛɪɚɛɨɬɤɢ');
if ComboBox5.Text='' then
ShowMessage('ɍɤɚɠɢɬɟ ɭɫɥɨɜɢɹ ɨɛɪɚɛɨɬɤɢ');
if ComboBox6.Text='' then
ShowMessage('ɍɤɚɠɢɬɟ ɠɟɫɬɤɨɫɬɶ ɫɢɫɬɟɦɵ ɋɉɂȾ');
if RadioButton4.Checked then
ShowMessage('ɍɤɚɠɢɬɟ ɤɚɬɟɝɨɪɢɸ ɦɚɬɟɪɢɚɥɚ');
if RadioButton1.Checked then
59
begin
if ComboBox1.Text='ɑɟɪɧɨɜɚɹ ɨɛɪɚɛɨɬɤɚ' then
begin
ComboBox2.Enabled:=False;
if ComboBox5.Text='ɉɪɟɪɵɜɢɫɬɨɟ ɪɟɡɚɧɢɟ (ɫ ɭɞɚɪɨɦ)' then
begin
case ComboBox6.ItemIndex of
0: rezh:= 'Ɍ5Ʉ10';
1: rezh:= 'ȼɄ8';
2: rezh:= 'Ɋ6Ɇ5';
end;
end;
if ComboBox5.Text='ɇɟɩɪɟɪɵɜɧɨɟ ɪɟɡɚɧɢɟ' then
begin
case ComboBox6.ItemIndex of
0: rezh:= 'Ɍ15Ʉ6';
1: rezh:= 'Ɍ14Ʉ8';
2: rezh:= 'Ɍ5Ʉ10';
end;
end;
end;
if ComboBox1.Text='ɑɢɫɬɨɜɚɹ ɨɛɪɚɛɨɬɤɚ' then begin
ComboBox2.Enabled:=true;
if ComboBox5.Text='ɉɪɟɪɵɜɢɫɬɨɟ ɪɟɡɚɧɢɟ (ɫ ɭɞɚɪɨɦ)' then begin
case ComboBox6.ItemIndex of
0: rezh:= 'Ɍ15Ʉ6';
1: rezh:= 'Ɍ14Ʉ8';
2: rezh:= 'Ɍ5Ʉ10';
end;
end;
60
Соседние файлы в предмете [НЕСОРТИРОВАННОЕ]