职务名称：Delphi软件设计师 工作内容：负责软件开发与设计 工作地点：广州 学 历：大专以上 条 件： 1. 熟Delphi； 2. 有工作主动性与责任心，具有良好的团队合作精神，认真负责。 3. 开发经验两年以上及熟C++ Builder、曾任职于财经软件公司者优先录用。•　薪资制度：每位新进员工工作满一个月、三个月、再满一年者皆给予调薪。 •　社会保险：职工可享受养老、医疗、工伤、失业、生育共5项社会保险。 •　工作环境：人性化的工作环境，顺畅的升迁管道。 •　年终...

如何改变StringGrid的对齐方式（默认为左对齐）？ procedure Tform1.SG1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);var CellStr:string; Mode:integer;begin if Arow=0 then //标题栏退出 exit; if ACol in [0,6,7,8,9] then　　　//右对齐列 Mode:=DT...

Memo1 的 Lines 属性是一个 TStrings 对象, TStrings.Append 就是调用的 TStrings.Add, 所以它们没有区别;请用 "Ctrl+鼠标左键" 看看源码, 如下图:

功能说明：追加内容到文件中。文件必须要存在。　　参考实例：　　var　　 　S: String;　　 　F: TextFile;　　begin　　 　S := 'This is a book.';　　AssignFile(F, 'C:\MyFile.txt'); // 将C:\MyFile.txt文件与F变量建立连接，后面可以使用F变量对文件进行操作。 　　 　Append(F); // 以追加的方式打开文件　　 　Writeln(F, S); // 将S变量中的内容追加到文本尾后。　　 　CloseFile(F); // 关闭文件　　end;

SendMessage Public Declare Function GetDlgItem Lib "user32" Alias "GetDlgItem" (ByVal hDlg As Long, ByVal nIDDlgItem As Long) As Long 该函数检索指定的对话框中的控件句柄 如果函数调用成功则返回值为给定控件的窗口句柄。如果函数调用失败，则返回值为NULL，表示为一个无效的对话框句柄或一个不存在的控件。若想获得更多错误信息，...

这个例子讲述了如何在程序间传递消息，如何获得屏幕图形。代码如下，同时运行这两个程序，在form1中按下按纽，则在form2中会出现form1的图形。为简便，只列出窗体代码。-----------------------form1代码------------------------------unit Unit1;interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: T...

Delphi的四舍五入函数Round有BUG，无法正常工作。 对于XXX.5的情况，整数部分是奇数，那么会Round Up，偶数会Round Down，例如： x:= Round(17.5) = x = 18 x:= Round(12.5) = x = 12 请使用下面的函数代替Round： function DoRound(Value: Extended): Int64; procedure Set8087CW(NewCW: Word); asm MOV Default8087CW,AX FNCLEX FLDCW Default8087CW end; con...

转：[高手心得] 我始终认为，对一个初学者来说，it界的技术风潮是不可以追赶的，而且也没有能力去追赶。我时常看见自己的ddmm们把课本扔了，去卖些价格不菲的诸如c#, vb.net 这样的大部头，这让我感到非常痛心。而许多搞不清指针是咋回事的bbs站友眉飞色舞的讨论c#里面可以不用指针等等则让我觉得好笑。c#就象当年的asp一样，“忽如一夜春风来，千树万树梨花开”，结果许多学校的信息学院成了“web 学院”。96,97级的不少大学生都去做web 了。当然我没有任何歧视某一行业的意识。我只是觉得如果他们把追赶这些时髦技术的时间多花一点在基础的课程上应该是可以走得更远的...