2009 年 4月 14 日随笔档案 - 万一

2009年4月14日

摘要： unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButton... 阅读全文

posted @ 2009-04-14 20:40 万一阅读(4556) 评论(7) 推荐(0) 编辑

从字符串中提取单词、从字符串中提取汉字的函数

摘要： {从字符串中提取单词的函数} procedure StrToWordList(str: string; var List: TStringList); var p: PChar; i: Integer; begin if List = nil then List := TStringList.Create; List.Clear; {去除重复} List.Sorted ... 阅读全文

posted @ 2009-04-14 15:55 万一阅读(6853) 评论(9) 推荐(0) 编辑