2008-02-28 12:46
这是个比较困难的东西，我花了较长的时间来研究它，数据操作无非增删改查，这里实现的是增加操作。
1. 在SharePoint中新建一个空白 Website，命名为UserList，然后新建一个Custom List，命名为Users，向列表中添加User ID 和 Memo 两个字段，修改默认视图为显示 Title，User ID 和 Memo
2. 访问SharePoint的Web Service，在 |
2008-02-27 12:17
其实很简单，利用WebPartManager对象就可以实现，代码如下：
procedure RaisePostBackEvent(eventArgument: string);
var
i: integer;
instance: Hello; // the class from namespace Rarnu.Hello
begin
for i := 0 to WebPartManager.WebParts.Count -1 do
begin
if WebPartManager.WebParts[i].Title = |
2008-02-26 23:38
SharePoint提供了较为强大的工作流功能，但是也会有系统自带的无法满足需求的情况
此时就需要自己动手写一个工作流模块，并使用它。下面就是一个简单的工作流实例。
首先还是建一个Chrome类库项目，然后导入以下命名空间：
System
System.Data
System.Design
System.Drawing
System.Drawing.Design
System.Transactions
System.Xml
System.Web
System.Web.Services
System.Core
在设计窗口上拖入一个CodeAction控件，命名为 |
2008-02-24 15:53
这是一个Chrome工程，需要RemObjects Chrome 2.0的支持
新建一个Chrome Class Library，然后添加 System.Web 的引用
namespace WPChrome;
interface
uses
System.Web.UI.WebControls.WebParts,
System.Web.UI;
type
TMars = public class(WebPart)
private
fText: String := 'We are from Mars!!';
protected
procedure Render(writer: Ht |
2008-02-19 12:14
正则表达式如下：
[\x81-\xfe][\x40-\xfe]|[\x41-\x5a]|[\x30-\x39]|[\x61-\x7a]|[\x20]
在Delphi中应用：
var
re: TRegExpr;
begin
re := TRegExpr.Create;
re.Expression := '([\x81-\xfe][\x40-\xfe]|[\x41-\x5a]|[\x30-\x39]|[\x61-\x7a]|[\x20])*';
re.InputString := '123abc一贰三';
ShowMessage(BooltoStr(re.Exec));
re.Free;
end; |
2008-02-17 19:23
这是一个全新的论坛，基本上讨论什么都是可以的
非常感谢ETIV sama帮我购买了空间，也帮我上传、配置了论坛
欢迎大家有空多来看看，多发帖子，谢谢大家的支持~
论坛地址：点击进入 |
2008-02-15 10:32
1. Delphi for AS/400
这个消息是从范路先生这里得知的，CodeGear将发布一个专用于IBM AS/400 服务器开发的Delphi版本
2. Eclipse for Delphi
据说是 IBM 的一个新计划，具体情况不得而知．就以往的Eclipse来看，应该是会方便一下Web应用的开发，并且也不会像原本的Delphi那样拥有很多的组件．这倒底是好事还是坏事呢
3. Delphi2008/RAD Studio2008
终于能上Unicode了，等这一天不知等了多久，还有泛型之类的新特性加入，值得期待 |
2008-02-14 12:26
增加加载项：
procedure TConfig.AddModule(dllName: string; im: TInnerModule);
var
len: Integer;
i: Integer;
idx: Integer;
bHasModule: Boolean;
bHasInner: Boolean;
begin
bHasModule := False;
for i := 0 to Length(FModules) - 1 do
begin
if ExtractFileName(FModules[i].DllName) = dllName |
2008-02-12 15:16
procedure TFormModuleList.FormCreate(Sender: TObject);
var
i, j: integer;
tmpStr: string;
len : Integer;
begin
SetLength(md, ServerForm.HYModule.ModuleCount);
for i := 0 to ServerForm.HYModule.ModuleCount - 1 do
begin
md[i].DllName := ExtractFileName(ServerForm.HYModule.Modules[i].FileName);
md[i].Count := ServerFor |
2008-02-10 01:18
为了实现数据连接模块共享，一个较好的解决方案就是使用插件中的插件(Plugin In Plugin/PIP)。
在Hydra中，可以较为轻松的实现PIP，下面做一个简单的解说
首先需要建立一个 PIP，例如说一个数据连接模块，名称为 CommonData，这个插件设为 Non-Visible，不可视模块保存为 untDataConnection.pas。在DataConnection上放置各种数据连接的控件，然后写以下接口：
unit DataIntf;
interface
uses
Classes, SysUtils, DB, ADODB, ZConnect |
|
| 
