小编ded*_*oki的帖子

需要"配合" UPDATE用ORDER BY.我正在尝试使用游标,但得到错误:

cursor "cursupd" doesn't specify a line,
SQL state: 24000

Run Code Online (Sandbox Code Playgroud)

码:

BEGIN;
    DECLARE cursUpd CURSOR FOR SELECT * FROM "table" WHERE "field" = 5760 AND "sequence" >= 0 AND "sequence" < 9 ORDER BY "sequence" DESC;
    UPDATE "table" SET "sequence" = "sequence" + 2 WHERE CURRENT OF cursUpd;
    CLOSE cursUpd;
COMMIT;

怎么做正确？

更新1

没有光标,当我这样做时:

UPDATE "CableLinePoint" AS "t"
SET "sequence" = t."sequence" + 2
from (
    select max("sequence") "sequence", "id"
    from "CableLinePoint"
    where
        "CableLine" = …

我在解析XML时遇到问题.

如何获得字段值se_url和phrase？
我需要link1_1,link1_2,key1,link2_1,link2_2,key2...这是在se_url和phrase.

我没有在谷歌中找到怎么做(也没找到关于如何使用的手册TXMLDocument).

<doc>
  <date2>20120214</date2>
  <date1>20120214</date1>
  <data count="116">
    <row>
      <search_engines count="2">
        <search_engine>
          <se_url>link1_1</se_url>
          <se_page>1</se_page>
          <se_id>2</se_id>
        </search_engine>
        <search_engine>
          <se_url>link1_2</se_url>
          <se_page>1</se_page>
          <se_id>3</se_id>
        </search_engine>
      </search_engines>
      <denial>0.4889</denial>
      <visits>45</visits>
      <page_views>52</page_views>
      <phrase>key1</phrase>
      <visit_time>126</visit_time>
      <depth>1.1556</depth>
    </row>
    <row>
      <search_engines count="2">
        <search_engine>
          <se_url>link2_1</se_url>
          <se_page>1</se_page>
          <se_id>3</se_id>
        </search_engine>
        <search_engine>
          <se_url>link2_2</se_url>
          <se_page>1</se_page>
          <se_id>6</se_id>
        </search_engine>
      </search_engines>
      <denial>0.5714</denial>
      <visits>42</visits>
      <page_views>50</page_views>
      <phrase>key2</phrase>
      <visit_time>109</visit_time>
      <depth>1.1905</depth>
    </row>
  </data>
</doc>

试图了解Delphi中的JSON.使用模块"DBXJSON.pas".如何使用它来制作这样一个数组:

Array:[
        {"1":1_1,"1_2_1":1_2_2},
        ...,
   ]

这样做:

JSONObject:=TJSONObject.Create;
JSONArray:=TJSONArray.Create();
...
JSONArray.AddElement(TJSONObject.Create(TJSONPair.Create('1','1_1')));
JSONArray.AddElement(TJSONObject.Create(TJSONPair.Create('1_2_1','1_2_2')));
JSONObject.AddPair('Array',JSONArray);

,但得到这个:

{
"Array":[
{"1":"1_1"},{"1_2_1":"1_2_2"}
]
}

请帮忙!谢谢!

我需要在TListView的列标题中有一个复选框:

我试过以下代码:

with CheckBox1 do
begin
  Parent := ListView1;
  Top := 0;
  Left := 4;
end;

但复选框并不总是按预期工作.如何在TListView标题列中正确创建复选框？

I'm trying to dynamically change the checked value. But visually checkbox constantly unchecked. Although the checked="checked" is present.

HTML:

<input type="checkbox" id="chk" /><br>
<button id="btn">Click me</button>

JS:

$("#btn").click(function(){
  var chk = $("#chk").attr("checked");
  $("#chk").attr("checked", !chk);
});

Link on JSFiddle: http://jsfiddle.net/USHRw/4/ - try click on the button several times.

How to fix this. Thanks!

我正在尝试运行隐藏的应用程序,但应用程序表单仍然可见.

ShellExecute(Handle, nil, 'app.exe', nil, nil, SW_HIDE);

如何在Delphi中运行隐藏的应用程序？