unit1.pas

从英文单词提取、到网上下载翻译

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    Memo3: TMemo;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
   my:array[0..1000000] of string;
   mycount,temp:integer;
   
implementation

{$R *.dfm}

function save(b:string;a:string;c:string):string;
var
saveedit:TStringList;
filename:String;   //文件名
filestr:String;       //文本字符串
begin
try
createdir(ExtractFilePath(Application.ExeName)+c);
except
end;
filename:=ExtractFilePath(Application.ExeName)+c+a+'.txt'; //名称为exe所在的目录下格式为当前日期.txt
filestr:=b;
saveedit:=TStringList.Create;
saveedit.Text:=filestr;
if Not FileExists(filename) then //判断文件是否存在
saveedit.SaveToFile(filename)//不存在创建
else
begin
saveedit.LoadFromFile(filename);//存在打开
saveedit.add(filestr);    //追加
saveedit.SaveToFile(filename);//保存
end;
saveedit.Free; //释放
end;



procedure TForm1.FormCreate(Sender: TObject);
var
st:string;
begin

 mycount:=1000000 ;

st:=ExtractFilePath(Application.ExeName);

memo3.Lines.LoadFromFile(st+'aaa.txt');
  end;

procedure TForm1.Button1Click(Sender: TObject);
var
sql,mystr:string;
saveedit:TStringList;
filename:String;   //文件名
filestr:String;
mythis,use,z,n,t,i,j,ii,jj,kk,ll,mm,nn,oo,pp,qq,jja,kka,lla,mma,nna,ooa,ppa,qqa:integer;
begin
filename:=ExtractFilePath(Application.ExeName)+'文件.txt'; //名称为exe所在的目录下格式为当前日期.txt
 saveedit:=TStringList.Create;
saveedit.Text:=filestr;
if Not FileExists(filename) then //判断文件是否存在
saveedit.SaveToFile(filename)//不存在创建
else
begin
saveedit.LoadFromFile(filename);//存在打开
saveedit.Text:='';    //追加
saveedit.SaveToFile(filename);//保存
end;
saveedit.Free; //释放



 temp:=0;
 j:=0;
 mythis:=0;
 for i:=0 to mycount do
 my[i]:='';

 for i:=0 to 700 do
 begin
if j=5 then
begin
j:=0;

   for ii:=temp to  mycount do
      if my[ii]=''then
       begin
       temp:=ii;
          my[ii]:=mystr;
          use:=ii+2;
          for jj:=use to  mycount do
                if my[jj]=''then
                 begin
                    my[jj]:=mystr;
                         use:=use+4;
                     for kk:=use to  mycount do
                     if my[kk]=''then
                     begin
                        my[kk]:=mystr;
                             use:=use+8;
                         for ll:=use to mycount do
                             if my[ll]='' then
                               begin

                                  my[ll]:=mystr;
                                use:=use+16;
                               for mm:=use to mycount do
                                  if  my[mm]='' then
                                  begin
                                   my[mm]:=mystr;

                                use:=use+32;
                                  for nn:=use to mycount do
                                      if my[nn]='' then
                                      begin
                                        
                                    my[nn]:=mystr;

                                     use:=use+64;
                                         for oo:=use to mycount do
                                           if my[oo]='' then
                                            begin

                                            my[oo]:=mystr;

                                               use:=use+128;
                                               for pp:=use to mycount do
                                                 if my[pp]='' then
                                                    begin
                                                    my[pp]:=mystr;

                                                    use:=use+256;
                                                         for qq:=use to mycount do
                                                         if my[qq]='' then
                                                               begin
                                                            my[qq]:=mystr;

                                                               break;
                                                               end;
                                                      break;
                                                 end;
                                          break;
                                       end;
                                    break;
                                  end;
                             break;

                           end;
                       break;
                     end;
                 break;
                 end;
          break;
        end;
      break;
  end;
 mystr:='';
end;
 j:=j+1;
mystr:=mystr+memo3.Lines.Strings[mythis]+#13#10;
//mystr:=mystr+adoquery2.Fieldbyname('单词').AsString;
//mystr :=mystr+' '+ adoquery2.Fieldbyname('翻译').AsString;
//mystr :=mystr+'       '+ adoquery2.Fieldbyname('频率').AsString+#13#10;
mythis:=mythis+1;
 //adoquery2.Next;

end;
    for n:=0 to mycount do
       if my[mycount-n]<>'' then
       begin
        for t:=0 to mycount-n do
        if length(my[t])>1 then
        memo1.Lines.Add(my[t]+#13#10);
         break;
        end;


     save(memo1.Text,'文件','');
 
end;

end.