laihua的专栏

数据结构如下： 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 [

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

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