как вставить вот такую програмку в delfi 7.0

[angelalso]

как вставить вот такую програмку в delfi 7.0
какой выбрать new Itims?

[angelalso]

unit Unit1;
interface
uses

Clipbrd, Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Menus, Grids, ComCtrls, Buttons, ToolWin, ExtCtrls;

type
TForm1 = class(TForm)
Edit1: TEdit;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
N8: TMenuItem;
N9: TMenuItem;
N10: TMenuItem;
N11: TMenuItem;
N12: TMenuItem;
N13: TMenuItem;
N14: TMenuItem;
N15: TMenuItem;
N16: TMenuItem;
N17: TMenuItem;
N18: TMenuItem;
N19: TMenuItem;
N20: TMenuItem;
N21: TMenuItem;
N22: TMenuItem;
N23: TMenuItem;
Label3: TLabel;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
BitBtn4: TBitBtn;
BitBtn5: TBitBtn;
BitBtn6: TBitBtn;
BitBtn7: TBitBtn;
BitBtn8: TBitBtn;
BitBtn9: TBitBtn;
BitBtn10: TBitBtn;
BitBtn11: TBitBtn;
ToolBar1: TToolBar;
MainMenu1: TMainMenu;
PopupMenu1: TPopupMenu;
StringGrid1: TStringGrid;
StringGrid2: TStringGrid;
FontDialog1: TFontDialog;
ToolButton1: TToolButton;
ToolButton2: TToolButton;
ToolButton3: TToolButton;
ColorDialog1: TColorDialog;
procedure N2Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure N6Click(Sender: TObject);
procedure N8Click(Sender: TObject);
procedure N10Click(Sender: TObject);
procedure N11Click(Sender: TObject);
procedure N12Click(Sender: TObject);
procedure N13Click(Sender: TObject);
procedure N14Click(Sender: TObject);
procedure N15Click(Sender: TObject);
procedure N16Click(Sender: TObject);
procedure N17Click(Sender: TObject);
procedure N19Click(Sender: TObject);
procedure N20Click(Sender: TObject);
procedure N21Click(Sender: TObject);
procedure N22Click(Sender: TObject);
procedure N23Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure BitBtn4Click(Sender: TObject);
procedure BitBtn5Click(Sender: TObject);
procedure BitBtn6Click(Sender: TObject);
procedure BitBtn7Click(Sender: TObject);
procedure BitBtn8Click(Sender: TObject);
procedure BitBtn9Click(Sender: TObject);
procedure BitBtn10Click(Sender: TObject);
procedure BitBtn11Click(Sender: TObject);
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
procedure StringGrid1KeyPress(Sender: TObject; var Key: Char);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
Pr,x,y,a,b,n,j,i,k,temp,p:integer;
f:textfile;
tempstr:string;

implementation

[angelalso]

продолжение
uses Unit2;

{$R *.DFM}

//Выход
procedure TForm1.N2Click(Sender: TObject);
begin
IF MessageDlg('Вы действительно хотите выйти',mtInformation,mbYesNoCancel, 0)=mrYes THEN
Close;
end;

//Вернуться
procedure TForm1.N3Click(Sender: TObject);
begin
BitBtn2.Enabled:=False;
Form1.Height:=StringGrid1.Height+14 0;
Form1.Width:=StringGrid1.Width+440;
Form1.Position:=poScreenCenter;
StringGrid2.Visible:=false;
StringGrid1.Visible:=true;
Label3.Enabled:=True;
end;

//Очистить
procedure TForm1.N6Click(Sender: TObject);
begin
FOR i:=1 TO StringGrid1.ColCount DO
FOR j:=1 TO StringGrid1.RowCount DO
begin
StringGrid1.Cells[i,j]:='';
end;
end;

//Размер увеличить
procedure TForm1.N8Click(Sender: TObject);
begin
a:=Form1.Height;
b:=Form1.Width;
Form1.Height:=a+10;
Form1.Width:=b+10;
end;

//О программе
procedure TForm1.N10Click(Sender: TObject);
begin
form2.Show;
end;

//Тестирование
procedure TForm1.N11Click(Sender: TObject);
begin
IF n=7 THEN
begin
N11.Enabled:=True;
N17.Enabled:=True;
BitBtn5.Enabled:=True;
StringGrid1.Cells[3,1]:=IntToStr(2);
StringGrid1.Cells[2,1]:=IntToStr(4);
StringGrid1.Cells[4,1]:=IntToStr(6);
StringGrid1.Cells[3,2]:=IntToStr(8);
StringGrid1.Cells[5,3]:=IntToStr(7);
StringGrid1.Cells[5,4]:=IntToStr(18);
StringGrid1.Cells[7,5]:=IntToStr(20);
StringGrid1.Cells[6,4]:=IntToStr(3);
StringGrid1.Cells[7,6]:=IntToStr(11);
end;
IF n=8 THEN begin
N11.Enabled:=True;
N17.Enabled:=True;
BitBtn5.Enabled:=True;
StringGrid1.Cells[2,1]:=IntToStr(12);
StringGrid1.Cells[3,1]:=IntToStr(13);
StringGrid1.Cells[4,2]:=IntToStr(5);
StringGrid1.Cells[5,2]:=IntToStr(7);
StringGrid1.Cells[4,3]:=IntToStr(8);
StringGrid1.Cells[6,3]:=IntToStr(9);
StringGrid1.Cells[5,4]:=IntToStr(1);
StringGrid1.Cells[7,4]:=IntToStr(4);
StringGrid1.Cells[7,5]:=IntToStr(6);
StringGrid1.Cells[7,6]:=IntToStr(11);
StringGrid1.Cells[8,6]:=IntToStr(14);
StringGrid1.Cells[8,7]:=IntToStr(17);
end;
IF n=14 THEN begin
N11.Enabled:=True;
N17.Enabled:=True;
BitBtn5.Enabled:=True;
StringGrid1.Cells[2,1]:=IntToStr(7);
StringGrid1.Cells[3,1]:=IntToStr(4);
StringGrid1.Cells[4,1]:=IntToStr(7);
StringGrid1.Cells[4,2]:=IntToStr(5);
StringGrid1.Cells[6,2]:=IntToStr(5);
StringGrid1.Cells[5,3]:=IntToStr(10);
StringGrid1.Cells[8,3]:=IntToStr(4);
StringGrid1.Cells[5,4]:=IntToStr(6);
StringGrid1.Cells[6,4]:=IntToStr(3);
StringGrid1.Cells[10,4]:=IntToStr(10);
StringGrid1.Cells[7,5]:=IntToStr(7);
StringGrid1.Cells[8,5]:=IntToStr(3);
StringGrid1.Cells[10,6]:=IntToStr(4);
StringGrid1.Cells[11,6]:=IntToStr(9);
StringGrid1.Cells[9,7]:=IntToStr(8);
StringGrid1.Cells[10,7]:=IntToStr(6);
StringGrid1.Cells[9,8]:=IntToStr(5);
StringGrid1.Cells[12,8]:=IntToStr(4);
StringGrid1.Cells[13,9]:=IntToStr(9);
StringGrid1.Cells[11,10]:=IntToStr(7);
StringGrid1.Cells[13,10]:=IntToStr(10);
StringGrid1.Cells[14,11]:=IntToStr(8);
StringGrid1.Cells[13,12]:=IntToStr(9);
StringGrid1.Cells[14,12]:=IntToStr(6);
StringGrid1.Cells[14,13]:=IntToStr(5);
end;
end;

[angelalso]

продолжение

//Размер уменьшить
procedure TForm1.N12Click(Sender: TObject);
begin
a:=Form1.Height;
b:=Form1.Width;
Form1.Height:=a-10;
Form1.Width:=b-10;
end;

//Размер по умолчанию
procedure TForm1.N13Click(Sender: TObject);
begin
Form1.Height:=630;
Form1.Width:=655;
end;

//Создать
procedure TForm1.N14Click(Sender: TObject);
begin
//Количество столбцов и строк в таблице
IF ((Edit1.Text='')or(StrToInt(Edit1.T ext)<=4)or(StrToInt(Edit1.Text)>40) ) THEN
ShowMessage('Неправильно введены события (min=5, а max=40)')
ELSE
begin
Label3.Caption:='Введите продолжительность путей, учитывая направление - от строк к столбцам';
Label3.Width:=465;
Label3.Alignment:=taCenter;
N18.Enabled:=True;
N17.Enabled:=True;
N6.Enabled:=True;
BitBtn10.Enabled:=True;
BitBtn6.Enabled:=True;
BitBtn4.Enabled:=True;
n:=StrToInt(Edit1.Text);
//Возможность тестирования для графа с 7 вершинами
IF n=7 THEN begin
N11.Enabled:=True;
N17.Enabled:=True;
N6.Enabled:=True;
BitBtn5.Enabled:=True;
end;
IF n=8 THEN begin
N11.Enabled:=True;
N17.Enabled:=True;
N6.Enabled:=True;
BitBtn5.Enabled:=True;
end;
IF n=14 THEN begin
N11.Enabled:=True;
N17.Enabled:=True;
N6.Enabled:=True;
BitBtn5.Enabled:=True;
end;

IF n>25 THEN
Form1.WindowState:=wsMaximized;
StringGrid1.ColCount:=n+1;
StringGrid1.RowCount:=n+1;
StringGrid1.Height:=(n+2)*25;
StringGrid1.Width:=(n+2)*25;
StringGrid1.Visible:=True;
Form1.Height:=StringGrid1.Height+25 0;
Form1.Width:=StringGrid1.Width+250;
StringGrid1.Cells[0,0]:='i';
Form1.Position:=poScreenCenter;

IF StringGrid1.Left-n*5>0 THEN
StringGrid1.Left:=StringGrid1.Left-n*5
ELSE
StringGrid1.Left:=0;
Label3.Enabled:=True;
Edit1.Visible:=False;
FOR i:=1 TO n DO
begin
StringGrid1.Cells[0,i]:=inttostr(i);
StringGrid1.Cells[i,0]:=inttostr(i);
StringGrid2.Cells[0,i]:=inttostr(i);
end;
end;
end;
//Ввод числа вершин
procedure TForm1.N15Click(Sender: TObject);
begin
//Возможность тестирования для графа с 7 вершинами
Form1.WindowState:=wsNormal;
Form1.Height:=140;
Form1.Width:=440;
IF n=7 THEN begin
N11.Enabled:=True;
N17.Enabled:=True;
BitBtn5.Enabled:=True;
end;
//Возможность тестирования для графа с 8 вершинами
IF n=8 THEN begin
N11.Enabled:=True;
N17.Enabled:=True;
BitBtn5.Enabled:=True;
end;
//Возможность тестирования для графа с 14 вершинами
IF n=14 THEN begin
N11.Enabled:=True;
N17.Enabled:=True;
BitBtn5.Enabled:=True;
end;
StringGrid1.Left:=218;
Form1.Height:=140;
Form1.Width:=440;
Form1.WindowState:=wsNormal;
Form1.Position:=poScreenCenter;
Label3.Height:=24;
Label3.Width:=269;
StringGrid1.Visible:=False;
StringGrid2.Visible:=False;
Label3.Caption:='Введите количество событий';
Edit1.Visible:=True;
Edit1.SetFocus;
Edit1.Text:='';
FOR i:=1 TO StringGrid1.ColCount DO
FOR j:=1 TO StringGrid1.RowCount DO
StringGrid1.Cells[i,j]:='';
FOR i:=1 TO StringGrid2.ColCount DO
FOR j:=1 TO StringGrid2.RowCount DO
StringGrid2.Cells[i,j]:='';
Label3.Enabled:=True;
end;

[angelalso]

продолжение

//Цвет
procedure TForm1.N16Click(Sender: TObject);
begin
WITH ColorDialog1 DO
Begin
IF NOT Execute THEN Exit;
Edit1.Color:=Color;
StringGrid1.Color:=Color;
StringGrid2.Color:=Color
end;
end;
//Расчета параметров сетевого графика
procedure TForm1.N17Click(Sender: TObject);
Var ran: Array[1..100] OF integer;
begin
N3.Enabled:=True;
BitBtn2.Enabled:=True;
//Проверка наличия введенных значений
Pr:=0;
FOR i:=1 TO n DO
FOR j:=1 TO n DO
IF StringGrid1.Cells[i,j]='' THEN
Pr:=Pr+1;
IF Pr=n*n THEN //Если не введено ни одного значения
ShowMessage('Введите продолжительность событий')
ELSE
Begin
IF StringGrid2.Height>StringGrid1.Heig ht THEN
Form1.Height:=StringGrid2.Height;
IF StringGrid2.Width>StringGrid1.Width THEN
Form1.Width:=StringGrid2.Width+10;
StringGrid2.Cells[2,n]:=StringGrid2.Cells[1,n];
StringGrid2.Cells[2,1]:='0';
//Расчет ранних сроков наступления события
FOR j:=1 TO n DO
begin
k:=1;
FOR i:=1 TO n DO
ran[i]:=0;
StringGrid2.Cells[1,j]:='0';//начальное значение
FOR i:=1 TO n DO
begin
IF ((i<j)AND(StringGrid1.Cells[j,i]<>'')) THEN
begin
ran[k]:=StrToInt(StringGrid2.Cells[1,i])+StrToInt(StringGrid1.Cells[j,i]);
IF k=1 THEN StringGrid2.Cells[1,j]:=IntToStr(ran[k]);
//Определение максимального элемента
IF ((k>1)AND(ran[k]>StrToInt(StringGrid2.Cells[1,j]))) THEN
StringGrid2.Cells[1,j]:=IntToStr(ran[k]);
k:=k+1;
end;
end;
end;
StringGrid1.Visible:=False;
StringGrid2.Visible:=True;
//Расчет поздних сроков наступления события
StringGrid2.Cells[2,n]:=StringGrid2.Cells[1,n];
j:=n-1;
WHILE j>1 DO
begin
k:=1;
FOR i:=1 TO n DO
ran[i]:=0;
StringGrid2.Cells[2,j]:='0';
i:=n;
WHILE i>1 DO
begin
IF StringGrid1.Cells[i,j]<>'' THEN
begin
ran[k]:=StrToInt(StringGrid2.Cells[2,i])-StrToInt(StringGrid1.Cells[i,j]);
StringGrid2.Cells[2,j]:=IntToStr(ran[k]);
IF ((k>1)AND(ran[k]<ran[k-1])) THEN
StringGrid2.Cells[2,j]:=IntToStr(ran[k])
else
IF ((k>1)AND(ran[k-1]<ran[k])) THEN
StringGrid2.Cells[2,j]:=IntToStr(ran[k-1]);
k:=k+1;
end;
i:=i-1;
end;
j:=j-1;
end;

k:=1;
FOR i:=1 TO n DO
FOR j:=1 TO n DO
IF StringGrid1.Cells[j,i]<>'' THEN//Если путь имеется на заданном графе
begin
//Путь
StringGrid2.Cells[3,k]:=IntToStr(i)+', '+IntToStr(j);
//Продолжительность пути
StringGrid2.Cells[4,k]:=StringGrid1.Cells[j,i];
//Раннее начало работы
FOR p:=1 TO n DO
if StrToInt(StringGrid2.Cells[0,p])=i THEN
StringGrid2.Cells[5,k]:=StringGrid2.Cells[1,p];
//Раннее окончание работы
StringGrid2.Cells[6,k]:=IntToStr(Strtoint(StringGrid2.Cel ls[5,k])+StrtoInt(StringGrid2.Cells[4,k]));
//Позднее окончание
FOR p:=1 TO n DO
IF StrToInt(StringGrid2.Cells[0,p])=j THEN
StringGrid2.Cells[8,k]:=StringGrid2.Cells[2,p];
//Позднее начало
StringGrid2.Cells[7,k]:=IntToStr(Strtoint(StringGrid2.Cel ls[8,k])-StrtoInt(StringGrid2.Cells[4,k]));
//Полный резерв
StringGrid2.Cells[9,k]:=IntToStr(Strtoint(StringGrid2.Cel ls[8,k])-StrtoInt(StringGrid2.Cells[6,k]));
//Свободный резерв
FOR p:=1 TO n DO
IF StrToInt(StringGrid2.Cells[0,p])=j THEN
StringGrid2.Cells[10,k]:=IntToStr(Strtoint(StringGrid2.Cel ls[1,p])-StrtoInt(StringGrid2.Cells[6,k]));
k:=k+1;
end;
//Критический путь
Label3.Left:=90;
Label3.Width:=Form1.Width;
Label3.Caption:='Критический путь';
FOR i:=1 TO n DO
IF StrToInt(StringGrid2.Cells[1,i])=StrToInt(StringGrid2.Cells[2,i]) THEN
Label3.Caption:=Label3.Caption+' - '+StringGrid2.Cells[0,i];
Label3.Enabled:=True;
end;
end;
//Копирование в буфер обмена
procedure TForm1.N19Click(Sender: TObject);
var bitmap:tbitmap;
begin
bitmap:=tbitmap.create;
bitmap.width:=clientwidth;
bitmap.height:=clientheight;
TRY
WITH bitmap.Canvas DO
CopyRect (clientrect,canvas,clientrect);
clipboard.Assign(bitmap);
FINALLY
bitmap.free;
end;
end;
//Изменение шрифта
procedure TForm1.N20Click(Sender: TObject);
begin
WITH FontDialog1 DO

[angelalso]

продолжение

begin
IF NOT Execute THEN Exit;
Edit1.Font:=Font;
StringGrid1.Font:=Font;
StringGrid2.Font:=Font;
end;
end;
procedure TForm1.N21Click(Sender: TObject);
begin
N15.Click;
end;
procedure TForm1.N22Click(Sender: TObject);
begin
N3.Click;
end;
procedure TForm1.N23Click(Sender: TObject);
begin
N6.Click;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.Height:=150;
Form1.Width:=400;
Form1.Color:=clMaroon;
N6.Enabled:=False;
N3.Enabled:=False;
N18.Enabled:=False;
BitBtn2.Enabled:=False;
BitBtn4.Enabled:=False;
BitBtn5.Enabled:=False;
BitBtn6.Enabled:=False;
BitBtn10.Enabled:=False;
StringGrid2.Cells[0,0]:='i';
StringGrid2.Cells[1,0]:='Tp';
StringGrid2.Cells[2,0]:='Tп';
StringGrid2.Cells[3,0]:='i j';
StringGrid2.Cells[4,0]:='T(i j)';
StringGrid2.Cells[5,0]:='Tрн';
StringGrid2.Cells[6,0]:='Tро';
StringGrid2.Cells[7,0]:='Tпн';
StringGrid2.Cells[8,0]:='Tпо';
StringGrid2.Cells[9,0]:='Рп';
StringGrid2.Cells[10,0]:='Рсв';
Form1.Caption:='Расчет параметров сетевого графика';
end;
procedure TForm1.FormActivate(Sender: TObject);
begin
N11.Enabled:=False;
N17.Enabled:=False;
Label3.Enabled:=True;
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
N2.Click;
end;
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
N3.Click;
end;
procedure TForm1.BitBtn3Click(Sender: TObject);
begin
N9.Click;
end;
procedure TForm1.BitBtn4Click(Sender: TObject);
begin
N15.Click;
end;
procedure TForm1.BitBtn5Click(Sender: TObject);
begin
N11.Click;
end;
procedure TForm1.BitBtn6Click(Sender: TObject);
begin
N17.Click;
end;
procedure TForm1.BitBtn7Click(Sender: TObject);
begin
N14.Click;
end;
procedure TForm1.BitBtn8Click(Sender: TObject);
begin
N8.Click;
end;
procedure TForm1.BitBtn9Click(Sender: TObject);
begin
N12.Click;
end;
procedure TForm1.BitBtn10Click(Sender: TObject);
begin
N6.Click;
end;
procedure TForm1.BitBtn11Click(Sender: TObject);
begin
N10.Click;
end;
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not(key in['0'..'9']) then
key:=#27;
end;
procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);
begin
if not(key in['0'..'9']) then
key:=#27;
end;
end.
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, ComCtrls;
type
TForm2 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Button1: TButton;
Label6: TLabel;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
j,i:integer;
implementation
uses Unit1;
{$R *.dfm}
procedure TForm2.Button1Click(Sender: TObject);
begin
Close;
end;
procedure TForm2.FormCreate(Sender: TObject);
begin
Form2.Caption:='О программе';
end;
end.

[MyLastHit]

ох елки палки... автор, врядли найдется тот кто осилит все что вы написали.
И совсем непонятно в чем заключается вопрос.

[angelalso]

мне нужно на курсовую вот ЕТО зделать((((((((((((((((((((((
но в делфи я не умею работать((((

[profi]

StringGrid1.Cells[8,5]:=IntToStr(3);
StringGrid1.Cells[10,6]:=IntToStr(4);
StringGrid1.Cells[11,6]:=IntToStr(9);
StringGrid1.Cells[9,7]:=IntToStr(8);
StringGrid1.Cells[10,7]:=IntToStr(6);
StringGrid1.Cells[9,8]:=IntToStr(5);
StringGrid1.Cells[12,8]:=IntToStr(4);
StringGrid1.Cells[13,9]:=IntToStr(9);
StringGrid1.Cells[11,10]:=IntToStr(7);
StringGrid1.Cells[13,10]:=IntToStr(10);
StringGrid1.Cells[14,11]:=IntToStr(8);
StringGrid1.Cells[13,12]:=IntToStr(9);
StringGrid1.Cells[14,12]:=IntToStr(6);
StringGrid1.Cells[14,13]:=IntToStr(5);

Бред полный. Вырвиглазие блин. Автор, почитай про циклы.

но в делфи я не умею работать((((

Так тебе сюда: http://programmersforum.ru/forumdisplay.php?f=29

[angelalso]

понимаю что бред, в архиве есть данные