KGisSoft

procedure TForm1.SendmMSG(MessageStr: String);   //用于发送消息var  si : Tstartupinfo;  pi : TProcessInformation;begin    MessageStr:=net send hostname +MessageStr;     if sendcount=-1 then    begin    Fi

     一直都听说delphi中画布使用简单方便。现在我就利用画布实现一个简单的树机构的图形表示。系统支持节点选择、移动、保存树、打开树等。为了实现的方便用到了递归与指针，虽然效率有点问题但是在快速解决问题还是蛮好的。  程序写的比较乱，欢迎交流：sss@pacia.com.cn  源代码如下：  unit U_Tree;interfaceuses  Windows, Mes

MapX5中使用自定义字体符号       觉得现在使用自定义字体作为点符号的应用是越来越少了，近段时间在开发GPS车辆管理的GIS系统的时候要用到动态显示车辆位置，觉得用其他方式在地图上显示车辆可能会对性能有一定的影响，所以就使用的自定义字体。       首先是创建自定义的字体。使用了字体编辑软件fontlab.v4.60。       其次就是在Delphi＋MapX中使用该字体

近来看了一些面向对象的资料，就练习写了一个excel读取的类，还有很多不完善的地方，不知道该怎么修改了，贴出来看看谁能给点意见unit ExcelObj;//*****************************************************************************//     调用示例：excelobj:=TExcelobj.create(F