![](https://img-blog.csdnimg.cn/20201014180756754.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
Delphi
文章平均质量分 66
laihua
这个作者很懒,什么都没留下…
展开
-
Delphi动态创建树
数据结构如下: CREATE TABLE [tbTree] ( [ID] [varchar] (4) COLLATE NOT NULL , [Context] [nvarchar] (50) NULL , [ParentID] [varchar] (4) NULL , CONSTRAINT [PK_tbTree] PRIMARY KEY CLUSTERED ( [ID] ) ON [原创 2004-10-08 20:33:00 · 1409 阅读 · 2 评论 -
delphi制作的托盘程序
unit uMain;interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, shellapi, Menus, Buttons, ExtCtrls;const mousemsg = wm_user + 1; iid = 100;type TForm1 = cla原创 2004-11-19 16:20:00 · 1321 阅读 · 1 评论 -
判断字符串中是否有中文
System.Text.Encoding.Default.GetByteCount(str)==str.Length为无中文,否则为有中文DELPHIfunction CheckEn(AEn: String): Boolean;var ans : AnsiString; wis : WideString; i, anslng, wislng: integer;begin Result := Fa原创 2004-11-19 21:03:00 · 1137 阅读 · 0 评论