歪歪Weblog

摘要： unit net; interface uses sysutils ,windows ,dialogs ,winsock ,classes ,comobj ,wininet; //得到本机的局域网ip地址 function getlocalip(var localip:string): boolean; //通过ip返回机器名... 阅读全文

摘要： 文本文件新建和读取使用 在窗体放一个按钮，点击输入 procedure TForm1.Button1Click(Sender: TObject); var bat : textfile; begin assignfile(bat, 'c:\123.txt'); //新建并打开文件 rewrite(bat); //Rewrite 过程能创建一个新文件并打开它；使用Reset 打开的 ... 阅读全文

摘要： 网上找来的 感觉对入门者很有启示 收藏一下了! No.1 判断逻辑类型 } var B: Boolean; begin B := Boolean(2); //这样只是为了调试//B := True; if B = True then ShowMessage('B = True'); //不建议//不安全 /////// if B then ShowMessage('B'); //建议//简短 en... 阅读全文

摘要： TStrings是一个抽象类，在实际开发中，是除了基本类型外，应用得最多的。常规的用法大家都知道，现在来讨论它的一些高级的用法。先把要讨论的几个属性列出来：1、CommaText2、Delimiter & DelimitedText3、Names & Values & ValueFromIndex先看第一个：CommaText。怎么用呢？用代码说话：const constr :String =... 阅读全文

摘要： Format是一个很常用，却又似乎很烦的方法，找到一些资料，以供查询之用。 首先看它的声明： function Format(const Format: string; const Args: array of const): string; overload; 事实上Format方法有两个种形式，另外一种是三个参数的，主要区别在于它是线程安全的， 但并不多用，所以这里只对第一个介绍： fun... 阅读全文

摘要： 摘自橙子的Delphi技术专区. 昨天群里有人问了个很有趣的问题，代码如下： var s: string; p: Integer; begin s:=Edit1.Text; p := Pos(s, memo1.Lines.Text)-1; Memo1.SelStart := p; memo1.SelLength := Length(s); Memo1.SetFocus; end; 照正常的情况... 阅读全文

摘要： //这个过程根据你的要求选择图标procedure TForm1.TreeView1GetImageIndex(Sender: TObject; Node: TTreeNode);begin if Node.HasChildren then if Node.Expanded then Node.ImageIndex := 3 //节点有子节点时打开的图标 ... 阅读全文

摘要： 一、owner和parent的区别： parent属性是指构件的包容器，构件只能在此范围内显示和移动。举例子如下： (1)在form1的窗体上，放一个panel1,并将panel1拉大， (2)在panel1上放一button1； (3)在form1上放一button2。 现在如果移动panel1,则button1随着panel1移动，这是因为button1的pa... 阅读全文

摘要： 初学Delphi的人，由于各种原因，对Delphi中的许多概念不能很好的理解，并由此带来了许多的问题，或者是开发出的程序稳性不好，一会能运行，一会又不能运行；或者是遇到一个问题久思不得其解，还误以为是Delphi自身的BUG，等等这些，浪费了我们大量的时间、精力，也影响了我们的开发效率。 那么如何才能避免这些错误了，尽量少走弯路了？笔者从事DelphiI开发多年，下面就把我的经验总结介绍给大... 阅读全文