小东西，初学delphi练习下手。
源代码如下：
------------------------------------------------------------------------
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ImgList, ComCtrls, StdCtrls,PerlRegEx;
type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
StatusBar1: TStatusBar;
Button5: TButton;
ImageList1: TImageList;
OpenDialog1: TOpenDialog;
Lable1: TLabel;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
procedure Button5Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
myList1:TStringList;
threadHandle1:THandle;
threadID1:DWORD;
pi1:integer; //当前词条索引
reg:TPerlRegEx;
list:TStrings;
ok:Boolean; //输入正确标志
sum1:integer; //已经练习词条总数
implementation
{$R *.dfm}
//{$APPTYPE CONSOLE}
var
rnd_js:integer;
myList2:TStringList;
function start(p:Pointer):integer;stdcall;
begin
rnd_js:=0;
while True do
begin
inc(pi1);
list.Clear;
reg.Subject:=myList2[pi1];
reg.RegEx:='----';
reg.Split(list,MaxInt);
//刷新控件显示
//writeln(list[0]);
form1.Lable1.Caption:=list[1];
if(pi1=myList2.Count) then exit;
while True do
begin
Sleep(2);
if ok then Break;
end;
ok:=false;
end;
writeln('kkkk');
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
//显示提示
if list.Count=0 then
begin
exit;
end;
form1.Label2.Caption:=list[0];
//writeln(list.Count);
end;
procedure TForm1.Button3Click(Sender: TObject);
var
I: Integer;
j: Integer;
str1: string;
begin
//开始
if(myList1.Count=0) then
begin
ShowMessage('先载入词条，再点开始！');
exit;
end;
//顺序与随机的处理
myList2:=myList1;
if form1.RadioButton2.Checked then
begin
//随机
Randomize;
for I := 0 to myList2.Count- 1 do
begin
j:=Random(myList2.Count);
str1:= myList2[i];
myList2[i]:=myList2[j];
myList2[j]:=str1;
end;
end;
StatusBar1.Panels[0].Text:='练习开始！';
threadHandle1:=CreateThread(nil,0,@start,nil,0,threadID1);
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
Application.Terminate;
end;
procedure TForm1.Button5Click(Sender: TObject);
begin
OpenDialog1.Filter:='文本文件|*.txt';
OpenDialog1.InitialDir:=ExtractFileName(Application.ExeName);
if OpenDialog1.Execute then
begin
myList1.LoadFromFile(OpenDialog1.FileName);
StatusBar1.Panels[0].Text:='词条载入完毕！';
end;
end;
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if(key=13) then //回车
begin
if(list[0]=form1.Edit1.Text) then
begin
form1.Edit1.Text:='';
form1.Label2.Caption:='';
inc(sum1);
Label3.Caption:=IntToStr(sum1);
if(sum1=myList1.Count) then
begin
ok:=false;
sum1:=0;
pi1:=-1;
Lable1.Caption:='';
Label2.Caption:='';
TerminateThread(threadHandle1,0);
StatusBar1.Panels[0].Text:='练习完成!按开始钮继续。。。';
exit;
end;
ok:=true;
end;
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
pi1:=-1;
list:=TStringList.Create;
reg:=TPerlRegEx.Create(nil);
myList1:=TStringList.Create;
myList2:=TStringList.Create;
Lable1.Caption:='';
Label2.Caption:='';
Label3.Caption:='';
ok:=false;
end;
end.
----------------------------------------------------------------------------------------------
界面代码：
object Form1: TForm1
Left = 0
Top = 0
BorderIcons = [biSystemMenu, biMinimize]
BorderStyle = bsSingle
Caption = #32972#21333#35789'delphi'#29256' '#29482#24735#33021
ClientHeight = 256
ClientWidth = 383
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object Lable1: TLabel
Left = 24
Top = 64
Width = 4
Height = 17
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -14
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object Label1: TLabel
Left = 168
Top = 8
Width = 3
Height = 13
end
object Label2: TLabel
Left = 48
Top = 96
Width = 31
Height = 13
Caption = 'Label2'
end
object Label3: TLabel
Left = 192
Top = 13
Width = 31
Height = 13
Caption = 'Label3'
end
object Edit1: TEdit
Left = 24
Top = 128
Width = 337
Height = 33
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -21
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 0
OnKeyDown = Edit1KeyDown
end
object Button1: TButton
Left = 55
Top = 8
Width = 25
Height = 25
Hint = #26174#31034#35789#26465
ImageAlignment = iaCenter
ImageIndex = 2
Images = ImageList1
ParentShowHint = False
ShowHint = True
TabOrder = 1
OnClick = Button1Click
end
object Button2: TButton
Left = 86
Top = 8
Width = 27
Height = 25
Hint = #32534#36753#35789#26465
CommandLinkHint = #32534#32521#35789#26465
ImageAlignment = iaCenter
ImageIndex = 3
Images = ImageList1
ParentShowHint = False
ShowHint = True
TabOrder = 2
end
object Button3: TButton
Left = 238
Top = 197
Width = 59
Height = 25
Caption = #24320#22987
TabOrder = 3
OnClick = Button3Click
end
object Button4: TButton
Left = 303
Top = 197
Width = 57
Height = 25
Caption = #36864#20986
TabOrder = 4
OnClick = Button4Click
end
object StatusBar1: TStatusBar
Left = 0
Top = 237
Width = 383
Height = 19
Panels = <
item
Width = 50
end>
ExplicitTop = 235
ExplicitWidth = 381
end
object Button5: TButton
Left = 24
Top = 8
Width = 25
Height = 25
Hint = #25171#24320#32451#20064#35789#26465
ImageAlignment = iaCenter
ImageIndex = 0
Images = ImageList1
ParentShowHint = False
ShowHint = True
TabOrder = 6
OnClick = Button5Click
end
object RadioButton1: TRadioButton
Left = 24
Top = 201
Width = 41
Height = 17
Caption = #39034#24207
Checked = True
TabOrder = 7
TabStop = True
end
object RadioButton2: TRadioButton
Left = 71
Top = 201
Width = 43
Height = 17
Caption = #38543#26426
TabOrder = 8
end
object ImageList1: TImageList
Left = 264
Top = 48
Bitmap = {
494C010105000A00040010001000FFFFFFFFFF00FFFFFFFFFFFFFFFF424D3600
0000000000003600000028000000400000002000000001002000000000000020
0000000000000000000000000000000000000000000000000000000000000000
0000BD450000841C000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000BD450000BD450000841C0000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000BD450000F7D79C00BD450000841C00000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000BD450000F7D79C00F7962100BD450000841C000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000BD450000F7D79C00F7A24200F7962100BD450000841C0000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000BD450000F7D79C00F7A64A00F7A24200F7962100BD450000841C00000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000BD450000F7D79C00F7AE5A00F7A65200F7A24200F7962100BD450000841C
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000BD450000F7D79C00F7B67300F7AE6300F7AA5200F7A24200F7962100BD45
0000841C00000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000BD450000F7D79C00F7B67B00F7B67300F7AE6300F7AA5200F7A24200BD45
0000841C00000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000BD450000F7D79C00F7B67B00F7B67B00F7B67300F7AE6300BD450000841C
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000BD450000F7D79C00F7BA8400F7BA8400F7B67B00BD450000841C00000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000BD450000F7D79C00F7BA8400F7BA8400BD450000841C0000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000BD450000F7D79C00F7BA8400BD450000841C000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000BD450000F7D79C00BD450000841C00000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000BD450000BD450000841C0000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000BD450000841C000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000844542004A1C18004A1C18004A1C180000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000018516B0000000000000000000000
0000000000000000000000000000000000000000000000000000A58A7B004A2C
18004A2C18004A2C18004A2C18004A2C18004A2C18004A2C18004A2C18004A2C
18004A2C18004A2C18004A2C1800000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000734542004A1C
18004A1C18008C3C3100944139008C4139004A1C18004A1C18004A1C18004A1C
18004A1C18004A1C18004A1C18004A1C18000000000000000000000000000000
00000000000000000000000000000000000018516B0018516B00000000000000
0000000000000000000000000000000000000000000000000000A58A7B00EFDF
DE00A58A7B00A58A7B00A58A7B00A58A7B00A58A7B00A58A7B00A58A7B00A58A
7B00A58A7B00A58A7B004A2C1800000000006B79840000457300004573000045
7300004573000045730000457300004573000045730000457300004573000045
73000000000000000000000000000000000000000000734542008C383100AD49
4200A5494200A54542009C454200944139004A1C1800EF797300EF797300EF79
7300EF797300EF797300EF7973004A1C18000000000000000000000000000000
00000000000000000000000000000000000018516B003186AD0029658C000000
0000000000000000000000000000000000000000000000000000A58A7B00EFE3
DE00EFDFDE00E7DBD600E7D7CE00DECFC600DECBC600D6C7BD00D6BEB500D6BA
AD00D6BAAD00A58A7B004A2C1800000000006B7984006B798400108AC6000079
BD000079BD000079BD000079BD000079BD000079BD000079BD000079BD000045
7300000000000000000000000000000000000000000073454200B54D4A00B54D
4A00AD494200AD494200A5454200944139004A1C180000300000003000000030
00000034000010410800EF7973004A1C18000000000000000000000000000000
00000000000029658C0018516B0018516B0018516B001879BD0018516B000000
0000000000000000000000000000000000000000000000000000A58A7B00F7EB
E700EFE3DE00EFDFDE00E7DBD600E7D7CE00DECFC600841C0000D6C7BD00D6BE
B500D6BAAD00A58A7B004A2C1800000000006B7984006B7984005AAEC60042CF
F70042CBF70039C7EF0031BEEF0029B6EF0021B2E70021AEE70018A6E7000079
BD00004573000000000000000000000000000000000073454200BD514A00B54D
4A00B54D4A00A54542009C413900944139004A1C180000340000003000000030
00000049000018511000EF7973004A1C18000000000000000000000000002965
8C0018516B003186AD003186AD003186AD003186AD001882C6003186AD001851
6B00000000000000000000000000000000000000000000000000A58A7B00F7EF
EF00F7EBE700EFE3DE00EFDFDE00E7DBD600E7D7CE00841C0000DECBC600D6C7
BD00D6BEB500A58A7B004A2C1800000000006B7984004AD3F7006B79840052C7
E7004ACFF70042CBF70039C7EF0031BEEF0029BAEF0029B6E70021AEE70010A2
E700004573000000000000000000000000000000000073454200BD514A00BD51
4A00B5555200D6A29C00844542008C3C39004A1C180000410000003400000045
000000650800185D1000EF7973004A1C1800000000000000000018516B003186
AD003196CE0031A2E70031A6EF002996DE002192DE002196E700218AD6001882
C60018516B000000000000000000000000000000000000000000A58A7B00F7F3
F700F7EFEF00F7EBE700EFE3DE00841C0000841C0000841C0000841C0000841C
0000D6C7BD00A58A7B004A2C1800000000006B79840063E3F7006B7984005AB2
CE004AD3F7004AD3F70042CBF70039C7EF0031BEEF0029BAEF0029B6E70021AE
E7000079BD000045730000000000000000000000000073454200C6555200C651
4A00D6A29C00FFEFEF00D6A29C008C4139004A1C180000490000004100001055
08000071100018551000EF7973004A1C18000000000018516B003186AD004AB6
EF004AB6EF004AB6EF0042B2EF000818210000142100299EEF002196E700218E
DE001882C60018516B0000000000000000000000000000000000A58A7B00FFFB
FF00F7F3F700F7EFEF00F7EBE700EFE3DE00EFDFDE00841C0000E7D7CE00DECF
C600DECBC600A58A7B004A2C1800000000006B7984006BEBF7004AD3F7006B79
840052C7E7004AD3F7004AD3F70042CBF70039C7EF0031BEEF0029BAEF0029B6
E70018A2DE000045730000000000000000000000000073454200CE555200C655
5200C6595200D6A29C00B55552009C4542004A1C1800004D000073651000C68E
290018590800C68E2900EF7973004A1C180029658C003186AD0052C3EF005AC7
EF005AC7EF0052C3EF0052BEEF0018495A0018455A0031A6EF00299EEF002192
E700218EDE00187DC60018516B00000000000000000000000000A58A7B00FFFF
FF00FFFBFF00F7F3F700841C0000F7EBE700EFE3DE00841C0000E7DBD600E7D7
CE00DECFC600A58A7B004A2C1800000000006B79840073F3F7006BEBF7006B79
84005AB6CE004AD3F7004AD3F7004AD3F70042CBF70039C7F70031BEEF0029BA
EF0021B2E7000079BD0000457300000000000000000073454200CE595200CE59
5200C6555200C6555200BD514A009C4942004A1C180052651000F7AE6300F7AE
6300F7AE6300F7AE6300EF7973004A1C180018516B0052B6DE0063CFEF006BCF
EF006BCFEF0063CFEF005AC7EF0052B6E70042AEE70039AEEF0031A2EF00219A
EF002192E700218AD60018659C0029658C000000000000000000A58A7B00FFFF
FF00FFFFFF00FFFFFF00841C0000F7F3EF00F7EBEF00EFE7E700EFE3DE00E7DF
D600E7D7CE00A58A7B004A2C1800000000006B7984007BF3F70073F3F7004AD3
F7006B7984006B7984006B7984006B7984006B7984006B7984006B7984006B79
84006B7984006B7984006B798400000000000000000073454200D6595A00D659
5200CE595200C6555200C6555200A54942004A1C1800F7AE6300F7AE6300F7AE
6300F7AE6300F7AE6300EF7973004A1C180018516B006BCFE70073DBEF007BDF
EF007BDBEF0073DBEF006BD3EF003982940021556B0042B6EF0031AAEF00299E
EF002192E700218ADE001871AD0018516B000000000000000000A58A7B00FFFF
FF00841C0000841C0000841C0000841C0000841C0000F7EBEF00EFE7E700EFE3
DE00E7DFD600A58A7B004A2C1800000000006B7984007BF3F7007BF3F70073F3
F7004AD3F7004AD3F7004AD3F7004AD3F7004AD3F7004AD3F7004AD3F7004AD3
F7006B7984000000000000000000000000000000000073454200DE5D5A00D659
5A00D6595200CE595200C6555200A54942004A1C1800F7AE6300F7AE6300F7AE
63009C9E8C00108EF700EF7973004A1C180018516B0073D7E70084E3EF008CE7
EF008CE7EF0084E3EF0073DBEF005AB6D600102C310021516B0039A6E70029A2
EF002196E700218EDE001882C60018516B000000000000000000A58A7B00FFFF
FF00FFFFFF00FFFFFF00841C0000FFFFFF00FFF7F700F7F3EF00F7EBEF00EFE7
E700A58A7B00A58A7B004A2C1800000000006B7984007BF3F7007BF3F7007BF3
F70073F3F7004AD3F7006B7984006B7984006B7984006B7984006B7984006B79
8400841C0000841C0000841C0000841C00000000000073454200DE5D5A00DE5D
5A00D65D5A00D6595A00CE595200A54942004A1C1800F7AE6300F7AE63009C9E
8C0010A6F700108EF700EF7973004A1C180018516B006BCBDE008CE7EF008CEB
EF008CE7EF007BD3D60063B6C6006BCFE700397D9400000000001855730031A2
EF002196E700218EDE001871AD0018516B000000000000000000A58A7B00FFFF
FF00FFFFFF00FFFFFF00841C0000FFFFFF00FFFFFF00FFF7F700F7F3EF00A58A
7B004A2C18004A2C18004A2C1800000000006B7984007BF3F7007BF3F7007BF3
F7007BF3F7006B79840000000000000000000000000000000000000000000000
000000000000841C0000DE8E6B00841C00000000000073454200D65D5A00DE5D
5A00DE5D5A00D65D5A00D6595A00AD4D42004A1C1800F7AE63009C9E8C0008B6
F70008B6F70010A6F700EF7973004A1C180029658C004292AD008CE3EF008CEB
EF008CEBEF0029494A00000400005AB6CE004AA2BD00000000000828390031A2
EF002196E700218AD60018659C0029658C000000000000000000A58A7B00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFF7F700A58A
7B00EFE7DE00D6BAAD004A2C180000000000000000006B7984006B7984006B79
84006B7984000000000000000000000000000000000000000000000000000000
000000000000AD552100841C0000841C000000000000000000009C554A007345
4200B5514A00B5514A00C6555200A54942004A1C180073454200734542007345
4200734542007345420073454200734542000000000018516B004A96AD0084DF
E7008CE7EF00529294001020210031616B0008202100000C100029759C0031A2
EF00218EDE00187DC60018516B00000000000000000000000000A58A7B00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00A58A
7B00D6BAAD004A2C180000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000841C0000AD5521000000
0000AD552100841C000000000000841C00000000000000000000000000000000
00009C554A0073454200B5514A00B5514A004A1C180000000000000000000000
000000000000000000000000000000000000000000000000000029658C001851
6B0063B6C6006BCBDE0052A6BD004292AD00398AAD003992BD00319ED600217D
BD0018516B0029658C0000000000000000000000000000000000A58A7B00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00A58A
7B004A2C18000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000841C0000841C
0000841C00000000000000000000000000000000000000000000000000000000
000000000000000000009C554A00734542007345420000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000029658C0018516B0018516B0018516B0018516B0018516B0018516B002965
8C00000000000000000000000000000000000000000000000000A58A7B00A58A
7B00A58A7B00A58A7B00A58A7B00A58A7B00A58A7B00A58A7B00A58A7B00A58A
7B0000000000000000000000000000000000424D3E000000000000003E000000
2800000040000000200000000100010000000000000100000000000000000000
000000000000000000000000FFFFFF00F3FF000000000000F1FF000000000000
F0FF000000000000F07F000000000000F03F000000000000F01F000000000000
F00F000000000000F007000000000000F007000000000000F00F000000000000
F01F000000000000F03F000000000000F07F000000000000F0FF000000000000
F1FF000000000000F3FF000000000000FFFFF87FFF7FC001FFFFC000FF3FC001
000F8000FF1FC001000F8000F81FC00100078000E00FC00100078000C007C001
000380008003C001000380000001C001000180000000C001000180000000C001
000780000000C001000080000000C00103F880000000C00187F8C0008001C003
FF92F07FC003C007FFC7FC7FF00FC00F}
end
object OpenDialog1: TOpenDialog
Left = 208
Top = 40
end
end
----------------------------------------------------------------------------
源代码下载：http://www.rayfile.com/files/1d04c2ee-1a4b-11df-baf5-0015c55db73d/