unit MainUI;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, StdCtrls, IniFiles, ExtCtrls, Unit2, jpeg;
type
TForm1 = class(TForm)
PageControl1: TPageControl;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
Memo1: TMemo;
Label1: TLabel;
Memo2: TMemo;
Edit2: TEdit;
Label2: TLabel;
Label3: TLabel;
Edit3: TEdit;
Button4: TButton;
CheckBox1: TCheckBox;
Button5: TButton;
Button6: TButton;
Timer1: TTimer;
Label8: TLabel;
OpenDialog1: TOpenDialog;
Panel1: TPanel;
Label4: TLabel;
Label5: TLabel;
Label7: TLabel;
Label6: TLabel;
Label9: TLabel;
Memo3: TMemo;
Button7: TButton;
Button8: TButton;
Button9: TButton;
TabSheet3: TTabSheet;
Image1: TImage;
Label11: TLabel;
Label10: TLabel;
Label12: TLabel;
Label13: TLabel;
Label14: TLabel;
Label15: TLabel;
TabSheet4: TTabSheet;
Image2: TImage;
procedure FormCreate(Sender: TObject);
procedure Edit2KeyPress(Sender: TObject; var Key: Char);
procedure Edit3KeyPress(Sender: TObject; var Key: Char);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
procedure FormDestroy(Sender: TObject);
procedure Button8Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure Memo1Change(Sender: TObject);
procedure Button9Click(Sender: TObject);
private
FIniFIle: TIniFIle;
FItemList: TStringList;
FLevelList: TStringList;
FCurrentPos: Integer;
FCurrentItem: Integer;
FCurrentLevel: Integer;
FLevelItems: Integer;
FAppPath: string;
{ Private declarations }
public
function init: Boolean;
procedure RandomList;
procedure SetLevel(aLevel: integer);
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
const
cNameFile = '名单.txt';
cSettingFile= '设置.txt';
procedure TForm1.FormCreate(Sender: TObject);
begin
Application.Title := Caption;
FAppPath := ExtractFilePath(Application.ExeName);
FIniFIle := TIniFile.Create(FAppPath + 'Setting.ini');
CheckBox1.Checked := FIniFIle.ReadBool('info','reverse',false);
if FileExists(FAppPath + cNameFile) then
Memo1.Lines.LoadFromFile(FAppPath + cNameFile);
if FileExists(FAppPath + cSettingFile) then
Memo2.Lines.LoadFromFile(FAppPath + cSettingFile);
end;
procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if Key=#13 then
edit3.SetFocus;
end;
procedure TForm1.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
if Key=#13 then
begin
Button4.Click;
edit2.SetFocus;
end else
if n
ot (key in ['0'..'9']) then
key := #0;
end;
procedure TForm1.Button4Click(Sender: TObject);
var
vsl: TStringList;
begin
vsl := TStringList.Create;
vsl.Add(edit2.text);
vsl.Add(edit3.text);
Memo2.Lines.Add(vsl.CommaText);
vsl.Free;
edit2.text:='';
edit3.text:='';
end;
procedure TForm1.Button5Click(Sender: TObject);
begin
Memo2.Lines.SaveToFile(FAppPath + cSettingFile);
FIniFIle.WriteBool('info','reverse',CheckBox1.Checked);
Memo2.Modified := False;
end;
procedure TForm1.Button6Click(Sender: TObject);
begin
Memo2.Lines.Clear;
end;
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if Timer1.Enabled then
begin
CanClose := Fa