selectbook.pas

轻轻松松背单词软件源码

unit SelectBook;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, StrUtils;

type
  TfrmSelectBook = class(TForm)
    Label1: TLabel;
    edtSelected: TEdit;
    Label2: TLabel;
    lbBooks: TListBox;
    btnCancel: TBitBtn;
    btnOK: TBitBtn;
    procedure FormShow(Sender: TObject);
    procedure lbBooksClick(Sender: TObject);
    procedure lbBooksDblClick(Sender: TObject);
  private
    procedure FindFiles(sPath: string; FileBuf: TStrings);
  public
    { Public declarations }
  end;

var
  frmSelectBook: TfrmSelectBook;

implementation
uses
  TopEdit;
{$R *.dfm}

procedure TfrmSelectBook.lbBooksClick(Sender: TObject);
begin
  edtSelected.Text := lbBooks.Items[lbBooks.ItemIndex];
end;

procedure TfrmSelectBook.FindFiles(sPath: string; FileBuf: TStrings);
var
  sr: TSearchRec;
begin
  FileBuf.Clear;
  if FindFirst(sPath, faAnyFile, sr) = 0 then
  begin
    if not ((sr.Attr and faDirectory) > 0) then
      FileBuf.Add(Copy(sr.Name, 1, Pos('.', sr.Name) - 1));
    while FindNext(sr) = 0 do
    begin
      if not ((sr.Attr and faDirectory) > 0) then
        FileBuf.Add(Copy(sr.Name, 1, Pos('.', sr.Name) - 1));
    end;
  end;
  FindClose(sr);
end;

procedure TfrmSelectBook.FormShow(Sender: TObject);
begin
  FindFiles(ExtractFilePath(Application.ExeName) + '*.wrd', lbBooks.Items);
  edtSelected.Text := Reg.ReadString('Filename');
end;

procedure TfrmSelectBook.lbBooksDblClick(Sender: TObject);
begin
  Close;
  ModalResult := mrOK;
end;

end.