|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
26.05.2011, 20:23 | #1 |
Новичок
Джуниор
Регистрация: 11.12.2009
Сообщений: 1
|
как вставить код программы в Delphi что бы она работала?
вот листинг программы, правда это только кусочек:
unit datamodul; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, StdCtrls, ExtCtrls, ComCtrls, Spin, Menus; type TForm1 = class(TForm) MainMenu1: TMainMenu; N1: TMenuItem; N2: TMenuItem; N3: TMenuItem; N4: TMenuItem; Panel1: TPanel; Label1: TLabel; Label2: TLabel; SpinEdit1: TSpinEdit; Label3: TLabel; Edit1: TEdit; StringGrid1: TStringGrid; Label4: TLabel; StringGrid2: TStringGrid; Label5: TLabel; StringGrid3: TStringGrid; CheckBox1: TCheckBox; StringGrid4: TStringGrid; Label6: TLabel; N6: TMenuItem; N7: TMenuItem; N8: TMenuItem; SaveDialog1: TSaveDialog; OpenDialog1: TOpenDialog; Label7: TLabel; Edit2: TEdit; N5: TMenuItem; N9: TMenuItem; GroupBox1: TGroupBox; Label8: TLabel; Edit3: TEdit; Label9: TLabel; Edit4: TEdit; Button1: TButton; procedure FormCreate(Sender: TObject); procedure SpinEdit1Change(Sender: TObject); procedure StringGrid1KeyPress(Sender: TObject; var Key: Char); procedure StringGrid2KeyPress(Sender: TObject; var Key: Char); procedure StringGrid3KeyPress(Sender: TObject; var Key: Char); procedure StringGrid4KeyPress(Sender: TObject; var Key: Char); procedure CheckBox1Click(Sender: TObject); procedure N8Click(Sender: TObject); procedure N7Click(Sender: TObject); procedure N3Click(Sender: TObject); procedure N4Click(Sender: TObject); procedure N6Click(Sender: TObject); procedure Edit2KeyPress(Sender: TObject; var Key: Char); procedure N5Click(Sender: TObject); procedure N9Click(Sender: TObject); procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; i,j,n,nRt : integer; {циклич.пер-е, кол-во ПУП,кол-во ПУП для рассчета Rt} Ir,G : real; {соб.кап вложения для Rt, критерий эффективности} Ip : array[1..3] of real; {макс. и мин-е значение первонач.кап.вложений} RSvar,Rdvar,Vt : array[1..20] of real;{реальное значение Si и di для подсчета Rt, кр.риска} dvar : array[1..3,1..20] of real; {безриск.%ставка 1-я строка - мин, 2 - макс.} Svar,NPVvar,Rt : array[1..3,1..20] of real; {интервалы ден.потоков 1 строка - мин,2 - сред.зн.,3 - макс,NPV-массив,кр.ликвидности} At,Zt,Ct : array[1..2,1..20] of real; {соб,заем средства, кр.покрытия 1- мин, 2- макс} mCt,mVt,mRt : array[1..4,1..20] of real; {массивы функций принадлежностей к риску} kCt,kVt,kRt,kre : array[1..3] of real; {массивы верхних границ весов для оценки риска, 1- минимальный, 4 - недопустимый} implementation uses Rtmodul, Rezaltmodul, Formirmodul, mmodul, Rulermodul; {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin n:=SpinEdit1.Value; StringGrid1.ColCount:=n; StringGrid2.ColCount:=n; StringGrid3.ColCount:=n; StringGrid4.ColCount:=n; Checkbox1.Checked:=false; kCt[1]:=0.25;kCt[2]:=0.5;kCt[3]:=0.75; kRt[1]:=0.25;kRt[2]:=0.5;kRt[3]:=0.75; kVt[1]:=0.05;kVt[2]:=0.1;kVt[3]:=0.2; kre[1]:=0.25;kre[2]:=0.5;kre[3]:=0.75; for j:=0 to n-1 do begin StringGrid1.Cells[j,0]:=IntToStr(j+1); StringGrid2.Cells[j,0]:=IntToStr(j+1); StringGrid3.Cells[j,0]:=IntToStr(j+1); StringGrid4.Cells[j,0]:=IntToStr(j+1); RSvar[j+1]:=0;Rdvar[j+1]:=0; end; Rtkey:=false; Ir:=0;nRt:=0; end; procedure TForm1.SpinEdit1Change(Sender: TObject); begin n:=SpinEdit1.Value; CheckBox1.Checked:=false; Form4.StringGrid1.ColCount:=n+1; Form4.StringGrid2.ColCount:=n+1; Form2.SpinEdit1.Value:=n; Form3.StringGrid1.RowCount:=n+1; Form3.StringGrid2.RowCount:=n+1; StringGrid1.ColCount:=n; StringGrid2.ColCount:=n; StringGrid3.ColCount:=n; StringGrid4.ColCount:=n; for j:=0 to n-1 do begin StringGrid1.Cells[j,0]:=IntToStr(j+1); StringGrid2.Cells[j,0]:=IntToStr(j+1); StringGrid3.Cells[j,0]:=IntToStr(j+1); StringGrid4.Cells[j,0]:=IntToStr(j+1); Form3.StringGrid1.Cells[0,j+1]:=IntToStr(j+1);Form3.StringGrid2.C ells[0,j+1]:=IntToStr(j+1); Form4.StringGrid1.Cells[j+1,0]:=IntToStr(j+1); Form4.StringGrid2.Cells[j+1,0]:=IntToStr(j+1); end; end; procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char); begin Case key of chr(45),chr(48),chr(49),chr(50),chr (51),chr(52),chr(53),chr(54), chr(55),chr(56),chr(57),chr(59),chr (44),chr(8):; else key:=chr(0); end; end; end. |
26.05.2011, 21:20 | #2 |
Пользователь
Регистрация: 04.07.2009
Сообщений: 61
|
у вас ещё куча дополнительных модулей:
Код:
если нет то нужно их удалить |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Как можно вставить код C++ в Delphi 7 | Владислав | Общие вопросы Delphi | 7 | 20.03.2012 20:05 |
Как сделать так чтобы приложение базы данных работала на компьютерах без установленной программы delphi? | Даниил_глазко | БД в Delphi | 6 | 09.11.2010 16:26 |
пграмма совершает аварийное прерывание.как сделать так чтобы она работала нормально? | Екатерина3439 | Общие вопросы C/C++ | 8 | 24.06.2010 00:27 |