Super Sonic

摘要： 1declare @Menu_id varchar(250) 2declare @pos int 3declare @oldPos int 4declare @tempstr varchar(100) 5 6 7create table #temp_id ( id int ) 8 9set @Menu_id = '60,62,63,64' 10set @pos=1 11... 阅读全文

摘要： 在服务函数中用Var用参数关键字时，比如 function TEMISLogic.UpdateMenu(var OldFields: TEMISFields): Boolean; begin Result := False; try Result := FEMISS.UpdateMenu(OldFields); except on E : Exception do ... 阅读全文

摘要： 最近无意中发现在盒子论坛中有人回答了本文的问题，最后在Eurekalog的安装目录中的ExceptionLog.pas找到了多发送的Rest命令的地方，现传上来，有需要的朋友下载下面的文件。 因为163,SINA等邮件服务器的命令规定，在STOCK发送邮件时多发送了一个REST命令，去掉REST命令，问题解决。 ExceptionLog.pas文件下载 在D7下编译通过... 阅读全文

摘要： 在Delphi中，也有与C相似的预编译指令，虽然该类指令只在当前的单个文件有效（也有可能是笔者未全面了解该类指令的真正用法），但是这一类指令对于进行多版本的制作工作（如从标准版中出学习版），确实有着相当不错的用途。 一．指令介绍： 1． DEFINE指令： 格式：{$DEFINE 名称} 说明 ：用于定义一个在当前单元有效的符号（Symbol）。定义了 ... 阅读全文

摘要： 在DELPHI下新建一工程,放置Edit1,Edit2,Label1,Label2,Button1组件.具体代码如下: unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,Registry;//在此加上Registry以... 阅读全文

该文被密码保护。 阅读全文

摘要： 随着项目的失败，这些天一直在总结失败的原因，到底是为什么？ 一、技术层面 1、少用指针类型，多用类。 虽然指针类型能有效的节约内存和加快运行速度，但指针远没有类来得稳定及易用。在日常使用中，往往指针对应的是record类型，例如 1 PDataColumns = ^DataColumns; 2 DataColu... 阅读全文

摘要： 赋值： type PAllHidenDate = ^AllHidenDate; AllHidenDate = record PriceID: Integer; OrderNumber: string; State: Integer; PriceData: WideString; end; var Hi... 阅读全文

摘要： 最近在使用Thread时发现，如果在同步代码中有运行比较长的算法时，会把主线程阻塞，使界面无法操作。找了很多资料后来发现，在要在运行比较长的算法中加入Application.ProcessMessages。 Application.ProcessMessages的意思是响应主线程中消息队列里的消息。 阅读全文

摘要： 权限和日志管理是较为常见的水平功能，而且需求比较灵活，通常硬编码到程序中。本文将对Delphi中的Action进行扩充实现将权限和日志管理功能从主程序中分离。1. 常见的方法是将权限管理和日志管理直接硬编码到过程或者对象的方法中。例如：procedure TForm1.Button1Click(Sender: TObject);begin if isSuperUser(UserName) th... 阅读全文