已经好几次了，没有这个函数还是感觉很不方便，所以自己写了一个：function LastPos(strFind :string; ch: Char): integer;var i, n: integer;begin Result := -1; if strFind='' then ... Read More
posted @ 2015-12-02 23:34
findumars
Views(1097)
Comments(0)
Diggs(0)
1．别试图教猫唱歌，这样不但不会有结果，还会惹猫不高兴。 2．别跟傻瓜吵架，不然旁人会搞不清楚，到底谁是傻瓜。 http://baike.baidu.com/view/40544.htm Read More
posted @ 2015-12-02 22:44
findumars
Views(1415)
Comments(0)
Diggs(0)
正方：学历重要 大专，刚毕业那会太坑爹了。太受学历限制。等有工作经验了会好点。要找还是找得到的 有了项目经验 - 学历不重要了 只是减少大公司招人的成本 的确，考虑到大专的平均水平，很多公司都不愿意花人力去大专生里挑选。 说到底还是看个人努力程度，学历的确是一个快速的筛选方法，但是不是一个绝对的衡量 Read More
posted @ 2015-12-02 22:29
findumars
Views(319)
Comments(0)
Diggs(0)
道生一,一生二,二生万象.OO的思想就是抽象,万象归宗,化繁为简.99%的程序员使用OO,或者所谓的类库的目的就是好用,不必了解内部实现就可以直接达到所期望的结果.这时一种生产力的进步,一种流水线式半零件式的生产流程.程序员只是最后再流水线上拼接起来上个螺丝的工人而已(严格说来是码农).C++就是抽... Read More
posted @ 2015-12-02 19:58
findumars
Views(768)
Comments(0)
Diggs(0)
主要用到的是MSAA(Microsoft Active Accessibility) 函数：ObjectFromLResult，该函数在动态链接库 oleacc.dll 中定义。uses SHDocVw, MsHtml, ActiveX;type TObjectFromLResult = funct... Read More
posted @ 2015-12-02 06:58
findumars
Views(1036)
Comments(1)
Diggs(1)
TTypeKind，类型类别，tkclass,tkinteger,tkstring等。类，属性都是一种类型。ttypedata,是一个record包括ttypekind。是一个类的描述。TTypeKing只是这许多描述中的一种。GetTypeData函数，获取类的相关信息，当然也包括属性的信息,比如... Read More
posted @ 2015-12-02 06:57
findumars
Views(525)
Comments(0)
Diggs(0)
一月 27th, 2005 by 猛禽风焱在《“18般武艺”？》中说到他碰上的被多种语言纠缠的问题。我在回复里说：很多语言只要能看懂几分就行了，没必要每一种都精通但是如果只会很少的一两种语言也是不行的。因为看了一些关于JAVA的反射技术的应用，忽然想到DELPHI的RTTI也很强，于是试着拿数据集下... Read More
posted @ 2015-12-02 06:54
findumars
Views(871)
Comments(0)
Diggs(0)
procedureTForm1.CheckBox1Click(Sender: TObject);begin{这里是让整个页面可编辑, 也可以单独编辑某个元素} WebBrowser1.OleObject.document.body.contentEditable := CheckBox1.Check... Read More
posted @ 2015-12-02 06:51
findumars
Views(408)
Comments(0)
Diggs(0)
一、保存为HTML文件uses ActiveX;...procedure WB_SaveAs_HTML(WB : TWebBrowser; const FileName : string) ;var PersistStream: IPersistStreamInit; Stream: IStream... Read More
posted @ 2015-12-02 06:51
findumars
Views(529)
Comments(0)
Diggs(0)
unit Unit1;interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Label1: T... Read More
posted @ 2015-12-02 06:45
findumars
Views(493)
Comments(0)
Diggs(0)
答案是：在线程中出现没处理的异常时，线程会自动终止。以前刚看到别人的代码时候，十分惊讶，try catch几乎成了最主要的语句了，还以为是因为代码风格，或者更严谨一些的原因。到今天才明白，原来还不是这个原因，是因为线程出现异常，满盘出错（线程的一个执行步骤分为整整28步，有些步骤甚至还包含一些小的步... Read More
posted @ 2015-12-02 06:43
findumars
Views(932)
Comments(0)
Diggs(0)
procedure TForm1.pnl1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);begin ReleaseCapture;SendMessage(pnl1.Handl... Read More
posted @ 2015-12-02 06:41
findumars
Views(581)
Comments(0)
Diggs(0)
判断头几个字节：function IsJpegFile(FileName: string): Boolean;constRightBuf : array[0..3] of Byte = ($FF,$D8,$FF,$D9);varBuf: array[0..3] of Byte;beginFillCh... Read More
posted @ 2015-12-02 06:34
findumars
Views(792)
Comments(0)
Diggs(0)
unit Unit1;interfaceusesWindows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;typeTForm1 = class(TForm)private{ Private declaration... Read More
posted @ 2015-12-02 06:30
findumars
Views(617)
Comments(0)
Diggs(0)
最近帮朋友做一个软件，其中要自动化某网页中的操作，最简的操作是调用自己写的代码。代码如下：procedure TForm1.Button2Click(Sender: TObject);var i:integer; h:IHTMLHeaderElement; o:OleVariant;begin o:... Read More
posted @ 2015-12-02 06:26
findumars
Views(647)
Comments(0)
Diggs(0)
program Project1;{ Types and Structures Definition }type WNDCLASSEX = packed record cbSize: LongWord; style: LongWord; lpfnWndProc: Pointer; cbCls... Read More
posted @ 2015-12-02 06:23
findumars
Views(537)
Comments(0)
Diggs(0)
class function TObject.MethodAddress(const Name: ShortString): Pointer;asm { -> EAX Pointer to class } { EDX Pointer to name } PUSH EBX PUSH ESI PUSH Read More
posted @ 2015-12-02 06:10
findumars
Views(346)
Comments(0)
Diggs(0)
虽然用delphi也有7，8年了，但大部分时间还是用在系统的架构上，对delphi底层还是一知半解，今天在网上看到一篇文章写得很好，虽然是07年的，但仍有借鉴的价值。现摘录如下：Delphi程序设计之--经验技巧这些日子太忙了，今天把剩下的部分贴完，希望对大家有用。看过前一篇的都知道此文的作者和出处... Read More
posted @ 2015-12-02 06:09
findumars
Views(515)
Comments(0)
Diggs(0)
由于TFlowPanel中没有设置滚动条的相关属性。所以我们只好另辟溪径。再加一个tscrollbox来实现。 具体操作如下： 1，先添加一个Tscrollbox,设置其align为alclient。autosize默认为false,不用改动。 2,在其中添加一个tflowpanel,设置align Read More
posted @ 2015-12-02 06:03
findumars
Views(3228)
Comments(0)
Diggs(0)
这是一个在窗体标题栏添加自定义按钮的组件（TTitleBarButton）开发实例，标题栏按钮组件TTitleBarButton以TComponent为直接继承对象，它是一个可以在窗体标题栏上显示按钮的组件，像最大化、最小化和关闭按钮等。 1、首先确定组件的属性。 属性是组件的重要组成部分，它相当于 Read More
posted @ 2015-12-02 06:02
findumars
Views(2650)
Comments(1)
Diggs(0)
浙公网安备 33010602011771号