癫狂编程

摘要： ━━━━━━━━━━━━━━━━━━━━━━━━━━【strlen】PChar 串专用函数：串长度procedure TForm1.BitBtn1Click(Sender: TObject); var s: Widestring; begin s := '桂枝香在故国晚秋'; ShowMessage 阅读全文

摘要： delphi treeview 分割号 层次 阅读全文

摘要： 大小写转换: 清除两边空格或指定字符: 字符串对比: 搜索字符串: 是否包含: 添加或解除引号: 适宽处理: 插入与删除: 截取: 替换: 分割: 连接: 类型转换: 定界符: 空字符串: String 与 Char: 其他: 阅读全文

摘要： 最近在使用Delphi开发一种应用系统的集成开发环境。其中需要实现一个字符串拆分功能，方法基本原型应该是：procedure SplitString(src: string ; ch: Char; var stringList: TStringList);目的是使用字符ch拆分src字符串，把拆分的 阅读全文

摘要： var I: Integer; S: string; A: TArray<string>;begin S := 'AAA分割bbb分割ccc'; A := S.Split(['分割']); for I := 0 to High(A) do ShowMessage(A[I]);end; 输出结果为： 阅读全文

摘要： 问题来源: http://www.cnblogs.com/del/archive/2008/05/15/1114450.html#1199402 本例效果图: 阅读全文

摘要： 本例效果图: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, DBGrids, DB, DBClient, St 阅读全文

摘要： 第十一章 TClientDataSet 与TTable、TQuery一样，TClientDataSet也是从TDataSet继承下来的，它通常用于多层体系结构的客户端。TClientDataSet最大的特点是它不依赖于BDE(Borland Database Engine)，但它需要一个动态链接库的 阅读全文

摘要： delphi Midas SQLServer的自增字段的处理1.新增时，表中有自增字段，但是不希望用Refresh，直接ApplyUpdates直接看见自增字段的值在DataSetProvider.AfterUpdateRecord写如下代码 2.新增时，从表的关联字段与主表的自增字段同步更新 De 阅读全文

摘要： Delphi的有些组件中都包含.Data属性，比如TTreeNode，.Data属性可以认为是一个指针，可以指向任何类或者结构，方便后续操作。 但是TMenuItem没有.Data属性，下面介绍最简单的方法为TMenuItem增加.Data属性。 在需要使用的.pas文件前面写上如下代码 type 阅读全文

摘要： 很少用到 repeat until，但有时候，她真的很实用 阅读全文

摘要： clientdataset的使用(一) Delphi做为一个快速应用开发工具，深受程序员的喜爱。其强大的组件功能，让程序员能够轻松、高效地完成常见的界面开发、数据库应用等功能。然而，帮助的相对缺乏，使得许多组件的功能并不为人们正确地使用，究其原因，仍然是认识上的问题。对于MIDAS开发中的核心部件， 阅读全文

摘要： 我看了书上例子，好象两者都可以实现treeview中的node 的构建。 addchild是给当前的node建一个子node,它比当前node要向右缩进几格add建立同级的node,不缩进 aNode :=TreeView1.Items.Add(Node, S)aNode 与 Node 是兄弟。bN 阅读全文

摘要： nil：空指针，空地址，对象也是指针，所以可以object := nil;null：null是一个未定义值的变量，既不是0也不代表空字符串，它是未定义的。http://www.delphibasics.co.uk/RTL.asp?Name=Null判断对象为不为空用if assigned(objec 阅读全文

摘要： {*******************************************************}{ }{ 操作TreeView }{ }{ 版权所有 (C) 2008 咏南工作室 }{ }{********************************************** 阅读全文

摘要： 首先说下树节点对应的表的基本结构,必需要有的字段(节点编号,父节点编号,节点名称),其他字段根据你开发的需要添加从添加节点开始,一开始就取出表中最大节点编号,每次添加节点的时候,该节点编号增加1;添加节点的时候我们有2个步骤,首先是给treeview树种建立节点;其次是给数据库中添加相应的节点记录; 阅读全文

摘要： //判断单位转换率 try um_rate := vp_mstr.F('vp_um_rate_d').AsFloat / vp_mstr.F('vp_um_rate_m').AsFloat; if um_rate <= 0 then abort else if (vp_mstr.F('vp_um').AsString = vp_mstr.F('part_um').AsString) and (um 阅读全文

摘要： delphi中异常定义如下： TCustomException = class(Exception) private public constructor Create(const Msg: string ); end; 在一般的编程中，因为涉及到函数的嵌套调用，如果在一个函数中发生异常，且此函数中 阅读全文

摘要： 一.异常的来源 在Delphi应用程序中，下列的情况都比较有可能产生异常。 1.文件处理 2.内存分配 3.windows资源 4.运行时创建对象和窗体 5.硬件和操作系统冲突 6.网络问题 7.数据库 8.控件中的异常 9.DLL文件的异常 10.强制类型转换 ………… 二.异常的处理 1.try 阅读全文

摘要： 当您的云服务器无法远程登录时，我们首先建议您使用VNC方式登录。 是否可以通过控制台远程登录 远程登录失败时，请首先尝试能否通过管理控制台，使用VNC方式登录弹性云服务器。 登录管理控制台。 选择“计算 > 弹性云服务器”。 选择待登录的云服务器单击“操作”列下的“远程登录”。 图1 远程登录 当界 阅读全文