2022-11-17 67 0

js := js + 'var id=MainForm.UniCheckBox3.id ; '; js := js + ' $("#"+id).addClass("x-form-cb-checked");'; js := js + ' $("#"+id).removeClass("x-form-cb-checked");';――――――――――――――――原文链接：

2022-11-17 50 0

uses Winapi.ShellAPI, Winapi.TlHelp32;var hShell32: HMODULE = 0;var _IsUserAnAdmin: function(): BOOL; stdcall = nil;function CheckIsAdmin: Boolean;begin if Assigned(_IsUserAnAdmin) then Result := _IsUserAnAdmin() else begin Result := True;

2022-11-17 54 0

varV: Variant;beginV := FDConnection1.ExecSQLScalar('select count(1) as "QQ号码" from MyTable');StatusBar1.Panels[0].Text:='总数据:'+String(V);

2022-11-17 85 0

来源：http://www.xuexidashi.vipunit Unit1;interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;type TForm1 = class(TForm) Memo1: TMemo; Me

2022-11-17 107 0

object Form1: TForm1Left = 0Top = 0Caption = 'Form1'ClientHeight = 772ClientWidth = 635Color = clBtnFaceFont.Charset = DEFAULT_CHARSETFont.Color = clWindowTextFont.Height = -11Font.Name = 'Tahoma'Font.Style = []OldCreateOrder = FalseOnCre

2022-11-17 53 0

usespsAPI;procedure ShowMemUsage(PID:Cardinal);var memCounters:_PROCESS_MEMORY_COUNTERS; h:cardinal;begin ZeroMemory(@memCounters,sizeof(memCounters)); h:=OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_READ, false, PID); if h<>0

2022-11-17 46 0

.dll 编译 不能 简单 即使 然而 模块 人人 增加DELPHI使用TClientDataSet时不携带MIDAS.DLL的方法TClientDataSet小家碧玉，恐怕人人都喜欢使用。但是，都知道娶TClientDataSet是有代价的，因为你同时也得面对丈母娘MIDAS.DLL。能不能使用TClientDataSet又不用MIDAS.DLL呢？很简单，就是uses一下MidasLib单元!MidasLib单元在Delphi6以及DELPHI的更高版本中才有，是Lib目录下的一个dcu文件。一旦在

2022-11-16 106 0

uses System.NetEncoding;TNetEncoding.Base64.EncodeString(S);TNetEncoding.Base64.DecodeString(S);TNetEncoding.URL.EncodeString(S);TNetEncoding.URL.DecodeString(S);TNetEncoding.HTML.EncodeString(S);TNetEncoding.HTML.DecodeString(S);动态数组新语法，可以不用Setlength，赋值