小编Hug*_*hem的帖子

函数Null for Delphi 2010中的变体

Delphi 2010中的这个功能在哪里?

function Null: Variant;
begin
  _VarNull(TVarData(Result));
end;
Run Code Online (Sandbox Code Playgroud)

在Delphi 6中它是Variants.

delphi null variant delphi-2010

1
推荐指数
1
解决办法
1773
查看次数

Delphi 2010 DeHL序列化XML和自定义属性:如何工作?

我尝试使用Delphi 2010自定义属性调查DeHL,但出现问题。

 TAppParamTest = class
  public
    User: string;
    Password: string;
  end;

  TAppParam = class
  private
    FTest: TAppParamTest;
  public

    constructor Create;
    destructor Destroy; override;

    property Test: TAppParamTest read FTest write FTest;
  end;
Run Code Online (Sandbox Code Playgroud)

这很好用:当我序列化时我有这个

<TAppParam xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:DeHL="http://alex.ciobanu.org/DeHL.Serialization.XML" DeHL:class="AppParam_unt.TAppParam" DeHL:refid="1">
  <FTest DeHL:class="AppParam_unt.TAppParamTest" DeHL:refid="2">
    <User>User</User>
    <Password>Psw</Password>
  </FTest>
</TAppParam
Run Code Online (Sandbox Code Playgroud)

但我想要这个:

<TAppParam xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:DeHL="http://alex.ciobanu.org/DeHL.Serialization.XML" DeHL:class="AppParam_unt.TAppParam" DeHL:refid="1">
  <Test DeHL:class="AppParam_unt.TAppParamTest" DeHL:refid="2">
    <User>User</User>
    <Password>Psw</Password>
  </Test>
</TAppParam
Run Code Online (Sandbox Code Playgroud)

所以我想在类中添加自定义属性:

  TAppParam = class
      private
        [XmlElement('Test')] 
        FTest: TAppParamTest;
      public

        constructor Create;
        destructor Destroy; override;

        property Test: TAppParamTest read FTest …
Run Code Online (Sandbox Code Playgroud)

delphi xml-serialization delphi-2010 dehl

1
推荐指数
1
解决办法
1698
查看次数

SQL - 每列的条件

这是一个常见的SQL问题,但是如果你必须知道数据库是Firebird的话.

我有这个表(简化):

user  amount  type
--------------------
john  25      credit
john  20      debit
john  5       debit
john  15      credit
mike  15      credit

我希望使用单个查询得到一个看起来像这样的结果:

user  credit  debit
--------------------
john  40      25
mike  15      NULL
Where credit = SUM(amount) WHERE type=credit
   and debit = SUM(amount) WHERE type=debit
Run Code Online (Sandbox Code Playgroud)

基本上我希望基于字段的SUM(在这种情况下是数量)在结果上有多个字段,但是在不同的条件下(在这种情况下是类型).

在此先感谢您的任何建议.

sql firebird where where-clause firebird2.1

1
推荐指数
1
解决办法
4596
查看次数

如何在Delphi中调试COM dll?

我尝试在Delphi中调试COM dll(TAutoObject),我的断点不是绿色.

我把我这样的选择:

  • host:c:\ Program Files\Internet Explorer\iexplore.exe
  • param:c:\ software\test.html

我的测试很好,但在Delphi中没有断点

这是怎么回事?

delphi com debugging dll delphi-2010

0
推荐指数
1
解决办法
2158
查看次数

XMLMapper中的时区规范是否有效?

我在XML文件中收到DateTime,如2009-12-14 05:07:38Z.

所以,我认为这是一个错误,但在谷歌搜索后,我发现:

http://www.w3schools.com/Schema/schema_dtypes_date.asp

时区要指定时区,您可以通过在时间后添加"Z"来输入UTC时间的时间 - 如下所示:

09:30:10Z

但是当我在我的XMLMapper中的一个节点中使用DateTime时:我的日期时间是截断的,我只是得到日期.

我需要更多咖啡吗?

管理这个的方法是什么?

谢谢

xml delphi timezone delphi-2010 xmlmapper

0
推荐指数
1
解决办法
200
查看次数

Indy Tidhttp 发布 XML 文件的正确编码是什么?

我注意到我在使用 Indy Client 的应用程序中的 XML 文件有无效字符(我实际上使用了 IdHttp 的默认参数)

这是我的代码:

  ts := TStringList.Create;
  try
    ts.Add('XML=' + AXMLDoc.XML.Text));
    HTTPString := IdHTTPClient.Post('http://' + FHost + ':' + IntToStr(FPort) + FHttpRoot, ts);
  finally
    ts.Free;
  end;
Run Code Online (Sandbox Code Playgroud)

我的 XML 文件是 UTF-8 编码的。

我必须做什么才能在我的服务器上获得良好的编码(我也使用 Indy 作为服务器)?

delphi txmldocument idhttp delphi-xe2 delphi-xe4

0
推荐指数
1
解决办法
4027
查看次数

我如何将这个delphi 7编程移植到.net(C#)?

http://forums.alliedmods.net/showthread.php?t=64767

源代码就像缺少了一些我找不到的东西,比如说TBX和其他一些东西

我真的不懂语言,但我希望能用delphi 2009/2010.net进行编译,然后看看它的移植IL.(对C#我猜)

这背后的原因是因为pawnstudio很快乐但是程序(布局,语法高亮,intellisense(clamsense)与包含文件等功能的内容相互作用的事实)非常容易使用.

有人可以帮忙吗?

.net c# delphi delphi-7 delphi-2009

-7
推荐指数
1
解决办法
510
查看次数