unitb.pas

一个背单词程序。是我闲着没事做的。 给大家看看

unit UnitB;

interface

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

type
  TFrmBDC = class(TForm)
    Edit2: TEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Label1: TLabel;
    StatusBar1: TStatusBar;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmBDC: TFrmBDC;

implementation

uses UnitMain;

{$R *.dfm}

function db():Boolean ;
var
StrYB,StrWord,StrComm:String;
rsindex,RSCount:integer;
begin
 { if RSIndex>=RSCount then RSIndex:=0;
  if (RSIndex<0) and (RSCount>0) then RSIndex := RSCount-1;
  RSCount := WordRs.Count ;
  StrWord := WordRS.Strings[RSIndex];
  StrYB := YbRS.Strings[RSIndex];
  StrComm := commrs.Strings[rsindex];}
end;

end.