tip03.htm

对于学习很有帮助

  sl:ishelllink;
begin
  sl:=CreateComObject(CLSID_ShellLink) as IShellLink;
end;

<i>98-8-3 18:05</i>
<b>TQuery的另一件怪事</b>
我把一个Query元件设置好,Active属性置为True,运行它,怪事出现了：Query
的Active自动变为False。奇怪，我单步运行它，发现在第一步时，Active就
会变。这和Form中的语句无关。注意到我在编辑SQL语句串时，打开了一个
Code Editor窗口，我把它关闭，再次运行，正常了。我做了个实验：仍旧打
开Code Editor窗口，运行，没问题；在Code Editor中做一点改动，再运行，
上述现象再次出现；点击Save All按钮，运行，仍然出现；关闭Code Editor
窗口，运行，正常。 ---- Bug?

<i>98-8-1 10:01</i>
<b>在使用TQuery时，我遇到了一个怪事。</b>经过是这样的：
我先建立一个Query1元件，输入一条SQL语句，并作了些修改，它工作正常。
后来，SQL语句有了很大变化，我输入新的SQL语句，双击Query1的Active属性，
出现：Query1: Field 'SUM(RS)' not found
我知道，这条SQL语句在Oracle服务器上执行得好好的，里面没有任何错误。
没找到原因，我只好建立另一个元件Query2，把新的SQL贴入，这个工作正常。
也许是某些基本属性改变了。但仔细对照Query1和Query2的各项属性值，发现
它们一模一样。再试，还是Query1不行，Query2行。我忽然想到一个办法：单
击Query1，按Ctrl-C键，把它放在WIN95剪贴板里，打开Notepad，再Ctrl-V；
再用同样方法，把Query2放在另一个Notepad窗口里，两相对照，真相大白：
---------------------------------------------------
object Query1: TQuery
  DatabaseName = 'myorac'
  SQL.Strings = (
    'select a.dwbm,d.dwmc,a.ybsj,a.srs,a.sylj from'
    ... 以下省略 ... )
  Left = 104
  Top = 16
  object Query1DWBM: TStringField
    FieldName = 'DWBM'
    Size = 10
  end
  object Query1YBSJ: TStringField
    FieldName = 'YBSJ'
    Size = 6
  end
  object Query1SUMRS: TFloatField
    FieldName = 'SUM(RS)'
  end
  object Query1SUMYLJ: TFloatField
    FieldName = 'SUM(YLJ)'
  end
end
---------------------------------------------------
object Query2: TQuery
  DatabaseName = 'myorac'
  SQL.Strings = (
    'select a.dwbm,d.dwmc,a.ybsj,a.srs,a.sylj from'
    ... 以下省略 ... )
  Left = 200
  Top = 16
end
---------------------------------------------------
原来Query1中多了这么多东西！我想起自己曾用字段编辑器(Field Editor)
为增加新SQL语句前置入一些字段。双击Query1打开字段编辑器，果然如此！
上面真的有一行是SUM(RS)。看来，这是一个经验问题，错误很隐蔽。

......差点错怪Delphi。

<i>98-7-27 10:21</i>
看了《中国计算机报》7月20日C12版的<b>《Delphi编程经典》</b>，禁不住想买本
《Delphi2 程序设计大全》。正好星期六去省城济南，我当然不会错过这个
机会。在青龙桥的计算机书店里，我发现了那里的这部书的最后一本！好贵：
￥133！但我算了一下，共有1207页，平均每页1毛1，比别的同类型的书相对
来说还要便宜一点呢。^o^
这本书真是名不虚传，它和我看过的另外四本Delphi书有很大的不同。后者
主要的目的不外乎介绍Delphi的入门，控件的用法，OLE，DLL，数据库，高
级控件编写，等等，而前者……，嘿嘿，还是让我引用几段原文吧。
------------------------------------------------------------------
    编制程序是一个有趣的职业，但同时也是一个容易令人头痛的职业。下
面所列的是作者发现自己在干得最为糟糕的那些日子里问自己的问题：
    - 为什么这东西不工作？
    - 为什么我不能这样做？难道这是不允许的？
    - 为什么我一定要这样做呢？
    - 难道没有更好的方法吗？
    - 这可能吗？这难道能实现？
    - 为什么这方法有些情况能用，有些情况又没用？
    - 这样做合法吗？还是我越做越离谱了？
    这些是作者在自己不明白一种方法不奏效时问自己的问题。回答它们的
最好办法是透过表面去看一看自己所用的东西是怎样被组合在一起的！只有
这样才能完全明白工具和自己的潜力。
    某些程序员天生就非常聪明。他们的大脑就像一台调得很准的钟。大多
数人永远都不能做得和这些极具天赋的人一样好。然而，还有另一条成为优
秀程序员的路子，这就是搞明白系统怎样工作以及为什么这样工作。
    如果知道怎样做一件编程工作，就能把一项工作做好。而如果懂得了为
什么Windows和Delphi会这样工作，以及它们所遵循的原则，就能做好任何
牵扯到Windows和Delphi的工作，前者教会你做一件事情，后者教会你要干
好每件事所需知道的东西。
    这本书属于后者。书中许多内容是关于隐藏在Windows和Delphi内部的
机制的。作者一向是这样著书的，因为我相信最为实际的成为一个优秀程序
员的方法就是弄清操作系统自身是怎样工作的，以及Delphi是如何组合在一
起的。
    ……解决问题的关键不在于记住一系列的命令，而在于明白面向对象的
理论是怎么回事儿。一旦懂得了VMT是怎么回事以及虚拟内存是如何被调用
的，面向对象编程就再也不是一件神秘的玩意儿了。于是作者就可以从系统
要想正常工作必须怎样实现这样的简洁的思路来思考问题了。
    搞明白对象、组件、内存、GDI或是任何其它东西的理论并不意味着可
以神奇地将问题一下子全部解决了，但这是成为一个优秀的、全面的程序员
最有效的方法。
    当在计算机前工作的时间越来越多时，你必将成为更好的程序员。经验
能帮助人们减短往往困扰着初学者的学习曲线。只要读者在不断地学习关于
计算机的东西，学习新技巧的过程也就越来越快。
    通过经验能学到的不只是一系列的技巧，还有对日夜伴你工作的机器和
工具的内部机理的理解。这种理论上知识是世界是最实际的知识，因为它能
帮助用最短的时间完成每项工作。
    真正的天才程序员的头脑中都有一幅系统如何工作的景象，他们只要一
坐下来编制程序，这幅景象就会得以利用。这本书就是这样一幅关于系统是
如何工作的景象。
------------------------------------------------------------------
看了这些话，我的心情可以说激动，感动，震动兼而有之。这已经不仅仅是
单纯地介绍编程了！

<i>98-7-23 3:56</i>
<b>ansistrlastchar('你好')</b>结果是“好”。如果有半个汉字出现，
返回这半个汉字。二者字符串长度分别为2和1。

<i>98-7-23 3:43</i>
<b>无意中学得两个字符串比较函数：</b>
CompareStr  - 区分大小写
CompareText - 不区分大小写

<i>98-7-22 23:57</i>
<b>Win32系统调用: ShGetFileInfo</b>
在学习Demos/Internet/Ftp中的例程时，我发现了这个系统调用，原型是：
   WINSHELLAPI DWORD WINAPI SHGetFileInfo(
    LPCSTR  pszPath,
    DWORD  dwFileAttributes,
    SHFILEINFO FAR  *psfi,
    UINT  cbFileInfo,
    UINT  uFlags
   );
它的作用是：取回文件系统中的一个对象的信息，对象可以是文件、文件夹、
目录或驱动器的根目录。经过三个多小时的调试，我终于完全弄明白怎样取
得并显示一个文件的图标了：包括大图标、小图标，象资源管理器上的那样。
操作过程大体如下：
var ShFileInfo: TSHFILEINFO;
    FileList:TListView;
begin
  ...
  Result := FileList.Items.Add;
  with Result do
  begin
    Caption:=filename;
    ShGetFileInfo(pchar(vartostr(filename)), 0, SHFileInfo, SizeOf(SHFileInfo),
        SHGFI_SMALLICON or SHGFI_SYSICONINDEX or SHGFI_TYPENAME)=0 then
        showmessage('error in shgetfileinfo');
    ImageIndex := SHFileInfo.iIcon;
  end;
  ...
end;
这是最关键的几个地方，中间省略了许多细节。
另：我在6月17日的笔记里提到ExtractAssociatedIcon()和ExtractIcon()函数，
也可以提取文件的图标，但是速度比这个方法要慢上许多，而且我不会用它们提
取小图标。

</span></pre><p>　</p><p><span class=font2>版主：西安&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 梁&nbsp; 明<br>日期：99-07-29<br>E-mail：<a href=mailto:[e-mail]>[e-mail]</a></span></p><hr></body></html>