Программа предназначена для составления списка тетрад по заданной польской записи арифметического (логического) выражения.
Идентификаторы:
num – номер вершины стека;
znak – оператор (унарный или бинарный);
id1 – первый операнд в тераде;
id2 – второй операнд в тераде;
prom – переменная, содержащая промежуточные данные
Описание логической структуры
Исполняемый файл программы – «PolTetr.exe». Программа загружает из файла load.txt выражение в польской записи, затем выполняет преобразование в список тетрад. Полученные результаты можно сохранить в файл rezultat.txt.
Схема программы
Необходимо представить заданное выражение pol (в польской записи) в виде списка тетрад. Алгоритм формирования такого списка представлен на рисунке 3.4.1. Алгоритм использует стек Stek[top], в котором хранятся промежуточные данные или полученное результирующее арифметическое (логическое) выражение. По значению pol [i] выбирается положение операндов и операторов в формируемом списке.
Примечание: Символ ‘#’ означает унарную операцию – отрицание.
Рис. 3.4.1. Блок-схема основной процедуры
Схема основной программы представлена ниже, на рисунке 3.4.2.
Рис. 3.4.2. Схема основной программы
Скриншот программы:
Исходный текст программы:
PolTetr.dpr
program Project1;
uses
Forms,
Unit1 in 'Unit1.pas' {Tetrad},
Unit2 in 'Unit2.pas' {Form2};
{$R *.res}
begin
Application.Initialize;
Form2:=TForm2.Create(Application);
Form2.ShowModal;
Application.CreateForm(TTetrad, Tetrad);
Application.CreateForm(TForm2, Form2);
Application.Run;
end.
Unit1.pas
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, XPMan, Menus, Buttons;
type
TTetrad = class(TForm)
Edit1: TEdit;
Memo1: TMemo;
Label1: TLabel;
Label2: TLabel;
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
XPManifest1: TXPManifest;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
SpeedButton3: TSpeedButton;
SpeedButton4: TSpeedButton;
procedure N2Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
procedure SpeedButton3Click(Sender: TObject);
procedure SpeedButton4Click(Sender: TObject);
procedure N6Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Tetrad: TTetrad;
implementation
{$R *.dfm}
type
tetr=record
znak:char;
id1,id2:string[10];
prom:string[10];
end;
procedure TTetrad.SpeedButton2Click(Sender: TObject);
var
f:textfile;
temp:string[20];
begin
Assignfile (f, 'load.txt' );
Reset (f);
Readln (f,temp);
edit1.Text:=temp;
end;
procedure TTetrad.N2Click(Sender: TObject);
begin
SpeedButton2.Click;
end;
procedure TTetrad.N3Click(Sender: TObject);
begin
SpeedButton1.Click;
end;
procedure TTetrad.N4Click(Sender: TObject);
begin
SpeedButton3.Click;
end;
procedure TTetrad.N5Click(Sender: TObject);
begin
Close;
end;
procedure TTetrad.SpeedButton1Click(Sender: TObject);
var
pol,num:string;
i,m:integer;
T:array [1..255]of tetr;
stek:array[1..255] of string[20];
begin
Memo1.Lines.Clear;
pol:=Edit1.Text;
top:=1;
m:=0;
for i:=1 to length(pol) do
case pol[i] of
'a'..'z','0'..'9':begin
stek[top]:=stek[top]+pol[i];
end;
'+','-','*','/','^':begin
m:=m+1;
T[m].znak:=pol[i];
T[m].id1:=stek[top-1];
T[m].id2:=stek[top];
str(m,num);
T[m].prom:='T'+num;
top:=top-1;
stek[top]:='T'+num;
end;
'#':begin
m:=m+1;
T[m].znak:='-';
T[m].id1:=stek[top];
T[m].id2:=' ';
str(m,num);
T[m].prom:='T'+num;
stek[top]:='T'+num;
end;
' ':begin
top:=top+1;
end;
end;
for i:=1 to m do
Memo1.Lines.Add('( '+T[i].znak+', '+T[i].id1+', '+T[i].id2+', '+T[i].prom+' )')
end;
procedure TTetrad.SpeedButton3Click(Sender: TObject);
begin
Memo1.Lines.SaveToFile('rezultat.txt');
end;
procedure TTetrad.SpeedButton4Click(Sender: TObject);
begin
Close;
end;
procedure TTetrad.N6Click(Sender: TObject);
begin
MessageBox(Handle, '',
'Информация', MB_APPLMODAL+MB_ICONINFORMATION+MB_OK);
end;
end.
Unit1.dfm
object Tetrad: TTetrad
Left = 271
Top = 2
Width = 466
Height = 564
HorzScrollBar.Color = clWhite
HorzScrollBar.ParentColor = False
Caption = #1060#1086#1088#1084#1080#1088#1086#1074#1072#1085#1080#1077' '#1089#1087#1080#1089#1082#1072' '#1090#1077#1090#1088#1072#1076
Color = clActiveCaption
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -15
Font.Name = 'Times New Roman'
Font.Style = [fsItalic]
Icon.Data = {
0000010001002020100001000400E80200001600000028000000200000004000
0000010004000000000080020000000000000000000000000000000000000000
0000000080000080000000808000800000008000800080800000C0C0C0008080
80000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
0000000055555500000077777000000000000005DDDDDD500007777770000000
0000005DDDDDDDD00444477700000000000000DDD00000D04444777000000007
777000DD000000044447770000000007777700DD000000444477700000004440
777700DD5000045444770000000044444077700DD55555D44770000000000444
4407770DDDDDDDD47700000000000004444777700DDDDD477077777770000000
4444077000044447707777777700000004444777077444499999990077700000
0044447777444479999999900770000000044477444444779907799907700004
4000444447044477990770990770000444444447770444779907709977000000
0000044077044777990777997700000000000044070447709907799770000000
0000004407744770999999977700000000000004474447709999990077000000
0000000444444770990799907700000000000000444477709907799077000000
0000000044447700990779977700000000000000044477009977799770000000
0000000004447700997799970000000000000000044477099999990000000000
0000000000440709999990000000000000000000004407000000000000000000
0000000000040000000000000000000000000000000400000000000000000000
000000000004000000000000000000000000000000000000000000000000FFF0
3F07FFE01E07FFC0180FFFC7D01FE1CFE03FE0CFC07F10C780FF046001FF8220
03FFE0180407F09E0403F8080031FC000019FE000209E7020249E0020243FF92
0203FFCA1207FFC81003FFE01033FFE01213FFF01213FFF03203FFF83007FFF8
300FFFF8203FFFFCA07FFFFCBFFFFFFEFFFFFFFEFFFFFFFEFFFFFFFFFFFF}
Menu = MainMenu1
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 17
object Label1: TLabel
Left = 160
Top = 192
Width = 159
Height = 24
Caption = #1057#1087#1080#1089#1086#1082' '#1090#1077#1090#1088#1072#1076
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -19
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold, fsItalic]
ParentFont = False
end
object Label2: TLabel
Left = 144
Top = 16
Width = 179
Height = 24
Caption = #1055#1086#1083#1100#1089#1082#1072#1103' '#1079#1072#1087#1080#1089#1100
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -19
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold, fsItalic]
ParentFont = False
end
object SpeedButton1: TSpeedButton
Left = 176
Top = 144
Width = 121
Height = 41
Caption = #1042#1099#1087#1086#1083#1085#1080#1090#1100
Glyph.Data = {
76020000424D7602000000000000760000002800000020000000200000000100
0400000000000002000000000000000000001000000010000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
7777777777777777777700000000000077777777777777777777078889888880
777777777777777777770F7799977780000000000000000000070F7999977780
888888888888888888070F999999778087777777888888888807099977997780
8777778888888888880709977799978087777888888888888807097777799980
877788888888880000000F7777799990877880000000008888880F7777779990
878807777777777877770FFFFFFFF99088807777777777777777000000000000
88077FFFFFFFF7777777777077777778807FFFFFFFFFFFF77FFF777077777788
0FFFFF777FFFFFFFFFFF7770777778807FFF00077FFFFFFFFFFF777044488807
FFF000077FFFFFFFFFFF77704444440FFF0077077FFFFFFFFFFF77707777CC7F
F0807007FFFFFFF0000077707777040F0C807077FFFFFF00770777707770F740
4E40077FFFFFFF07770777707770FF7044E74C7FFFFFF077770777707770FF00
8044E4CFFFFFF0777707777077700FF708044E74CFFF07777707777077770FFF
007FC44E44CF077777077770000000FF70FFFF44E740000000077777777770FF
FFFFFFFC44E4C077777777777777770FFFFFF8F8004E74C77777777777777770
FFFF8F8077C44E44C7777777777777770FFF0007777704E74077777777777777
7000777777777C44E47777777777777777777777777777C04777}
OnClick = SpeedButton1Click
end
object SpeedButton2: TSpeedButton
Left = 176
Top = 80
Width = 121
Height = 41
Caption = #1047#1072#1075#1088#1091#1079#1080#1090#1100
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -15
Font.Name = 'Times New Roman'
Font.Style = [fsItalic]
Glyph.Data = {
76020000424D7602000000000000760000002800000020000000200000000100
0400000000000002000000000000000000001000000010000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00770000777777
7777777777777777777770600000000000000000000000000077066077777777
7777777777777777007700600000000000000000000000008077060000FFFFF7
FFFFFFFFF0087770807706E660EFFFF7FFFFFFFFF0808770807706E666077777
7777777770780870807706E6660EEEE7EEEEEEEEE0F78080807706E6600FFFF7
FFFFFFFFF0FF7800807706E660EFF8F7FFFFFFFFF0000000807706E666077708
8777777777777770807706E6660EEE80086EEEEEEEEEEEE0807706E6600FFFF0
E0077FFFFFFFFFF0807706E660EFFFF806C077FFFFFFFFF0807706E666077777
0E6C088777777770807706E6660EEEE7E0E6C066EEEEEEE0807706E6600FFFF7
FF0E6C077FFFFFF0807706E660EFFFF7FFF0E6C077FFFFF0807706E666077777
77770E6C08877770807706E6660EEEE7EEEEE0E6C066EEE0807706E6600FFFF7
FFFFFF0E6C077FF0807706E660EFFFF7FFFFFFF0E6C077F0807706E666077777
777777770E6C0880807706E6660EEEE7EEEEEEEEE0E6C080807706E6600FFFF7
FFFFFFFFFF0E4C08807706E660EFFFF7FFFFFFFFFFF0E6C0807706E666077777
7777777777770E6C087706E6660FFFF7FFFFFFFFFFF0F0E6C07770E660000000
000000000000070E6C0777000777777777777777777770F0E6C0777777777777
777777777777770F0E6077777777777777777777777777700007}
ParentFont = False
OnClick = SpeedButton2Click
end
object SpeedButton3: TSpeedButton
Left = 184
Top = 416
Width = 113
Height = 41
Caption = #1057#1086#1093#1088#1072#1085#1080#1090#1100
Glyph.Data = {
F6060000424DF606000000000000360000002800000018000000180000000100
180000000000C006000000000000000000000000000000000000C8C8C8C8C8C8
C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8
C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8
C8C8C8C8C8C8C8C8997D6C6C462E624332715A4CA199949A938F9994909A9693
A29E9CACAAA9B8B7B6C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8
C8C8C8C8C8C8C8C8C8C8C8C8C8BCBBBB98745E5F30124D20066D4934EBEBEBEB
EBEBEBEBEBEBEBEBEBEBEBE8E7E7CCC8C5BEB7B1AAA0999E918A998D85958982
968D88A19B98ACA9A7B8B7B6C8C8C8C8C8C8C8C8C8BABABA98745E6331135524
077B5641F0F0F0F0F0F0F0EFF0EFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEF
EFEEEEEEEEEEEEEEEEEEEEE9E8E873472C6D3C1EA19B97C8C8C8C8C8C8B9B9B8
99745E633113552407825E4AF4F4F4F4F4F4F4F4F4F4F4F4F4F3F4F3F3F3F3F3
F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F2F2F2F2F2F2794C316B35129B948FC8
C8C8C8C8C8B9B8B899745E623012552407866450F9F8F8F8F8F9F8F8F8F8F8F8
F8F8F8F8F8F8F7F8F8F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F6F7F7F6F7F78050
33723A16A19A96C8C8C8C8C8C8B6B6B599745E623012552407896854FDFDFDFD
FDFDFDFDFDFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFCFBFBFBFCFBFBFBFB
FBFBFBFBFBFB8654357A3F19A49F9CC8C8C8C8C8C8B4B3B399745E6130125524
078B6A56FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEFFFEFEFEFE
FEFEFEFEFEFEFEFEFEFEFEFEFEFE8B563581441CA7A3A1C8C8C8C8C8C8B3B2B1
98745E612F125524078C6B57FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF905733884920ABA7A4C8
C8C8C8C8C8B2B1B099745E612F125524078C6B58FFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF9457
308F4D23AEABA9C8C8C8C8C8C8B1AFAE99745D602F115524078D6C59FFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFF98552B965226B3B0AEC8C8C8C8C8C8AFADAC99745E602F115524
07683C23AA9283AE9484B19686B59887B89B89BB9D8ABE9F8CC1A18DC4A38EC6
A48FC8A690CAA790CBA891C8A0879C55279C5629B7B5B3C8C8C8C8C8C8AEACAA
99745E5F2E115524075524075A2709612C0C693110703613763B167D3F198444
1C8A481F904D229550249A53269E5628A25929A55B2BA45A2BA25B2DBAB9B8C8
C8C8C8C8C8ACA9A899745E5E2D105524075725075E2A0A652F0E6D3411743915
7B3E1882431B89481E904D219651249C5527A15829A55C2BAA5E2DAD612EAB60
2EA8602FBCBBBAC8C8C8C8C8C8AAA8A699755E5D2D105524075A2708612C0C69
32106D3715743E1C7E48258C5533996340A06A48A46E4CA5704EA06C4B9F6239
B16330B46632B26432AD6433BDBCBCC8C8C8C8C8C8AAA7A69A755E5C2C105524
075C290A642F0D6A3C208788888C8C8C9E9E9EAAAAAAD1D1D1F6F6F6E5E6E6CE
CFCFA9A9AA7A6E65B86934BC6C36B96A35B26937C8C8C8C8C8C8C8C8C8A9A6A5
9A755F5B2C0F5725085F2B0B67300F6F4429959595909090B4B4B5ACACACC8C8
C8F4F4F4A0A0A0ABABABBBBCBC877C74BF6D37C47039C06E38B76D3CC8C8C8C8
C8C8C8C8C8A8A5A39B765F5A2B0F592708612C0C69321073482EA4A4A4A2A2A2
6C6C6D737373D2D2D2EBEBEB1B1B1B707070CBCBCC958880C6723ACB763CC773
3BBC7341C8C8C8C8C8C8C8C8C8A7A4A29B765F5A2B0F5A2809622D0D6B331177
4D33AEAFAFA2A2A2808080747474BCBCBCE7E7E71E1E1E797979D6D6D7A19389
CB753CD1793FC8753CB38261C8C8C8C8C8C8C8C8C8A6A3A19B765F5B2B0F5B28
09642E0E6C34117B5137B8B8B8B3B3B38B8B8BACACACEDEDEDEDEDED808080B7
B7B7D9D9D9AA9A90CD773DC6743CC28154C8C8C8C8C8C8C8C8C8C8C8C8A5A19F
9B765F5B2B0F5C290A642E0E6D34127D543BBFBFC0E5E6E6EFEFEFF7F7F7FDFD
FDFAFAFAF3F3F3EAEAEAD9D8D8AD988BC57C4BC0835AB3AEABC8C8C8C8C8C8C8
C8C8C8C8C8A4A09D9C765F5D2E11622E0E6C3512763C17865D43C1C2C2DCD6D2
DAD0C9CBBEB5BFB1A7ADA29BA69C96A8A29DAEAAA8C8C8C8C8C8C8C8C8C8C8C8
C8C8C8C8C8C8C8C8C8C8C8C8C8B6B5B59B85788467568873658E7F75988E88A4
9E9BAEACAABDBCBCC8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8
C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8
C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8
C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8}
OnClick = SpeedButton3Click
end
object SpeedButton4: TSpeedButton
Left = 184
Top = 464
Width = 113
Height = 41
Caption = ' '#1042#1099#1081#1090#1080
Glyph.Data = {
76020000424D7602000000000000760000002800000020000000200000000100
0400000000000002000000000000000000001000000010000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
7777777777777777777777777777777777777777777777777777777777777777
7777777777777777777777884888777777777777788888877777780444008877
7777777780044408777780000044088777777778044044408777800000044008
7777778040000004077780800000044088777804000000044777807884000044
0487804000004488477780877884000040000400004888780777700877788400
0444400048887780877777448777788000440004888778408777777004877778
80000088877784087777777780487F77880008877778408777777777780047FF
77888777778408777777777777780487FF777777784087777777777777778048
7FFFFFF778400777777777777778004447FFFFFF744400877777777777404444
448FFFFF78444408777777777004444444487FFFF74444400777777740444444
480047FFFF78444440777777044448888840048FFFF7844444077778044887FF
F70880047FFFF784440877784777FFFFF808784048FFFF78884877784FFFFFFF
84077788048FFFFFF788777807FFFFF80087777780047FFFFF4877770487F780
087777777880487F780877778004440487777777778800444007777778800488
7777777777778800087777777778887777777777777777888777777777777777
7777777777777777777777777777777777777777777777777777}
OnClick = SpeedButton4Click
end
object Edit1: TEdit
Left = 152
Top = 48
Width = 161
Height = 25
Color = clInactiveCaptionText
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -15
Font.Name = 'Times New Roman'
Font.Style = []
ParentFont = False
TabOrder = 0
end
object Memo1: TMemo
Left = 160
Top = 224
Width = 153
Height = 185
Color = clInactiveCaptionText
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -15
Font.Name = 'Times New Roman'
Font.Style = []
Lines.Strings = (
'')
ParentFont = False
TabOrder = 1
end
object MainMenu1: TMainMenu
Left = 288
Top = 8
object N1: TMenuItem
Caption = ' '#1060#1072#1081#1083
object N2: TMenuItem
Caption = #1047#1072#1075#1088#1091#1079#1080#1090#1100
OnClick = N2Click
end
object N3: TMenuItem
Caption = #1042#1099#1087#1086#1083#1085#1080#1090#1100
OnClick = N3Click
end
object N4: TMenuItem
Caption = #1057#1086#1093#1088#1072#1085#1080#1090#1100
OnClick = N4Click
end
end
object N5: TMenuItem
Bitmap.Data = {
F6060000424DF606000000000000360000002800000018000000180000000100
180000000000C006000000000000000000000000000000000000FFFFFFFFFFFF
FEFEFEFEFEFEFDFDFDFDFDFDFDFDFDF9F9FBF3F3F8F2F2F7F3F3F8F3F3F8F3F3
F8F3F3F8F2F2F7F2F2F7F5F5F9FAFAFBFDFDFDFDFDFDFDFDFDFFFFFFFEFEFEFF
FFFFFFFFFFFEFEFEFEFEFEFEFEFEFDFDFDFDFDFDF6F6F8E1E1DFCBCBC0C7C7BD
C8C8BEC8C8BDC8C8BDC8C8BEC8C8BEC6C6BCD4D4CAEDEDEDFAFAFBFDFDFDFDFD
FDFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFDFDFDFDFDFDF6F6F8DDDDD786
86954848944B4B944A4A924A4A924B4B914B4B904B4B8F4B4B914C4C89AEAEAD
EEEEECFAFAFBFDFDFDFDFDFDFEFEFEFEFEFEFEFEFEFEFEFEFDFDFDFDFDFCF6F6
F8DDDDD88484902F2FB52C2CE12F2FE12D2DE72E2EE62F2FE62F2FE73030E633
33E32525D92E2E8EB1B1A9EDEDEEFAFAFBFDFDFDFDFDFDFEFEFEFEFEFEFDFDFD
FDFDFCF6F6F9DDDDD88484902F2FB83333E43535E22C2CD33636C03434C73232
C93434C73333C83131DF3F3FE82B2BDD2E2E8DB1B1AAEDEDEDFAFAFBFDFDFDFD
FDFDFDFDFDFDFDFDF6F6F8DDDDD78383922F2FB93434E53434E23838C38D8DAD
BDBDC4B4B4C1AEAEBEB3B3C0B3B3BD6D6DB33030DD4040E82C2CE02E2E8CB0B0
A9EEEEEEFAFAFBFDFDFDFDFDFCF6F6F8DEDED78484922F2FBA3434E73838E230
30D2A1A1B6E7E7E9D9D9E8DCDCE8DEDEE8DCDCE8DDDDEADFDFD96A6ABF3232E8
4242E92E2EE22E2E8BB0B0A9EEEEEEFAFAFBFBFBFDE7E7E28787982E2EBC3535
E93A3AE03131E95C5CBFDDDDDCD6D6E7D7D7E3D8D8E4D8D8E5D8D8E4D6D6E3DE
DEEBC0C0CC3E3ED63D3DED4343EB3030E42E2E8AB5B5AEF5F5F5FEFEFFB7B7C0
2E2EB83535EA3939E23D3DE63131E88383C6E6E6E7DADAE8DCDCE9DDDDEADEDE
EADDDDE9DDDDE9DADAE8E4E4E47878CA3737F04040E94545EF2C2CE24E4EA4EB
EBE5FFFFFFA7A7BE2A2AD03C3CE83B3BE64040EA3434EB8C8CC8EAEAECDDDDEC
E1E1EDE1E1EDE1E1EEE1E1EDE1E1EDDDDDEAE7E7EFB1B1D13D3DE74545F24242
EC3F3FF35353D7E2E2DFFEFEFFAAAAC02C2CCF3F3FED3F3FEB4444EF3A3AF08E
8EC9EEEEF1E1E1F0E5E5F2E6E6F2E6E6F2E6E6F2E4E4F1E9E9F2E8E8F5D4D4DC
5252E04545F94747F03F3FF45454D1E4E4E0FFFFFFA8A8C02E2ED24242F24343
F04949F53F3FF49292CCF4F4F6EBEBF8EAEAF6EAEAF6ECECF8E9E9F5EEEEF9CE
CEE1DADAEAEEEEEF6F6FD24242FE4C4CF54444FA5555D3E4E4DFFFFFFFA8A8C1
3030D64646F64848F44E4EFB4444F79797CFF3F3F5CACADAF2F2FDF4F4FFF0F0
FCF1F1FEFDFDFFA0A0DAA1A1DBFFFFFFB5B5D14A4AE65050FD4747FE5555D2E3
E3DEFFFFFFA8A8C13333D94C4CFC4D4DFA5454FF4B4BF89E9ED2F0F0F2ACACC3
FBFBFFDFDFE8F7F7FDE1E1EBF9F9F8B3B3E45757EDC4C4EFEBEBEF6F6FE34E4E
FE4D4DFF5656D2E3E3DEFFFFFFA8A8C13535DC5151FF5252FD5A5AFE5151F9A3
A3D4F4F4F1B3B3C4FEFEFEA7A7BBFDFDFCB0B0C8F0F0EDBBBBE35959F96060FB
6D6DF85E5EFE5858FD5050FE5656D1E2E2DEFEFEFEA9A9C23939DF5656FE5959
FC6161FF5959F8A7A7D5F3F3EFB1B1BDFFFFFFACACC2FDFDFCB5B5CEF3F3F0BC
BCE46464F76F6FFF6363FE6161FE5E5EFD5555FE5858D1E2E2DDFFFFFFACACC9
3838E16060FF5D5DFC6767FE6161FAA9A9D9FAFAEFB3B3C6FEFEFEAEAEC5FCFC
FCB5B5CCF2F2EFBFBFE36D6DF87676FE6F6FFD6969FF6464FC5C5CFF5757D4E8
E8E4FCFCFEE3E3EA5353D45252F96B6BFF6B6BFD7070FE8787F5A1A1F0AAAAD6
FEFEFCADADC3FCFCFBB5B5CBF1F1EFC0C0E37676F87D7DFE7676FE6F6FFD6E6E
FF5454F99191E0FBFBF7FBFBFDFFFFFFDFDFEA5151D65F5FF97979FF7979FD80
80FF7676FBADADD4FFFFFDAFAFC4FCFCFCB7B7CAF4F4F0C5C5E27E7EF78686FF
7C7CFD7C7CFF5E5EF98D8DE1FBFBF6FDFDFEFEFEFEFBFBFDFFFFFFDFDFEA5454
D66E6EF98989FF8989FD8B8BFDACACE0F2F2F6B2B2D0FDFDFBB8B8D4E5E5EBC3
C3ED8989FB8C8CFD8C8CFF6767F88C8CE0FBFBF5FDFDFFFDFDFDFEFEFEFEFEFD
FBFBFCFFFFFFDEDEEA5656D77C7CFA9898FF9494FD9C9CFCA1A1F8A7A7E0FDFD
F2BDBDE89D9DF69F9FFC9696FD9B9BFF7171F88B8BE0FBFBF6FDFDFFFCFCFDFE
FEFEFEFEFEFEFEFEFEFEFEFBFBFCFFFFFFDCDCEA5959D88A8AFAACACFFACACFF
B0B0FFB4B4FBC5C5F4B9B9FCB1B1FFAEAEFFADADFF7A7AF78A8ADFFBFBF6FDFD
FFFCFCFDFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFBFBFDFFFFFFDBDBEB5F
5FDA7C7CF48787F68A8AF68C8CF78989F88B8BF78A8AF58989F67575F28C8CDF
FAFAF5FDFDFFFCFCFDFEFEFEFEFEFEFEFEFEFFFFFFFEFEFEFEFEFEFEFEFEFEFE
FEFBFBFDFFFFFFE0E0F09D9DE7A2A2E8A1A1E8A1A1E8A1A1E8A0A0E89F9FE89D
9DE8AAAAE8FBFBF7FEFEFFFCFCFDFEFEFEFFFFFFFEFEFEFFFFFF}
Caption = #1042#1099#1093#1086#1076
OnClick = N5Click
end
object N6: TMenuItem
Bitmap.Data = {
360C0000424D360C000000000000360000002800000020000000200000000100
180000000000000C000000000000000000000000000000000000C8C8C8C8C8C8
C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8
C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8
C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8
C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8
C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8
C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8
C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8B2B2B2ACACACAFAFAFB5B5
B5C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8
C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8
C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8AEAEAE8A8F916B95A6728B949093
94A6A6A6AEAEAEB6B6B6C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8
C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8
C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8B8B8B8A1A1A16A91A169AFCD67ABC865A9
C56691A4728086929394A0A0A0A8A8A8AFAFAFB5B5B5B9B9B9C8C8C8C8C8C8C8
C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8
C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8B0B0B09192936AAECA63A5C15B99B25792
AA5690A75690A7578EA55A75806E76798686868F8F8F989898A0A0A0A2A2A2A3
A3A3A4A4A4A8A8A8B0B0B0C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8
C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8A7A7A773828967ABC76695A994ACB699AF
B89AAFB896ACB692AAB392AAB492AAB48D9EA58688898888888B8B8B8B8B8B8B
8B8B8C8C8C8E8E8E919191AEAEAEC8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8
C8C8C8C8C8C8C8C8C8C8C8C8B6B6B69E9E9E6A94A663A5C07A8B92CCCCCCDDDD
DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD
DDDDDDDDDDDDDDDDA7A7A7A2A2A2BBBBBBC8C8C8C8C8C8C8C8C8C8C8C8C8C8C8
C8C8C8C8C8C8C8C8C8C8C8C8AFAFAF8D8F906CB1CE5F9DB69C9E9FCCCCCCDDDD
DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD
DDDDDDDDDDDDDDDDA6A6A69E9E9EB9B9B9C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8
C8C8C8C8C8C8C8C8C8C8C8C8A7A7A771838B6AAFCC7CA4B5D7D7D7CECECEDDDD
DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD
DDDDDDDDDDDDDDDD9F9F9FA0A0A0BBBBBBC8C8C8C8C8C8C8C8C8C8C8C8C8C8C8
C8C8C8C8C8C8C8C8C8B5B5B59B9B9B6CA2B766A9C5A5B9C0D3D3D3DBDBDBDCDC
DCCACACA969594746A64625249625249746A64969594CACACADCDCDCDDDDDDDD
DDDDDDDDDDDDDDDD8E8E8EA3A3A3C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8
C8C8C8C8C8C8C8C8C8ACACAC82888B70B8D668A3BCD6D6D6D3D3D3DBDBDB9695
944C372B481F08481C04481C044B1E054E210852270E533D30A3A2A1DDDDDDDD
DDDDDDDDDDDDDDDD8B8B8BA7A7A7C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8
C8C8C8C8C8C8B9B9B9A3A3A36E8B986EB4D289AFBFD4D4D4DDDDDD918F8E4928
16481C04481C044C2007987E6F76513B5B2D106031126233145E402CB1B1B1DE
DEDEDDDEDDDEDEDE868686AAAAAAC8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8
C8C8C8C8C8C8B3B3B398989872AFC96AAFCCB0C1C8DBDBDBC4C3C44B3224481C
04481C044D200677533DFFFFFFD2C4BA6838176D3C1A703F1C72411D645549D6
D6D6E1E1E1E1E1E1888888ADADADC8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8
C8C8C8C8C8C8ABABAB7E888B75BFDE6DA9C3DADADAE4E4E4898684481C05481C
044E210757290D623315A98C798B644775441F7A48227E4B24804D26784D2B9A
9A9AE4E4E4E4E4E48D8D8DAFAFAFC8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8
C8C8C8B9B9B9A2A2A270909E74BCDB92BACCE5E5E5E7E7E763534A481C044D20
07572A0D6132136A3A19DACEC5AE8F77824E2787532A8B572C8D592E8E5A2E77
6C64E7E7E7E5E5E5919191B2B2B2C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8
C8C8C8B2B2B297989878BBD872BAD9BFD3DBEBEBEBE5E5E550392D4A1E055527
0B6031126B3A1974431FEBE4DEEAE2DB976740945E329863359B65369C663773
5D4AE5E5E5DBDBDB959595B4B4B4C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8
C8C8C8AAAAAA7C888D7CCAEC72B9D8DDE5E9EFEFEFE7E7E74C35285024095D2E
1068381773421E7E4C25A37B5BF7F4F1F3EEE9B0825AA56E3DA9713EAA723F74
5D49E6E7E7C6C6C6989898B6B6B6C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8
B9B9B9A1A1A17298A87ECCED73BAD8E4EAEDF2F2F2F0EFF05C483D57290D6334
146F3F1B7B492387532A925D30B18762FFFFFFEEE3D8B37944B67D47B77E4783
7161EFEFEFB4B4B49C9C9CB9B9B9C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8
B3B3B397989880CAEA7FCEF074BCDAE7EDF0F5F5F5F6F5F57D736E5C2E106939
1875441F824F27C2A68FA06E42B58860FFFFFFFCFBF9BF854CC4894FC18950A0
9C99F5F5F5AAAAAA9F9F9FBABABAC8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8
B1B1B17F8C9284D5F881D0F275BDDDEAF0F3F9F9F9F9F9F9B8B8B75B351D6E3D
1B7A482288542AFEFEFEFFFFFFFFFFFFFFFFFFE8D0B9CB8F53D19557B4916EDC
DCDCF9F9F9999999A2A2A2C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8
B6B6B68097A085D6F982D1F476BFDEEDF4F7FDFDFDFDFDFDF8F8F98078736C41
217F4C258C582DA87951C6A281D1AD8CD0A276CC9054D7995AD6A46FCFCCC9FD
FDFDFDFDFD939393A6A6A6C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8
C8C8C8AFB0B08099A47BB4CD77BFDDEEF5F8FFFFFFFFFFFFFFFFFFF8F8F88D88
856E4C328E5A2E9C6637AA723FB87E47C58A4FD29658D4AB80DCD8D2FEFEFEFF
FFFFFFFFFF8B8B8BAAAAAAC8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8
C8C8C8C8C8C8BBBBBBB1B1B18D9193EDEFF1FFFFFFFFFFFFFFFFFFFFFFFFFEFE
FEC5C5C57E756E755B45906D4DA27F5DAF9377C5BBB2E7E7E7FEFEFEFFFFFFFF
FFFFFFFFFF8A8A8AADADADC8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8
C8C8C8C8C8C8C8C8C8C8C8C8ACACACF0F0F0FFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFEFEFEF0F0F0DCDCDCE0E0E0F4F4F4FEFEFEFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFF8F8F8FAFAFAFC8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8
C8C8C8C8C8C8C8C8C8C8C8C8B3B3B3F0F0F0FFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFBFBFB949494B3B3B3C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8
C8C8C8C8C8C8C8C8C8C8C8C8B8B8B8F1F1F1FFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFEEEEEEA0A0A0B9B9B9C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8
C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8E0E0E0FFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFDFDFDFCFCFCFBFBFBF9
F9F9BBBBBBB1B1B1C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8
C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8B3B3B3A6A6A6A4A4A4A4A4A4A5A5A5A7A7
A7A8A8A8A9A9A9AAAAAAACACACADADADAFAFAFB0B0B0B0B0B0B1B1B1B2B2B2B4
B4B4B9B9B9C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8
C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8
C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8
C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8
C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8
C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8
C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8
C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8
C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8
C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8}
Caption = #1057#1087#1088#1072#1074#1082#1072
OnClick = N6Click
end
end
object XPManifest1: TXPManifest
Left = 328
Top = 8
end
end
Unit2.pas
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls;
type
TForm2 = class(TForm)
Timer1: TTimer;
procedure FormCreate(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure FormClick(Sender: TObject);
procedure FormPaint(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
Bmap: TBitmap;
implementation
{$R *.dfm}
procedure TForm2.FormClick(Sender: TObject);
begin
Form2.Close;
end;
procedure TForm2.FormCreate(Sender: TObject);
begin
Brush.Style:=bsClear;
end;
procedure TForm2.Timer1Timer(Sender: TObject);
begin
Form2.Close;
end;
procedure TForm2.FormPaint(Sender: TObject);
begin
Bmap:=TBitmap.Create;
Bmap.LoadFromFile('Title.bmp');
Width:=Bmap.Width;
Height:=Bmap.Height;
Canvas.Brush.Bitmap:=Bmap;
Bmap.Transparent:=True;
Bmap.TransparentColor:=clWhite;
Canvas.Draw(0,0,Bmap);
Bmap.TransparentMode:=tmAuto;
end;
end.
Unit2.dfm
object Form2: TForm2
Left = 216
Top = 4
BorderIcons = []
BorderStyle = bsNone
Caption = 'TitleForm'
ClientHeight = 263
ClientWidth = 352
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
OnClick = FormClick
OnCreate = FormCreate
OnPaint = FormPaint
PixelsPerInch = 96
TextHeight = 13
object Timer1: TTimer
Interval = 11000
OnTimer = Timer1Timer
Left = 64
Top = 24
end
end
|