unit1.pas

词 法 分 析 器 Delphi7.0 很好的 东西 啊

   if pos('20',memo1.Lines.Strings[i])>0 then
   memo2.Lines.Add('('+'3'+','+'"'+'20'+'"'+')');
   if pos('21',memo1.Lines.Strings[i])>0 then
   memo2.Lines.Add('('+'3'+','+'"'+'21'+'"'+')');
   if pos('22',memo1.Lines.Strings[i])>0 then
   memo2.Lines.Add('('+'3'+','+'"'+'22'+'"'+')');
     if pos('100',memo1.Lines.Strings[i])>0 then
   memo2.Lines.Add('('+'3'+','+'"'+'100'+'"'+')');
   if pos('1000',memo1.Lines.Strings[i])>0 then
   memo2.Lines.Add('('+'3'+','+'"'+'1000'+'"'+')');
   if pos('10000',memo1.Lines.Strings[i])>0 then
   memo2.Lines.Add('('+'3'+','+'"'+'10000'+'"'+')');

   if pos((' '+'a'+' '),memo1.Lines.Strings[i])>0 then
   memo2.Lines.Add('('+'2'+','+'"'+'a'+'"'+')');

   if pos((' '+'b'+' '),memo1.Lines.Strings[i])>0 then
   memo2.Lines.Add('('+'2'+','+'"'+'b'+'"'+')');
   if pos(' '+'c'+' ',memo1.Lines.Strings[i])>0 then
   memo2.Lines.Add('('+'2'+','+'"'+'c'+'"'+')');
   if pos(' '+'d'+' ',memo1.Lines.Strings[i])>0 then
   memo2.Lines.Add('('+'2'+','+'"'+'d'+'"'+')');
   if pos(' '+'e'+' ',memo1.Lines.Strings[i])>0 then
   memo2.Lines.Add('('+'2'+','+'"'+'e'+'"'+')');
   if pos(' '+'f'+' ',memo1.Lines.Strings[i])>0 then
   memo2.Lines.Add('('+'2'+','+'"'+'f'+'"'+')');
    if pos((' '+'g'+' '),memo1.Lines.Strings[i])>0 then
   memo2.Lines.Add('('+'2'+','+'"'+'h'+'"'+')');

   if pos((' '+'h'+' '),memo1.Lines.Strings[i])>0 then
   memo2.Lines.Add('('+'2'+','+'"'+'h'+'"'+')');
   if pos(' '+'i'+' ',memo1.Lines.Strings[i])>0 then
   memo2.Lines.Add('('+'2'+','+'"'+'i'+'"'+')');
   if pos(' '+'j'+' ',memo1.Lines.Strings[i])>0 then
   memo2.Lines.Add('('+'2'+','+'"'+'j'+'"'+')');
   if pos(' '+'k'+' ',memo1.Lines.Strings[i])>0 then
   memo2.Lines.Add('('+'2'+','+'"'+'k'+'"'+')');
   if pos(' '+'l'+' ',memo1.Lines.Strings[i])>0 then
   memo2.Lines.Add('('+'2'+','+'"'+'l'+'"'+')');
   if pos((' '+'m'+' '),memo1.Lines.Strings[i])>0 then
   memo2.Lines.Add('('+'2'+','+'"'+'m'+'"'+')');

   if pos((' '+'n'+' '),memo1.Lines.Strings[i])>0 then
   memo2.Lines.Add('('+'2'+','+'"'+'n'+'"'+')');
   if pos(' '+'o'+' ',memo1.Lines.Strings[i])>0 then
   memo2.Lines.Add('('+'2'+','+'"'+'o'+'"'+')');
   if pos(' '+'p'+' ',memo1.Lines.Strings[i])>0 then
   memo2.Lines.Add('('+'2'+','+'"'+'p'+'"'+')');
   if pos(' '+'q'+' ',memo1.Lines.Strings[i])>0 then
   memo2.Lines.Add('('+'2'+','+'"'+'q'+'"'+')');
   if pos(' '+'r'+' ',memo1.Lines.Strings[i])>0 then
   memo2.Lines.Add('('+'2'+','+'"'+'r'+'"'+')');
   if pos((' '+'s'+' '),memo1.Lines.Strings[i])>0 then
   memo2.Lines.Add('('+'2'+','+'"'+'s'+'"'+')');

   if pos((' '+'t'+' '),memo1.Lines.Strings[i])>0 then
   memo2.Lines.Add('('+'2'+','+'"'+'t'+'"'+')');
   if pos(' '+'u'+' ',memo1.Lines.Strings[i])>0 then
   memo2.Lines.Add('('+'2'+','+'"'+'u'+'"'+')');
   if pos(' '+'v'+' ',memo1.Lines.Strings[i])>0 then
   memo2.Lines.Add('('+'2'+','+'"'+'v'+'"'+')');
   if pos(' '+'w'+' ',memo1.Lines.Strings[i])>0 then
   memo2.Lines.Add('('+'2'+','+'"'+'w'+'"'+')');
   if pos(' '+'x'+' ',memo1.Lines.Strings[i])>0 then
   memo2.Lines.Add('('+'2'+','+'"'+'x'+'"'+')');
   if pos(' '+'y'+' ',memo1.Lines.Strings[i])>0 then
   memo2.Lines.Add('('+'2'+','+'"'+'y'+'"'+')');
   if pos(' '+'z'+' ',memo1.Lines.Strings[i])>0 then
   memo2.Lines.Add('('+'2'+','+'"'+'z'+'"'+')');

    if pos((' '+'false'+' '),memo1.Lines.Strings[i])>0 then
   memo2.Lines.Add('('+'2'+','+'"'+'false'+'"'+')');

   if pos((' '+'maxint'+' '),memo1.Lines.Strings[i])>0 then
   memo2.Lines.Add('('+'2'+','+'"'+'maxint'+'"'+')');
   if pos(' '+'true'+' ',memo1.Lines.Strings[i])>0 then
   memo2.Lines.Add('('+'2'+','+'"'+'true'+'"'+')');
   if pos(' '+'boolean'+' ',memo1.Lines.Strings[i])>0 then
   memo2.Lines.Add('('+'2'+','+'"'+'boolean'+'"'+')');
   if pos(' '+'char'+' ',memo1.Lines.Strings[i])>0 then
   memo2.Lines.Add('('+'2'+','+'"'+'char'+'"'+')');
   if pos(' '+'integer'+' ',memo1.Lines.Strings[i])>0 then
   memo2.Lines.Add('('+'2'+','+'"'+'integer'+'"'+')');
    if pos((' '+'real'+' '),memo1.Lines.Strings[i])>0 then
   memo2.Lines.Add('('+'2'+','+'"'+'real'+'"'+')');

   if pos((' '+'text'+' '),memo1.Lines.Strings[i])>0 then
   memo2.Lines.Add('('+'2'+','+'"'+'text'+'"'+')');
   if pos(' '+'string'+' ',memo1.Lines.Strings[i])>0 then
   memo2.Lines.Add('('+'2'+','+'"'+'string'+'"'+')');
   if pos(' '+'abs'+' ',memo1.Lines.Strings[i])>0 then
   memo2.Lines.Add('('+'2'+','+'"'+'abs'+'"'+')');
   if pos(' '+'arctan'+' ',memo1.Lines.Strings[i])>0 then
   memo2.Lines.Add('('+'2'+','+'"'+'arctan'+'"'+')');
   if pos(' '+'chr'+' ',memo1.Lines.Strings[i])>0 then
   memo2.Lines.Add('('+'2'+','+'"'+'chr'+'"'+')');
   if pos((' '+'copy'+' '),memo1.Lines.Strings[i])>0 then
   memo2.Lines.Add('('+'2'+','+'"'+'copy'+'"'+')');

   if pos((' '+'cos'+' '),memo1.Lines.Strings[i])>0 then
   memo2.Lines.Add('('+'2'+','+'"'+'cos'+'"'+')');
   if pos(' '+'eof'+' ',memo1.Lines.Strings[i])>0 then
   memo2.Lines.Add('('+'2'+','+'"'+'eof'+'"'+')');
   if pos(' '+'eoln'+' ',memo1.Lines.Strings[i])>0 then
   memo2.Lines.Add('('+'2'+','+'"'+'eoln'+'"'+')');
   if pos(' '+'exp'+' ',memo1.Lines.Strings[i])>0 then
   memo2.Lines.Add('('+'2'+','+'"'+'exp'+'"'+')');
   if pos(' '+'hi'+' ',memo1.Lines.Strings[i])>0 then
   memo2.Lines.Add('('+'2'+','+'"'+'hi'+'"'+')');
   if pos((' '+'length'+' '),memo1.Lines.Strings[i])>0 then
   memo2.Lines.Add('('+'2'+','+'"'+'length'+'"'+')');

   if pos((' '+'ln'+' '),memo1.Lines.Strings[i])>0 then
   memo2.Lines.Add('('+'2'+','+'"'+'ln'+'"'+')');
   if pos(' '+'lo'+' ',memo1.Lines.Strings[i])>0 then
   memo2.Lines.Add('('+'2'+','+'"'+'lo'+'"'+')');
   if pos(' '+'ord'+' ',memo1.Lines.Strings[i])>0 then
   memo2.Lines.Add('('+'2'+','+'"'+'ord'+'"'+')');
   if pos(' '+'pred'+' ',memo1.Lines.Strings[i])>0 then
   memo2.Lines.Add('('+'2'+','+'"'+'pred'+'"'+')');
   if pos(' '+'ptr'+' ',memo1.Lines.Strings[i])>0 then
   memo2.Lines.Add('('+'2'+','+'"'+'ptr'+'"'+')');
   if pos(' '+'rund'+' ',memo1.Lines.Strings[i])>0 then
   memo2.Lines.Add('('+'2'+','+'"'+'rund'+'"'+')');
   if pos(' '+'sin'+' ',memo1.Lines.Strings[i])>0 then
   memo2.Lines.Add('('+'2'+','+'"'+'sin'+'"'+')');
    if pos((' '+'sqr'+' '),memo1.Lines.Strings[i])>0 then
   memo2.Lines.Add('('+'2'+','+'"'+'sqr'+'"'+')');

   if pos((' '+'sqrt'+' '),memo1.Lines.Strings[i])>0 then
   memo2.Lines.Add('('+'2'+','+'"'+'sqrt'+'"'+')');
   if pos(' '+'succ'+' ',memo1.Lines.Strings[i])>0 then
   memo2.Lines.Add('('+'2'+','+'"'+'succ'+'"'+')');
   if pos(' '+'swap'+' ',memo1.Lines.Strings[i])>0 then
   memo2.Lines.Add('('+'2'+','+'"'+'swap'+'"'+')');
   if pos(' '+'trune'+' ',memo1.Lines.Strings[i])>0 then
   memo2.Lines.Add('('+'2'+','+'"'+'trune'+'"'+')');
   if pos(' '+'append'+' ',memo1.Lines.Strings[i])>0 then
   memo2.Lines.Add('('+'2'+','+'"'+'append'+'"'+')');
    if pos((' '+'delete'+' '),memo1.Lines.Strings[i])>0 then
   memo2.Lines.Add('('+'2'+','+'"'+'delete'+'"'+')');

  
   if pos(' '+'dispose'+' ',memo1.Lines.Strings[i])>0 then
   memo2.Lines.Add('('+'2'+','+'"'+'dispose'+'"'+')');
   if pos(' '+'get'+' ',memo1.Lines.Strings[i])>0 then
   memo2.Lines.Add('('+'2'+','+'"'+'get'+'"'+')');
   if pos(' '+'new'+' ',memo1.Lines.Strings[i])>0 then
   memo2.Lines.Add('('+'2'+','+'"'+'new'+'"'+')');
   if pos(' '+'read'+' ',memo1.Lines.Strings[i])>0 then
   memo2.Lines.Add('('+'2'+','+'"'+'read'+'"'+')');
   if pos((' '+'readln'+' '),memo1.Lines.Strings[i])>0 then
   memo2.Lines.Add('('+'2'+','+'"'+'readln'+'"'+')');

   if pos((' '+'reset'+' '),memo1.Lines.Strings[i])>0 then
   memo2.Lines.Add('('+'2'+','+'"'+'reset'+'"'+')');
   if pos(' '+'rewrite'+' ',memo1.Lines.Strings[i])>0 then
   memo2.Lines.Add('('+'2'+','+'"'+'rewrite'+'"'+')');
   if pos(' '+'seek'+' ',memo1.Lines.Strings[i])>0 then
   memo2.Lines.Add('('+'2'+','+'"'+'seek'+'"'+')');
   if pos(' '+'str'+' ',memo1.Lines.Strings[i])>0 then
   memo2.Lines.Add('('+'2'+','+'"'+'str'+'"'+')');
   if pos((' '+'main'+' '),memo1.Lines.Strings[i])>0 then
   memo2.Lines.Add('('+'2'+','+'"'+'main'+'"'+')');
   if pos((' '+'val'+' '),memo1.Lines.Strings[i])>0 then
   memo2.Lines.Add('('+'2'+','+'"'+'val'+'"'+')');

   if pos((' '+'write'+' '),memo1.Lines.Strings[i])>0 then
   memo2.Lines.Add('('+'2'+','+'"'+'write'+'"'+')');
   if pos((' '+'writeln'+' '),memo1.Lines.Strings[i])>0 then
   memo2.Lines.Add('('+'2'+','+'"'+'writeln'+'"'+')');
   if pos((' '+'unpack'+' '),memo1.Lines.Strings[i])>0 then
   memo2.Lines.Add('('+'2'+','+'"'+'unpack'+'"'+')');
   if pos((' '+'input'+' '),memo1.Lines.Strings[i])>0 then
   memo2.Lines.Add('('+'2'+','+'"'+'input'+'"'+')');
   if pos((' '+'output'+' '),memo1.Lines.Strings[i])>0 then
   memo2.Lines.Add('('+'2'+','+'"'+'ouput'+'"'+')');
   if pos(' '+'maxinum'+' ',memo1.Lines.Strings[i])>0 then
   memo2.Lines.Add('('+'2'+','+'"'+'maxinum'+'"'+')');
    if pos(' '+'mininum'+' ',memo1.Lines.Strings[i])>0 then
   memo2.Lines.Add('('+'2'+','+'"'+'mininum'+'"'+')');
     if pos((' '+'test'+' '),memo1.Lines.Strings[i])>0 then
   memo2.Lines.Add('('+'2'+','+'"'+'test'+'"'+')');
end;
 end;

procedure TForm1.Button4Click(Sender: TObject);
begin
 close;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
 memo2.Lines.Clear;
 memo1.Lines.Clear;    
end;

end.