将网页显示的 Delphi 代码上色并格式化

首页 | 图形图象 | 编程开发 | 操作系统 | 数据库 | 服务器 | 网络安全 | 人才酷 | 招聘 | 资源 | 酷站 | 顶尖周刊 |

热门文章

编辑推荐

您现在的位置：顶尖设计 >> IT学院 >> 编程开发 >> Delphi >> 文章正文

将网页显示的 Delphi 代码上色并格式化

作者：wlnh_2004 来源：csdn 点击：更新：2006-12-19

简介：

感谢李马的行云流水网站提供的 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;