感谢李马的行云流水网站提供的 C 语言版 《Pascal 词法分析器》源代码，本程序以他的程序流程为思路，针对代码上色和格式化进行了功能扩展，用 Delphi7.0 编译通过，处理速度比较理想，欢迎大家发表意见。另外，近期将完成 C# 的处理程序。
本程序由于功能还待完善，暂不公布源代码，有需要源代码的朋友可以参考《Pascal 词法分析器》，需要程序的朋友可以留下 email 地址 。
处理样例如下：
unit MainForm;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,StrUtils, DB, ADODB;
type
TForm1 = class(TForm)
Button1: TButton;
Memo: TMemo;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
ReserveWords:TStrings;
strOutput:string;
intPosition:integer;
procedure Analyzer();
function IsNumberic(ch: char):boolean;
function IsAlpha(ch: char): boolean;
function GetNextChar():Char;
procedure Processor(strInput:string);
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
ReserveWords:=TStringList.Create();
ReserveWords.LoadFromFile(''''关键字.txt'''');
end;
|
