Delphi----心得01

98-6-22 11:08
翻出数月前下载的一个Delphi增强元件库rxlib.zip,照着其中的说明文件
安装到我的Delphi3下,忽然有种感觉:要是以开发Delphi元件为荣的人见到
rxlib.zip一定会有"既生瑜,何生亮"的感觉.这个元件库做得实在是太好了.

98-6-19 9:26
奇怪的I/O error -- 我在开发过程中发现下面这两条语句
     assignfile(fDesc,CDDatadir+describefile);
     reset(fDesc);  
每当我第一次运行到这里时,总会出现 I/O Error 183 的错误.
最后我想这也有可能是没有清除 ioresult 的原因.在两句之间加入
     if ioresult<>0
     then;          
oooook! 可以了.

98-6-18 11:40
值得注意的I/O error
  AssignFile(F, fname);
  Rewrite(F);
当文件 F 经 Reset(F)打开的情况下, Rewrite(F)会引发一个异常: I/O error 32
反之,经 Rewrite(F)打开, Reset(F)也会引发同一个异常.
Reset(F)两次,closefile(F),再Rewrite(F),或反之,也会引发同样异常.

98-6-17 1:40
关于FileListBox的一个无法避免的陷阱
Delphi叫我既爱且恨。我做了个程序，是扫描光盘目录的。用到了FileListBox元件。
每当我转到光盘上的某个特定文件夹后，换上另一张光盘，再次扫描，FileListBox就
会报错：File not found. 为了这个错误，我调试了整整两天！开始以为是自己程序
中有逻辑错误，可无论怎么改，每次换盘后，一更新FileListBox.directory，出错信
息依旧。最后我想了个最直接的方法：只放一个FileListBox和一个Edit元件，同样的
换盘顺序，哈！同样的错误信息再次出现。看看Delphi的源程序吧：
-- I:/Program Files/Borland/Delphi 3/Source/VCL/filectrl.pas中：
procedure TFileListBox.SetDirectory(const NewDirectory: string);
begin
  if AnsiCompareFileName(NewDirectory, FDirectory) <> 0 then
  begin
       { go to old directory first, in case not complete pathname
         and curdir changed - probably not necessary }
    ChDir(FDirectory);       // 哼！就是这儿，害得我好惨。
    ChDir(NewDirectory);     { exception raised if invalid dir }
    GetDir(0, FDirectory);   { store correct directory name }
    ReadFileNames;
  end;
end;
唉，连Delphi先生都说：“可能不需要”(probably not necessary)。
而实际上,我在修改了这里之后,仍然不对. 我又发现,在filectrl.pas中,有好几处这样
的地方需要修改. 最后,我只得放弃用FileListBox,改用ListBox了. 唉!

98-6-17 1:12
ExtractAssociatedIcon()和ExtractIcon() 可从指定文件中分离出其icon
或其相关程序的icon.
// Delphi 3
// uses ..., ShellAPI;
procedure TForm1.Button1Click(Sender: TObject);
var
  FileName: AnsiString;
begin
  FileName := 'd:/temp/Project1.exe';
  Image1.Picture.Icon.Handle :=
  ExtractIcon(Hinstance, pchar(FileName), 0);
end;

98-6-17 1:01
Lloyd's help file (ldelphi.zip)  钱达智兄推荐的技术文件。
TrayIcon.zip  同样是达智兄推荐的一个协助将您的程式放到开始功能列的右下角的元件。

98-6-13 2:36
string和pchar的相互转换：
string --> pchar:  pchar(str:string);
pchar  --> string: strpas(p:pchar);

98-6-12 18:02
关于IOResult
唉!虽然我喜欢Delphi,可也不希望有一个个的bug出现!
procedure TForm1.FormCreate(Sender: TObject);
begin
{$i-}
  chdir('dsafadsf');
  chdir('.');
{$i+}
  showmessage(inttohex(ioresult,4));
  showmessage(inttohex(ioresult,4));
end;
请看这个过程:自己作一下,你会发现,两个Showmessage的结果竟然不一样!
--= 98-6-18 11:03 =--
Sorry, 我错怪Delphi了. 事实上, 在Delphi中, 当设为{$i-}之后, 如果
发生了I/O错误, 一定要调用IOResult来清除这一错误代码.(见联机帮助)
(爱之深,恨之切嘛. xixi)

98-6-10 14:53
给数组直接赋值的方法：
  ArrayTest: array[1..2, 1..2] of integer =
          ((1, 2), (3, 4));

变量命名法：(这种前置小写变量类型的做法挺好)
iRecord: integer;
recRead: TTest;

-----------------《DELPHI新闻组学习笔记》---------------
这类字串函数（像是PadR,PadL）自己练习写写看其实挺有趣的；如果急着要用，类似这样子的字串处
理函数在网络上不少，如Delphi 2.0 深度历险就有个叫做 XProc 的档案，里头就有很多。

幸好我这里有 cj.sor..., 以后有这种问题时，请告诉大家 cj.sor . boshiamy.sor. phone.sor 可以
从哪里取得，这样，有心帮忙的朋友好帮忙测试。
-----------------《DELPHI新闻组学习笔记》---------------
(cj.sor是什么？)

98-6-9 22:55
作了一个鼠标拖放的编程。发现有一个地方有点容易弄错，那就是在
OnDragOver事件中，一定要显式地指定Accept的值。

procedure TMainForm.DescListBoxDragOver(Sender, Source: TObject; X,
  Y: Integer; State: TDragState; var Accept: Boolean);
begin
  if (Source=FileListBox) and (fileexists(FileListBox.FileName))
  then accept:=true;
end;

这是错的。只有在then子句后加入
  else accept:=false;
才能得到正确的结果。当然，还有一个更简单的写法，只要一行：
  accept:=(Source=FileListBox) and (fileexists(FileListBox.FileName));

98-6-8 22:29
今天看到了《DELPHI新闻组学习笔记》，不错，现摘抄一例：
11 How To Hide TaskBar Of Win95? 怎样隐藏Win95 的任务栏? 
回答 
 First call the Windows API function FindWindow() to retrieve 
 the handle to the TaskBar Window, then call the Windows API 
 function ShowWindow() passing the predefined constant SW_HIDE. 
  
 Example: 
  
 procedure TForm1.Button1Click(Sender: TObject); 
 var 
   hTaskBar : THandle; 
 begin 
   hTaskbar := FindWindow('Shell_TrayWnd', Nil); 
   ShowWindow(hTaskBar, SW_HIDE); 
 end; 
  
 procedure TForm1.Button2Click(Sender: TObject); 
 var 
   hTaskBar : THandle; 
 begin 
   hTaskbar := FindWindow('Shell_TrayWnd', Nil); 
   ShowWindow(hTaskBar, SW_SHOWNORMAL); 
 end; 
（归根到底，还是使用了Windows API。）

关于Win95快捷方式的API函数：IShellLink
详情可从Win32 Programmer's Reference中查到。值得一提的是:
Resolve              在必要时候对IShellLink进行刷新
GetWorkingDirectory  取得IShellLink的工作目录

98-6-8 3:19
我发现了Delphi的一个小的问题：
在Delphi的原班函数和 Win32 Api 中，各有一个函数为closefind。当uses子句中
包含windows时，closefind便自动使用Win32 Api的说明。如
    FindClose(SearchRec);
只好改为
    FindClose(SearchRec.findhandle);
不知有无更好的方法。:(
--= 98-8-8 =--
找到了! 用 Sysutils.FindClose(SearchRec);

函数findfirst和findnext的通用例程
    Found := FindFirst(Path, Attr, SearchRec);
    while Found = 0 do
    begin
      ProcessSearchRec(SearchRec);
      Found := FindNext(SearchRec);
    end;
    FindClose(SearchRec);

98-6-8 1:31
exit用在主程序中会中止程序；用在过程中则会单纯地退出这个过程。
这本是个简单的常识，我却到现在才会......

98-6-7 23:31
保留字Initialization和finalization
在一个Form的源代码的结束行的标志"end."前，可以加上如下两个保留字
initialization
 { 在这里你可以对数据进行初始化 }
finalization
 { 这里你可以做一些善后工作，如释放内存 }
end.

98-6-6 1:55
GetVolumeInformation函数及其帮助文件的小错误
函数GetVolumeInformation可以取得指定盘符的文件系统类型和其它一些重要参数
BOOL GetVolumeInformation(
    LPCTSTR  lpRootPathName,	// address of root directory of the file system 
    LPTSTR  lpVolumeNameBuffer,	// address of name of the volume 
    DWORD  nVolumeNameSize,	// length of lpVolumeNameBuffer 
    LPDWORD  lpVolumeSerialNumber,	// address of volume serial number 
    LPDWORD  lpMaximumComponentLength,	// address of system's maximum filename length
    LPDWORD  lpFileSystemFlags,	// address of file system flags 
    LPTSTR  lpFileSystemNameBuffer,	// address of name of file system 
    DWORD  nFileSystemNameSize 	// length of lpFileSystemNameBuffer 
   );	
这是在Win32API的Help文件中的说明，可惜有些错误，那就是最后两个LPDWORD，应为DWORD才对。

98-6-5 14:38
demos/doc/filmanex/fmxutils.pas有一处bug

98-5-31 3:07.
看了demos/teechart中的例程，哇！功能太全太多了。
chat* lov teechart
号外号外，文安小生和teechart相爱了！

98.5.29
我找了许久，并在无意中发现的--有关String类型的另两个函数/过程
procedure SetLength(var S: string; NewLength: Integer);
function Length(S: string): Integer;
//Length returns the number of characters used in a string.
chat* ah

98.5.25
string的相关过程和函数（省得以后到处找:）
The SysUtils unit provides a number of null-terminated string handling functions.
The following table gives a brief description of each of these functions.
--------        -----------
Function	Description
--------        -----------
StrAlloc	Allocates a character buffer of a given size on the heap.
StrBufSize	Returns the size of a character buffer allocated using StrAlloc or StrNew.
StrCat		Concatenates two strings.
StrComp		Compares two strings.
StrCopy		Copies a string.
StrDispose	Disposes a character buffer allocated using StrAlloc or StrNew.
StrECopy	Copies a string and returns a pointer to the end of the string.
StrEnd		Returns a pointer to the end of a string.
StrFmt		Formats one or more values into a string.

StrIComp	Compares two strings without case sensitivity.
StrLCat		Concatenates two strings with a given maximum length of the resulting string.
StrLComp	Compares two strings for a given maximum length.
StrLCopy	Copies a string up to a given maximum length.
StrLen		Returns the length of a string.
StrLFmt		Formats one or more values into a string with a given maximum length.
StrLIComp	Compares two strings for a given maximum length without case sensitivity.
StrLower	Converts a string to lowercase.

StrMove		Moves a block of characters from one string to another.
StrNew		Allocates a string on the heap.
StrPCopy	Copies a Pascal string to a null-terminated string.
StrPLCopy	Copies a Pascal string to a null-terminated string with a given maximum length.
StrPos		Returns a pointer to the first occurrence of a given substring within a string.
StrRScan	Returns a pointer to the last occurrence of a given character within a string.
StrScan		Returns a pointer to the first occurrence of a given character within a string.
StrUpper	Converts a string to uppercase.

命令行参数的使用
Delphi提供了访问命令行参数的方便的方式，那就是使用
ParamStr和ParamCount函数。其中ParamStr(0)返回的是当
前程序名，如C:/TEST/MYPROG.EXE，ParamStr(1)返回第一
个参数，以此类推；ParamCount则是参数个数。示例如下
var 
  I: Word;
  Y: Integer;
begin
  Y := 10;
  for I := 1 to ParamCount do begin
    Canvas.TextOut(5, Y, ParamStr(I));
    Y := Y + Canvas.TextHeight(ParamStr(I)) + 5;
  end;
end;

修改系统时间时应注意的问题
一开始，我使用GetSystemTime和SetSystemTime，但发现结果不对，
经仔细检查才知道，这中间的误差是8个小时，正好是中国的时区数。
改用GetLocalTime和SetLocalTime后，一切正常。