摘要：
图中右下角是电子图章，VB代码如下： Dim shp As Object Dim DZTZ As String DZTZ = ThisWorkbook.Path & "\" & "YWTJTZ.JPG" If Dir(DZTZ) = "" Then MsgBox "目录下没有电子图章。", vbIn 阅读全文
摘要：
{ 本单元使用 TDictionary 练习测试 } TMyGrid = class(TStringgrid);{能使用整行删除} uses StrUtils, { 使用函数必须在此 添加 strUtils } Generics.Collections; {Delphi 泛型容器单元} var Di 阅读全文
摘要：
var Dict:Variant; n,ncount,i:byte; kArr,iArr:array of variant; Ts,Ts2:TStringList; kv,iv,FGF:string; procedure TForm1.Button1Click(Sender: TObject); b 阅读全文