Навигация
Главная
Поиск
Форум
FAQ's
Ссылки
Карта сайта
Чат программистов

Статьи
-Delphi
-C/C++
-Turbo Pascal
-Assembler
-Java/JS
-PHP
-Perl
-DHTML
-Prolog
-GPSS
-Сайтостроительство
-CMS: PHP Fusion
-Инвестирование

Файлы
-Для программистов
-Компонеты для Delphi
-Исходники на Delphi
-Исходники на C/C++
-Книги по Delphi
-Книги по С/С++
-Книги по JAVA/JS
-Книги по Basic/VB/.NET
-Книги по PHP/MySQL
-Книги по Assembler
-PHP Fusion MOD'ы
-by Kest
Professional Download System
Реклама
Услуги

Автоматическое добавление статей на сайты на Wordpress, Joomla, DLE
Заказать продвижение сайта
Программа для рисования блок-схем
Инженерный калькулятор онлайн
Таблица сложения онлайн
Популярные статьи
OpenGL и Delphi... 65535
Форум на вашем ... 65535
HACK F.A.Q 65535
Бип из системно... 65535
Гостевая книга ... 65535
Invision Power ... 65535
Пример работы с... 65535
Содержание сайт... 65535
ТЕХНОЛОГИИ ДОСТ... 65535
Организация зап... 65535
Вызов хранимых ... 65535
Создание отчето... 65535
Программируемая... 65535
Эмулятор микроп... 65535
Подключение Mic... 65535
Создание потоко... 65535
Приложение «Про... 65535
Оператор выбора... 65535
Модуль Forms 65535
Имитационное мо... 61292
Реклама
Сейчас на сайте
Гостей: 9
На сайте нет зарегистрированных пользователей

Пользователей: 13,125
новичок: vikSv
Новости
Реклама
Выполняем курсовые и лабораторные по разным языкам программирования
Подробнее - курсовые и лабораторные на заказ
Delphi, Turbo Pascal, Assembler, C, C++, C#, Visual Basic, Java, GPSS, Prolog, 3D MAX, Компас 3D
Заказать программу для Windows Mobile, Symbian

Моделирование процесса передачи данных по магистрали с основным и резерв...
Диплом RSA, ЭЦП, сертификаты, шифрование на C#
Обратное размещение элементов ЭВС на Delphi + Пояснительная записка

Реклама



Подписывайся на YouTube канал о программировании, что бы не пропустить новые видео!

ПОДПИСЫВАЙСЯ на канал о программировании
Программа реализующая волновой алгоритм




Рисунок 3. Укрупненная блок-схема алгоритма

Развернутая схема алгоритма представлена на рисунках 4 и 5

Рисунок 4. Основная программа



Рисунок 5. Процедура распространения волны и построения трассы

Перечень идентификаторов, использованных при написании программы

DRP – двумерный массив ячеек ДРП;
a – одномерный массив, хранящий координаты ячеек старого фронта волны;
b – одномерный массив, хранящий координаты ячеек нового фронта волны;
xa, ya – координаты начала трассы;
xb, yb – координаты конца трассы;
z1 – номер текущей трассы;
z2 – общее число трасс;
c, d – логические переменные;
i,j,k,l,m,n,i1,j1,per,z,t,f – вспомогательные переменные

Скриншот программы:
Программа реализующая волновой алгоритм

Исходный текст:

Project6.dpr
program Project6;

uses
Forms,
Unit6 in 'Unit6.pas' {Form1};

{$R *.res}

begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.





Unit6.pas
unit Unit6;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids, Buttons, jpeg, ExtCtrls;

type
TForm1 = class(TForm)
StringGrid1: TStringGrid;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
GroupBox1: TGroupBox;
GroupBox2: TGroupBox;
Button6: TButton;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
GroupBox3: TGroupBox;
Button7: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer;
var CanSelect: Boolean);
procedure Button6Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure Button7Click(Sender: TObject);

private
{ Private declarations }
public
{ Public declarations }
end;
procedure BuildFind;
procedure Clean;
procedure First;
procedure Change;
procedure Output;
var
Form1: TForm1;
DRP: array[0..20,0..15] of integer;
a,b: array[1..100] of integer;
xa,ya,xb,yb,z,z1,z2:integer;
c:boolean;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
t:integer;
begin
z:=0;
z1:=1;
for t:=1 to z2 do
BuildFind;
Form1.Button1.Enabled:=False;
Form1.Button3.Enabled:=False;
Form1.Button4.Enabled:=False;
Form1.Button5.Enabled:=False;
Form1.Button7.Enabled:=False;
end;

procedure Clean;
var
l,n:integer;
begin
for l:=1 to 100 do
begin
a[l]:=0;
b[l]:=0;
end;
for l:=1 to 20 do
for n:=1 to 15 do
if (DRP[l,n]<>5) and (DRP[l,n]<>8) and (DRP[l,n]<>9) and
(DRP[l,n]<>10) and (DRP[l,n]<>11) and (DRP[l,n]<>6)
then DRP[l,n]:=0;
end;

procedure BuildFind;
var
i,j,k,l,m,n,i1,j1,per: integer;
d:boolean;
begin
Clean;
First;
Form1.StringGrid1.Font.Charset:=SYMBOL_CHARSET;
Form1.StringGrid1.Font.Size:=18;
a[1]:=xa;
a[2]:=ya;
m:=0;
d:=false;
per:=0;
repeat
i:=1;
j:=2;
l:=1;
n:=2;
k:=0;
c:=False;
repeat
if (a[i]-1>0) and (DRP[a[i]-1,a[j]]=0) and (DRP[a[i]-1,a[j]]<>5)
and (DRP[a[i]-1,a[j]]<>8) and (DRP[a[i]-1,a[j]]<>9) and (DRP[a[i]-1,a[j]]<>10)
and (DRP[a[i]-1,a[j]]<>11) and (DRP[a[i]-1,a[j]]<>6) and (DRP[a[i]-1,a[j]]<>21)
and (DRP[a[i]-1,a[j]]<>22) and (DRP[a[i]-1,a[j]]<>23) and (DRP[a[i]-1,a[j]]<>24)
and (DRP[a[i]-1,a[j]]<>25) and (DRP[a[i]-1,a[j]]<>26) and (DRP[a[i]-1,a[j]]<>27)
and (DRP[a[i]-1,a[j]]<>28)
then
begin
if k=0 then begin
if m=3 then m:=0;
DRP[a[i]-1,a[j]]:=m+1;
m:=DRP[a[i]-1,a[j]];
k:=k+1;
end
else begin
DRP[a[i]-1,a[j]]:=m;
end;
b[l]:=a[i]-1;
b[n]:=a[j];
l:=l+2;
n:=n+2;
c:=True;
end;
if (a[j]-1>0) and (DRP[a[i],a[j]-1]=0) and (DRP[a[i],a[j]-1]<>5)
and (DRP[a[i],a[j]-1]<>8) and (DRP[a[i],a[j]-1]<>9) and (DRP[a[i],a[j]-1]<>10)
and (DRP[a[i],a[j]-1]<>11) and (DRP[a[i],a[j]-1]<>6) and (DRP[a[i],a[j]-1]<>21)
and (DRP[a[i],a[j]-1]<>22) and (DRP[a[i],a[j]-1]<>23) and (DRP[a[i],a[j]-1]<>24)
and (DRP[a[i],a[j]-1]<>25) and (DRP[a[i],a[j]-1]<>26) and (DRP[a[i],a[j]-1]<>27)
and (DRP[a[i],a[j]-1]<>28)
then
begin
if k=0 then begin
if m=3 then m:=0;
DRP[a[i],a[j]-1]:=m+1;
m:=DRP[a[i],a[j]-1];
k:=k+1;
end
else begin
DRP[a[i],a[j]-1]:=m;
end;
b[l]:=a[i];
b[n]:=a[j]-1;
l:=l+2;
n:=n+2;
c:=True;
end;
if (a[i]+1<21) and (DRP[a[i]+1,a[j]]=0) and (DRP[a[i]+1,a[j]]<>5)
and (DRP[a[i]+1,a[j]]<>8) and (DRP[a[i]+1,a[j]]<>9) and (DRP[a[i]+1,a[j]]<>10)
and (DRP[a[i]+1,a[j]]<>11) and (DRP[a[i]+1,a[j]]<>6) and (DRP[a[i]+1,a[j]]<>21)
and (DRP[a[i]+1,a[j]]<>22) and (DRP[a[i]+1,a[j]]<>23) and (DRP[a[i]+1,a[j]]<>24)
and (DRP[a[i]+1,a[j]]<>25) and (DRP[a[i]+1,a[j]]<>26) and (DRP[a[i]+1,a[j]]<>27)
and (DRP[a[i]+1,a[j]]<>28)
then
begin
if k=0 then begin
if m=3 then m:=0;
DRP[a[i]+1,a[j]]:=m+1;
m:=DRP[a[i]+1,a[j]];
k:=k+1;
end
else begin
DRP[a[i]+1,a[j]]:=m;
end;
b[l]:=a[i]+1;
b[n]:=a[j];
l:=l+2;
n:=n+2;
c:=True;
end;
if (a[j]+1<16) and (DRP[a[i],a[j]+1]=0) and (DRP[a[i],a[j]+1]<>5)
and (DRP[a[i],a[j]+1]<>8) and (DRP[a[i],a[j]+1]<>9) and (DRP[a[i],a[j]+1]<>10)
and (DRP[a[i],a[j]+1]<>11) and (DRP[a[i],a[j]+1]<>6) and (DRP[a[i],a[j]+1]<>21)
and (DRP[a[i],a[j]+1]<>22) and (DRP[a[i],a[j]+1]<>23) and (DRP[a[i],a[j]+1]<>24)
and (DRP[a[i],a[j]+1]<>25) and (DRP[a[i],a[j]+1]<>26) and (DRP[a[i],a[j]+1]<>27)
and (DRP[a[i],a[j]+1]<>28)
then
begin
if k=0 then begin
if m=3 then m:=0;
DRP[a[i],a[j]+1]:=m+1;
m:=DRP[a[i],a[j]+1];
k:=k+1;
end
else begin
DRP[a[i],a[j]+1]:=m;
end;
b[l]:=a[i];
b[n]:=a[j]+1;
l:=l+2;
n:=n+2;
c:=True;
end;
i:=i+2;
j:=j+2;
if (c=False) and (a[i]=0) then begin
Form1.StringGrid1.Font.Charset:=RUSSIAN_CHARSET;
Form1.StringGrid1.Font.Size:=15;
Application.MessageBox('Невозможно построить трассу',
'Внимание!',MB_OK);
break;
end;
until a[i]=0;
Change;
i1:=1;
j1:=2;
repeat
if (a[i1]=xb) and (a[j1]=yb) then
begin
d:=True;
break;
end;
i1:=i1+2;
j1:=j1+2;
until a[i1]=0;
if (d=True) or (c=False) then break;
until a[1]=0;
i1:=xb;
j1:=yb;
m:=DRP[i1,j1];
repeat
if c=False then break;
if m=1 then m:=4;
if DRP[i1,j1-1]=m-1 then
begin
DRP[i1,j1-1]:=8;
if per=2 then DRP[a[1],a[2]]:=26;
if per=4 then DRP[a[1],a[2]]:=25;
j1:=j1-1;
m:=m-1;
per:=1;
a[1]:=i1;
a[2]:=j1;
end
else if DRP[i1-1,j1]=m-1 then
begin
DRP[i1-1,j1]:=10;
if per=1 then DRP[a[1],a[2]]:=28;
if per=3 then DRP[a[1],a[2]]:=27;
i1:=i1-1;
m:=m-1;
per:=2;
a[1]:=i1;
a[2]:=j1;
end
else if DRP[i1,j1+1]=m-1 then
begin
DRP[i1,j1+1]:=9;
if per=2 then DRP[a[1],a[2]]:=22;
if per=4 then DRP[a[1],a[2]]:=21;
j1:=j1+1;
m:=m-1;
per:=3;
a[1]:=i1;
a[2]:=j1;
end
else if DRP[i1+1,j1]=m-1 then
begin
DRP[i1+1,j1]:=11;
if per=1 then DRP[a[1],a[2]]:=24;
if per=3 then DRP[a[1],a[2]]:=23;
i1:=i1+1;
m:=m-1;
per:=4;
a[1]:=i1;
a[2]:=j1;
end;
until (i1=xa) and (j1=ya);
Form1.Button1.Enabled:=False;
Form1.Button3.Enabled:=True;
Form1.Button4.Enabled:=False;
Output;
end;

procedure First;
var
i,j:integer;
begin
for i:=1 to 20 do
for j:=1 to 15 do
begin
if Form1.StringGrid1.Cells[j-1,i-1]='X' then DRP[i,j]:=5;
if Form1.StringGrid1.Cells[j-1,i-1]=#240 then DRP[i,j]:=8;
if Form1.StringGrid1.Cells[j-1,i-1]=#239 then DRP[i,j]:=9;
if Form1.StringGrid1.Cells[j-1,i-1]=#242 then DRP[i,j]:=10;
if Form1.StringGrid1.Cells[j-1,i-1]=#241 then DRP[i,j]:=11;
if Form1.StringGrid1.Cells[j-1,i-1]=#198 then DRP[i,j]:=24;
if Form1.StringGrid1.Cells[j-1,i-1]=#196 then DRP[i,j]:=28;
if Form1.StringGrid1.Cells[j-1,i-1]=#201 then DRP[i,j]:=22;
if Form1.StringGrid1.Cells[j-1,i-1]=#202 then DRP[i,j]:=26;
if Form1.StringGrid1.Cells[j-1,i-1]=#197 then DRP[i,j]:=23;
if Form1.StringGrid1.Cells[j-1,i-1]=#195 then DRP[i,j]:=27;
if Form1.StringGrid1.Cells[j-1,i-1]=#199 then DRP[i,j]:=21;
if Form1.StringGrid1.Cells[j-1,i-1]=#200 then DRP[i,j]:=25;
if Form1.StringGrid1.Cells[j-1,i-1]='A'+Inttostr(z1) then begin
DRP[i,j]:=3;
xa:=i;
ya:=j;
end;
if Form1.StringGrid1.Cells[j-1,i-1]='B'+Inttostr(z1) then begin
xb:=i;
yb:=j;
end;
end;
end;

procedure Change;
var
f:integer;
begin
for f:=1 to 100 do
begin
a[f]:=0;
a[f]:=b[f];
b[f]:=0;
end;
end;

procedure Output;
var
i,j:integer;
begin
Form1.StringGrid1.Font.Size:=18;
Form1.StringGrid1.Font.Charset:=SYMBOL_CHARSET;
for i:=0 to 19 do
for j:=0 to 14 do
begin
if DRP[i+1,j+1]=5 then Form1.StringGrid1.Cells[j,i]:=#251;
end;
for i:=0 to 19 do
for j:=0 to 14 do
begin
if DRP[i+1,j+1]=8 then Form1.StringGrid1.Cells[j,i]:=#240;
if DRP[i+1,j+1]=9 then Form1.StringGrid1.Cells[j,i]:=#239;
if DRP[i+1,j+1]=10 then Form1.StringGrid1.Cells[j,i]:=#242;
if DRP[i+1,j+1]=11 then Form1.StringGrid1.Cells[j,i]:=#241;
if DRP[i+1,j+1]=21 then Form1.StringGrid1.Cells[j,i]:=#199;
if DRP[i+1,j+1]=22 then Form1.StringGrid1.Cells[j,i]:=#201;
if DRP[i+1,j+1]=23 then Form1.StringGrid1.Cells[j,i]:=#197;
if DRP[i+1,j+1]=24 then Form1.StringGrid1.Cells[j,i]:=#198;
if DRP[i+1,j+1]=25 then Form1.StringGrid1.Cells[j,i]:=#200;
if DRP[i+1,j+1]=26 then Form1.StringGrid1.Cells[j,i]:=#202;
if DRP[i+1,j+1]=27 then Form1.StringGrid1.Cells[j,i]:=#195;
if DRP[i+1,j+1]=28 then Form1.StringGrid1.Cells[j,i]:=#196;

end;
DRP[xa,ya]:=3;
if z1=1 then begin
Form1.StringGrid1.Cells[ya-1,xa-1]:=#129;
if c=True then DRP[xa,ya]:=6;
Form1.StringGrid1.Cells[yb-1,xb-1]:=#129;
if c=true then DRP[xb,yb]:=6;
end;
if z1=2 then begin
Form1.StringGrid1.Cells[ya-1,xa-1]:=#130;
if c=True then DRP[xa,ya]:=6;
Form1.StringGrid1.Cells[yb-1,xb-1]:=#130;
if c=true then DRP[xb,yb]:=6;
end;
if z1=3 then begin
Form1.StringGrid1.Cells[ya-1,xa-1]:=#131;
if c=True then DRP[xa,ya]:=6;
Form1.StringGrid1.Cells[yb-1,xb-1]:=#131;
if c=true then DRP[xb,yb]:=6;
end;
if z1=4 then begin
Form1.StringGrid1.Cells[ya-1,xa-1]:=#132;
if c=True then DRP[xa,ya]:=6;
Form1.StringGrid1.Cells[yb-1,xb-1]:=#132;
if c=true then DRP[xb,yb]:=6;
end;
if z1=5 then begin
Form1.StringGrid1.Cells[ya-1,xa-1]:=#133;
if c=True then DRP[xa,ya]:=6;
Form1.StringGrid1.Cells[yb-1,xb-1]:=#133;
if c=true then DRP[xb,yb]:=6;
end;
z1:=z1+1;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
l,n:integer;
begin
Form1.StringGrid1.Font.Charset:=RUSSIAN_CHARSET;
Form1.StringGrid1.Font.Size:=15;
for l:=0 to 19 do
for n:=0 to 14 do
Form1.StringGrid1.Cells[n,l]:='';
for l:=1 to 20 do
for n:=1 to 15 do
DRP[l,n]:=0;
z1:=0;
Form1.Button1.Enabled:=False;
Form1.Button4.Enabled:=False;
Form1.Button3.Enabled:=True;
Form1.Button5.Enabled:=True;
Form1.Button7.Enabled:=True;
end;

procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol,
ARow: Integer; var CanSelect: Boolean);
begin
if z1=0 then z1:=1;
If (z=1) and (Form1.StringGrid1.Cells[ACol,ARow]='') then
begin
Form1.StringGrid1.Cells[ACol,ARow]:='A'+Inttostr(z1);
Form1.Button4.Enabled:=True;
Form1.Button5.Enabled:=True;
z:=0;
end;
If (z=2) and (Form1.StringGrid1.Cells[ACol,ARow]='') then
begin
z2:=z1;
Form1.StringGrid1.Cells[ACol,ARow]:='B'+Inttostr(z1);
Form1.Button1.Enabled:=True;
Form1.Button3.Enabled:=True;
Form1.Button5.Enabled:=True;
z:=0;
z1:=z1+1;
end;
If (z=3) and (Form1.StringGrid1.Cells[ACol,ARow]='')
then Form1.StringGrid1.Cells[ACol,ARow]:='X';
If (z=4) and (Form1.StringGrid1.Cells[ACol,ARow]='X')
then Form1.StringGrid1.Cells[ACol,ARow]:='';
if z1=6 then begin
Form1.Button3.Enabled:=False;
Form1.Button4.Enabled:=False;
exit;
end;
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
Form1.Close;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
z:=1;
Form1.Button3.Enabled:=False;
Form1.Button1.Enabled:=False;
Form1.Button5.Enabled:=False;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
z:=2;
Form1.Button4.Enabled:=False;
Form1.Button5.Enabled:=False;
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
z:=3;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
Form1.StringGrid1.Font.Charset:=RUSSIAN_CHARSET;
Form1.StringGrid1.Font.Size:=15;
Form1.Button1.Enabled:=False;
Form1.Button4.Enabled:=False;
end;

procedure TForm1.Button7Click(Sender: TObject);
begin
z:=4;
end;

end.






Unit6.dfm
object Form1: TForm1
Left = 298
Top = 145
Width = 624
Height = 577
BorderIcons = [biSystemMenu]
Caption = #1042#1086#1083#1085#1086#1074#1086#1081' '#1072#1083#1075#1086#1088#1080#1090#1084' '#1090#1088#1072#1089#1089#1080#1088#1086#1074#1082#1080
Color = clGradientActiveCaption
Font.Charset = OEM_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
OnShow = FormShow
DesignSize = (
616
550)
PixelsPerInch = 96
TextHeight = 14
object StringGrid1: TStringGrid
Left = 8
Top = 16
Width = 393
Height = 523
Anchors = [akLeft, akTop, akRight, akBottom]
Color = clWhite
ColCount = 15
DefaultColWidth = 25
DefaultRowHeight = 25
FixedColor = clSilver
FixedCols = 0
RowCount = 20
FixedRows = 0
Font.Charset = RUSSIAN_CHARSET
Font.Color = clWindowText
Font.Height = -20
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
OnSelectCell = StringGrid1SelectCell
end
object GroupBox1: TGroupBox
Left = 408
Top = 11
Width = 201
Height = 222
TabOrder = 1
object Button5: TButton
Left = 8
Top = 144
Width = 185
Height = 25
Caption = #1059#1089#1090#1072#1085#1086#1074#1080#1090#1100' '#1079#1072#1087#1088#1077#1097#1077#1085#1085#1099#1077' '#1103#1095#1077#1081#1082#1080
TabOrder = 0
OnClick = Button5Click
end
object Button4: TButton
Left = 8
Top = 104
Width = 185
Height = 25
Caption = #1059#1089#1090#1072#1085#1086#1074#1080#1090#1100' '#1082#1086#1085#1077#1094' '#1090#1088#1072#1089#1089#1099
TabOrder = 1
OnClick = Button4Click
end
object Button3: TButton
Left = 8
Top = 64
Width = 185
Height = 25
Caption = #1059#1089#1090#1072#1085#1086#1074#1080#1090#1100' '#1085#1072#1095#1072#1083#1086' '#1090#1088#1072#1089#1089#1099
TabOrder = 2
OnClick = Button3Click
end
object Button1: TButton
Left = 8
Top = 24
Width = 185
Height = 25
Caption = #1055#1086#1089#1090#1088#1086#1080#1090#1100' '#1090#1088#1072#1089#1089#1091
TabOrder = 3
OnClick = Button1Click
end
object Button7: TButton
Left = 8
Top = 184
Width = 185
Height = 25
Caption = #1054#1095#1080#1089#1090#1080#1090#1100' '#1103#1095#1077#1081#1082#1091
TabOrder = 4
OnClick = Button7Click
end
end
object GroupBox2: TGroupBox
Left = 408
Top = 432
Width = 201
Height = 105
TabOrder = 2
object Button2: TButton
Left = 8
Top = 24
Width = 185
Height = 25
Caption = #1057#1073#1088#1086#1089
TabOrder = 0
OnClick = Button2Click
end
object Button6: TButton
Left = 8
Top = 64
Width = 185
Height = 25
Caption = #1042#1099#1093#1086#1076
TabOrder = 1
OnClick = Button6Click
end
end
object GroupBox3: TGroupBox
Left = 408
Top = 240
Width = 201
Height = 187
TabOrder = 3
object Label2: TLabel
Left = 5
Top = 36
Width = 188
Height = 13
Caption = '"'#1040#1074#1090#1086#1084#1072#1090#1080#1079#1072#1094#1080#1103' '#1082#1086#1085#1089#1090#1088#1091#1082#1090#1086#1088#1089#1082#1086#1075#1086' '#1080
Font.Charset = RUSSIAN_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label1: TLabel
Left = 25
Top = 12
Width = 152
Height = 13
Caption = #1050#1091#1088#1089#1086#1074#1072#1103' '#1088#1072#1073#1086#1090#1072' '#1087#1086' '#1087#1088#1077#1076#1084#1077#1090#1091
Font.Charset = RUSSIAN_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label3: TLabel
Left = 11
Top = 52
Width = 182
Height = 13
Caption = #1090#1077#1093#1085#1086#1083#1086#1075#1080#1095#1077#1089#1082#1086#1075#1086' '#1087#1088#1086#1077#1082#1090#1080#1088#1086#1074#1072#1085#1080#1103'"'
Font.Charset = RUSSIAN_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label4: TLabel
Left = 75
Top = 73
Width = 54
Height = 16
Caption = #1085#1072' '#1090#1077#1084#1091':'
Font.Charset = RUSSIAN_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label5: TLabel
Left = 5
Top = 94
Width = 190
Height = 13
Caption = '"'#1058#1088#1072#1089#1089#1080#1088#1086#1074#1082#1072' '#1087#1077#1095#1072#1090#1085#1099#1093' '#1089#1086#1077#1076#1080#1085#1077#1085#1080#1081'"'
Font.Charset = RUSSIAN_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label6: TLabel
Left = 69
Top = 124
Width = 108
Height = 13
Caption =
Font.Charset = RUSSIAN_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label7: TLabel
Left = 126
Top = 140
Width = 67
Height = 13
Caption =
Font.Charset = RUSSIAN_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label8: TLabel
Left = 89
Top = 164
Width = 32
Height = 13
Caption = '2007'#1075'.'
Font.Charset = RUSSIAN_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
end
end



Опубликовал Kest Декабрь 01 2009 15:39:17 · 1 Комментариев · 15642 Прочтений · Для печати

• Не нашли ответ на свой вопрос? Тогда задайте вопрос в комментариях или на форуме! •


Комментарии
Серега Декабрь 02 2010 02:02:09
А можно как-нибудь пояснить работу проги...
Просто не все строки понятны...
Заранее спасибоsmiley
Добавить комментарий
Имя:



smiley smiley smiley smiley smiley smiley smiley smiley smiley
Запретить смайлики в комментариях

Введите проверочный код:* =
Рейтинги
Рейтинг доступен только для пользователей.

Пожалуйста, залогиньтесь или зарегистрируйтесь для голосования.

Нет данных для оценки.
Гость
Имя

Пароль



Вы не зарегистрированны?
Нажмите здесь для регистрации.

Забыли пароль?
Запросите новый здесь.
Поделиться ссылкой
Фолловь меня в Твиттере! • Смотрите канал о путешествияхКак приготовить мидии в тайланде?
Загрузки
Новые загрузки
iChat v.7.0 Final...
iComm v.6.1 - выв...
Visual Studio 200...
CodeGear RAD Stud...
Шаблон для новост...

Случайные загрузки
Delphix Sample [И...
Алгоритм DES шифр...
C++ Стандартная б...
Расширенный загру...
Blib [Исходник на...
Работа с картотеками
AdBlaster v2.5 - ...
Abbrevia
Модифицированная ...
DiskInfo
Trojan [Исходник ...
Indy in Depth Глу...
Распознавание тек...
Abc_component
Ильдар Хабибуллин...
Панель поиска
Фундаментальные а...
Голосование для ...
Система баннеро-о...
Анимированное поя...

Топ загрузок
Приложение Клие... 100548
Delphi 7 Enterp... 92651
Converter AMR<-... 20109
GPSS World Stud... 15768
Borland C++Buil... 13295
Borland Delphi ... 9301
Turbo Pascal fo... 7124
Калькулятор [Ис... 5264
Visual Studio 2... 5042
FreeSMS v1.3.1 3564
Случайные статьи
Cannot Read or Wri...
Коды классов
Предварительная об...
Какие бонусные про...
Класс TGraphic
Изучение средств D...
Механика создания ...
Как быть, если на ...
Выполнение операци...
Создание стандартн...
Иконка в адресной ...
Специфика построен...
ключ для туннельно...
Выделение памяти я...
Сейчас в Интернете...
Разработчики
Глава 1. СОМ как у...
Виртуальные дестру...
Элементарные примеры
COM и защита
— отправлять сообщ...
Формирование запро...
Все о языках-прогр...
Работа с MySql...
Настройки программ...
Статистика



Друзья сайта
Программы, игры


Полезно
В какую объединенную сеть входит классовая сеть? Суммирование маршрутов Занимают ли таблицы память маршрутизатора?