| Blog信息 |
|
blog名称:注册会计师（注会）练习软件
日志总数:398
评论数量:116
留言数量:27
访问次数:3272741
建立时间:2005年6月6日 |
| |
|
 webbrowser获得焦点
软件技术
吕向阳 发表于 2009/3/11 13:38:34 |
能使得它所包含的文档获得焦点，从而不能立即使用Internet Explorer本身具有得快捷键，解决方法如下：<
procedure TForm1.SetFocusToDoc;
begin
if WebBrowser1.Document <> nil then
with WebBrowser1.Application as IOleobject do
DoVerb(OLEIVERB_UIACTIVATE, nil, WebBrowser1, 0, Handle, GetClientRect);
end;
除此之外，我还找到一种更简单的方法，这里一并列出：
if WebBrowser1.Document <> nil then |
|
|
delphi查右起第一个子字符串位置
软件技术
吕向阳 发表于 2009/3/11 13:36:36 |
function FindLastPos(subStr, sourStr: string): integer;
begin
subStr := ReverseString(subStr);
sourStr := ReverseString(sourStr);
Result := length(sourStr) - Pos(subStr, sourStr);
end;
|
|
|
word宏对文件进行批量操作
软件技术
吕向阳 发表于 2009/3/7 0:37:09 |
Private Declare Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long
Private Type OPENFILENAME
lStructSize As Long
hwndOwner As Long
hInstance As Long
lpstrFilter As String
&n |
|
|
access数据库运用select语句的一个奇怪问题
软件技术
吕向阳 发表于 2009/3/4 19:52:40 |
select * from tm where tmts=4 And (xans<>xmyans) order by sxh
我的想法是查询xans不等于xmyans的值，始终得不到正确的要，这两个字段均是字符型，但是将不等号改为等号结果是正确的，百思不得其解，最后没有办法的情况下测试下xmyans这个结果里面大部分是空值，才考虑可能是空值不参与比较。
改为下面语句正常：
select * from tm where tmts=4 And ((xans<>xmyans) or xmyans is null) order by sxh
|
|
|
perlregex正则表达式控件的备忘
软件技术
吕向阳 发表于 2009/2/27 22:41:54 |
var
r: TPerlRegEx;
begin
//替换
r := TPerlRegEx.Create(nil);
r.Subject := str; //这是要替换的源字符串
r.RegEx := '!!v:imagedata'; //这是表达式, 在这里是准备替换掉的子串
r.Replacement := '<v:imagedata'; //要替换成的新串
r.ReplaceAll; //执行全部替换
//查找
str := r.Subject;
r.Subject := str;
r.RegEx := '<img([\s\S]+?)>';
&nbs |
|
|