Помогите новичку с такой задачей в delphi 7.0

angelalso · #1 23.05.2011, 19:50

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

angelalso · #2 23.05.2011, 19:51

Код:

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 · #3 23.05.2011, 19:52

продолжение

Код:

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 · #4 23.05.2011, 19:52

продолжение

Код:

//Размер уменьшить
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 · #5 23.05.2011, 19:53

продолжение

Код:

//Цвет
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 · #6 23.05.2011, 19:54

продолжение

Код:

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.

Snake22 · #7 23.05.2011, 20:48

тегами хотя бы пользоваться или лучше б вообще сами файлы выложил...
а в чём именно трудности возникли?
создаешь два юнита,весь код не смарелно вроде два.
форму вторую,компоненты которые используются кладешь на форму,там вроде все стандартные.
ну и сам код копируешь и вставляешь в дельфи

angelalso · #8 23.05.2011, 21:04

сделал 2 unit-ы
второй начал с uses Unit2;
но delphi выдал
[Error] Unit1.pas(103): '.' expected but end of file found
[Error] Unit1.pas(56): Unsatisfied forward or external declaration: 'TForm1.N2Click'
[Error] Unit1.pas(57): Unsatisfied forward or external declaration: 'TForm1.N3Click'
[Error] Unit1.pas(58): Unsatisfied forward or external declaration: 'TForm1.N6Click'
[Error] Unit1.pas(59): Unsatisfied forward or external declaration: 'TForm1.N8Click'
[Error] Unit1.pas(60): Unsatisfied forward or external declaration: 'TForm1.N10Click'
[Error] Unit1.pas(61): Unsatisfied forward or external declaration: 'TForm1.N11Click'
[Error] Unit1.pas(62): Unsatisfied forward or external declaration: 'TForm1.N12Click'
[Error] Unit1.pas(63): Unsatisfied forward or external declaration: 'TForm1.N13Click'
[Error] Unit1.pas(64): Unsatisfied forward or external declaration: 'TForm1.N14Click'
[Error] Unit1.pas(65): Unsatisfied forward or external declaration: 'TForm1.N15Click'
[Error] Unit1.pas(66): Unsatisfied forward or external declaration: 'TForm1.N16Click'
[Error] Unit1.pas(67): Unsatisfied forward or external declaration: 'TForm1.N17Click'
[Error] Unit1.pas(68): Unsatisfied forward or external declaration: 'TForm1.N19Click'
[Error] Unit1.pas(69): Unsatisfied forward or external declaration: 'TForm1.N20Click'
[Error] Unit1.pas(70): Unsatisfied forward or external declaration: 'TForm1.N21Click'
[Error] Unit1.pas(71): Unsatisfied forward or external declaration: 'TForm1.N22Click'
[Error] Unit1.pas(72): Unsatisfied forward or external declaration: 'TForm1.N23Click'
[Error] Unit1.pas(73): Unsatisfied forward or external declaration: 'TForm1.FormCreate'
[Error] Unit1.pas(74): Unsatisfied forward or external declaration: 'TForm1.FormActivate'
[Error] Unit1.pas(75): Unsatisfied forward or external declaration: 'TForm1.BitBtn1Click'
[Error] Unit1.pas(76): Unsatisfied forward or external declaration: 'TForm1.BitBtn2Click'
[Error] Unit1.pas(77): Unsatisfied forward or external declaration: 'TForm1.BitBtn3Click'
[Error] Unit1.pas(78): Unsatisfied forward or external declaration: 'TForm1.BitBtn4Click'
[Error] Unit1.pas(79): Unsatisfied forward or external declaration: 'TForm1.BitBtn5Click'
[Error] Unit1.pas(80): Unsatisfied forward or external declaration: 'TForm1.BitBtn6Click'
[Error] Unit1.pas(81): Unsatisfied forward or external declaration: 'TForm1.BitBtn7Click'
[Error] Unit1.pas(82): Unsatisfied forward or external declaration: 'TForm1.BitBtn8Click'
[Error] Unit1.pas(83): Unsatisfied forward or external declaration: 'TForm1.BitBtn9Click'
[Error] Unit1.pas(84): Unsatisfied forward or external declaration: 'TForm1.BitBtn10Click'
[Error] Unit1.pas(85): Unsatisfied forward or external declaration: 'TForm1.BitBtn11Click'
[Error] Unit1.pas(86): Unsatisfied forward or external declaration: 'TForm1.Edit1KeyPress'
[Error] Unit1.pas(87): Unsatisfied forward or external declaration: 'TForm1.StringGrid1KeyPress'
[Fatal Error] Project1.dpr(6): Could not compile used unit 'Unit1.pas'

Snake22 · #9 23.05.2011, 21:09

держи собрал весь код в рабочее состояние.
НО! ни одна конпка не подписана,ни один пункт в меню не подписан (потому что ты ничего конкретно не дал,ни задачи котрую прога делает ничего вобщем...телепаты отдыхают).и четыре компонента я закомментировал,потому что хз где они в дельфе ненашол)

// ToolButton1: TToolButton;
//ToolButton2: TToolButton;
//ToolButton3: TToolButton;

angelalso · #10 23.05.2011, 21:21

Большое спасибо, буду пробовать делать дальше, програма должна делать Расчёт параметров сетевого графика, в архиве всьо есть написано, но я не умею работать в делфи(((((((((((((

Snake22 · #11 23.05.2011, 21:41

держи немного обновил,события теперь работаеют и подписал кое какие кнопки меню

angelalso · #12 23.05.2011, 21:50

очень благодарю.

alenka89 · #13 25.05.2011, 13:14

помогите пожалуйста!!!!мне нужно создать расписание на каждый день школы танцев, я просто непонимаю как это делать

у меня есть база данных на ms sql server 2000 а приложение написано на делфи7, кто может помочь пишите на aleshik6_89@mail.ru полезная помощь за отдельную плату

Страдалецъ · #14 25.05.2011, 18:29

alenka89 - на форуме принято оформлять свой вопрос в отдельную тему, а не прилеплять к чужой. И что-то мне подсказывает, что данный вопрос должен быть опубликован в разделе Работа.

Опции темы	Поиск в этой теме
Версия для печати Отправить на Email	Поиск в этой теме: Расширенный поиск
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид

	Сайт	Форум	FAQ	RSS лента	Прочее
	Новости Исходники Компоненты Статьи Добавить исходник Поиск	Правила Поиск Сообщения за сегодня Пользователи Кто на форуме?	Delphi FAQ - 5000 статей DRKB - 4500 статей (ZIP-архив) Справочник функций и процедур Delphi Delphi Programming Guide Indy in Depth. Глубины Indy	Новости сайта Новости форума	Ссылки и Баннеры Donate О сайте Реклама Контакты