当前位置：首页 » 软件开发

开发技术指南» 文章正文

    引言： 模仿C能判断#include<>;main();i

 

 

编译原理的一个简单的枚举算法

模仿c

【程序编程相关:软件启动画面中启动状态的显示】

能判断#include<>;main();int;char;for;printf;scanf;{}; 【推荐阅读:一种树型控件在Delphi中的使用方法】

【扩展信息:获取其他进程中StatisBar的文本】

 private

  //在str中找第一个单词 如果 找到则返回第一个单词的地址（phrase）与下一个要分析单词的入口（nextptr）

   //如果str是空串则返回false

    function phrase(str:string;phrase,nextptr:pchar):bool; //

    //括号匹配函数

    //p;判断字符的地址,char:什么括号（包括:<>;()2种),deep:允许嵌套么?匹配成功返回true;

    function brkmatch(p:pchar;brk:char;deep:bool;next:pchar):bool;

    function corbeil(r:trichedit;line,col:pinteger):bool; //line 返回出错的行,col返回出错的列;

    function semicolon(p,next:pchar):bool;//p:入口地址  next:下一个字符的地址

     //semicolon   如果没找到 返回false next=nil 找到其他字符 返回false且 next便指向他的下一个

    function analys(sour,dest:trichedit):bool;

  public

    { public declarations }

  end;

var

  form1: tform1;

implementation

{$r *.dfm}

function tform1.corbeil(r:trichedit;line,col:pinteger):bool;

var

n,l,i,c:integer;

temp:pchar;

ptr:pchar;

begin

i:=0;

c:=r.lines.count;

n:=0;

  while c>1 do

  begin

  getmem(temp,length(r.lines.strings[i])+1);

  strcopy(temp,pchar(r.lines.strings[i]));

  ptr:=temp;

  l:=length(r.lines.strings[i]);

...   下一页

» 本期热门文章：

· 热门栏目：

» 相关精选文章

» 其它相关：