摘要： Delphi中判断是否含有全角字符方法：//判断全角限制字符ifLength(pStr)Length(WideString(pStr))thenbeginResult:='Full-widthcharacters';exit;end;说明：Length('汉字')=4Length(WideString('汉字'))=2　　－－本文来源于[TTT BLOG]：http://www.taoyoyo.net/ttt/post/190.html (提示：转载时请务必保留版权信息或者注明来源。) 阅读全文

摘要： 有时我们需要在程序运行是知道当前是什么版本，当然查程序文件的属性也只可以看到，但这样太麻烦了。　　可以用以下方法调用：//要在uses中添加引用单元：Version;procedure TForm1.FormSet;varpVer : tVersion;begin pVer := Tversion.Create(ParamStr(0)); x_pVerNo := pVer.FileVersion; x_pProgramName := pVer.InternalName; x_pComments := pVer.FileDescription; pVer.Free;end;　　－－本文来源于[T 阅读全文

摘要： 1，WinExec()：　　WinExec主要运行EXE文件，不能运行其他类型的文件。不用引用特别单元。　　原型：UINT WinExec(exePath,ShowCmd)　　示例，我想要用记事本打开"C:\HDC.TXT"，以正常方式运行：WinExec(pChar('notepad c:\taoyoyo.txt'),SW_SHOWNORMAL);　　参数说明：　　--xePath：命令行参数。注意，要用pChar转化一下。　　--ShowCmd：外部程序的运行方式。其取值如下：　　----SW_HIDE 隐藏　　----SW_MAXIMIZE 最大化　　----SW_MINIMIZE 最小 阅读全文

摘要： 此窗体，只需要简单准备如下，即可运行： 1，添加一个TAdvStringGrid，并命名为strGrid1。 2，设置：TAdvStringGrid--option--goEditing=true TAdvStringGrid--enableGraphics=true 3，修改Form名称为form1，或替换以下代码中的form1为当前窗体的名字。 4，将以下代码覆盖原来的代码。 5，关联以下过程(只需要在窗体和strGrid1控件属性-事件页中双击相关项即可完成关联。) FormCreate FormShow strGrid1CanEditCell strGrid1GetAlignm 阅读全文

摘要： 在事件 procedure TForm1.advStringGrid1GetAlignment(Sender: TObject; ARow, ACol: Integer; var HAlign: TAlignment; var VAlign: TVAlignment);begin HAlign := taCenter; VAlign := vtaCenter;end; 阅读全文

摘要： 在C语言中，假设我们有这样的一个函数：　　　　int function(int a,int b)　　　　调用时只要用result = function(1,2)这样的方式就可以使用这个函数。但是，当高级语言被编译成计算机可以识别的机器码时，有一个问题就凸现出来：在CPU中，计算机没有办法知道一个函数调用需要多少个、什么样的参数，也没有硬件可以保存这些参数。也就是说，计算机不知道怎么给这个函数传递参数，传递参数的工作必须由函数调用者和函数本身来协调。为此，计算机提供了一种被称为栈的数据结构来支持参数传递。　　栈是一种先进后出的数据结构，栈有一个存储区、一个栈顶指针。栈顶指针指向堆栈中第一个可用的 阅读全文

摘要： 打包工具--- setup factory 7 使用 1 不包含源代码的打包过程 按照新建工程向导 选择了 ”为从属扫描工程文件“选项（或者从“工具”菜单--扫描VB工程） 完成向导后 删除：frm/bas/vbp/vbw等源代码文件。 保留：exe/dll/ocx等运行支持文件 然后“发布”菜单-- 构建 -- 选择打包文件名 完成打包 最后安装的文件在安装夹下就没有代码文件了。2 修改安装步骤的屏幕和信息 “工程”菜单 -- 屏幕... --找到需要的阶段： 安装之前，安装之时，安装之后 -- 点击 “编辑”（还有添加、移除按钮） -- 修改安装信息。 添加代码是在操作（ac 阅读全文

摘要： 在程序中调用了DLL，用到了string，uses sharemem编译通过在本机运行没问题，打包后安装在其他机器上则提示无法找到borlndmm.dllDelphi2006~Delphi2011里直接用SimpleShareMem单元就可以避免使用borlandmm.dll了。 阅读全文

摘要： procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);vars: String;R: TRect;beginwith StringGrid1 dobeginif ARow=0 then Canvas.Font.Color := clWhite;if ACol=0 then Canvas.Font.Color := clWhite;if Cells[ACol,ARow] = '变色' then //找到内容为'变色'的单元格 阅读全文

摘要： 在OnDrawCell中加入如下代码：procedure TForm1.Stringgrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);begin with Sender as TStringGrid do begin Canvas.FillRect(Rect); DrawText(Canvas.Handle, Pchar(Cells[ACol, ARow]), Length(Cells[ACol, ARow]), Rect, DT_CENTER or DT_SINGLE 阅读全文