问题列表 - 第19832页

TIBQuery.Unidirectional = True.我该如何重写代码?

我在遗留代码中有许多使用带有单向属性= False的TIBQuery(Interbase)的方法.问题是用户有时会出现内存异常.我怀疑它可以通过将此属性设置为True来修复,因为不需要缓存记录.

当然我不想打破旧代码,但我也想解决这个问题.

这是一个代码示例(由于大小不完整):

procedure TAnalyzeForm.CostByInvoice;
begin
  try
    qryReport.Close;
    qryReport.Open;
    qryReport.Last;
    qryReport.First;
    if qryReport.RecordCount > 0 then
    begin
      for i := 0 to qryReport.RecordCount - 1 do
      begin
        vInvoiceNo := Format('%-8s', [qryReport.FieldValues['InvoiceNo']]);
        vDeptId := Format('%8s', [qryReport.FieldValues['DepartmentId']]);
        vOrgName := Format('%-22s', [qryReport.FieldValues['OrgName']]);
        vInvDate := qryReport.FieldValues['InvoiceDate'];
        vInvNetCur := qryReport.FieldValues['InvNetCur'];
        vInvVatCur := qryReport.FieldValues['InvVatCur'];
        vInvTotCur := qryReport.FieldValues['InvTotCur'];
        vInvCur := qryReport.FieldValues['UnitId'];
        vTotNet := vTotNet + qryReport.FieldValues['InvNetValue'];
        vTotVat := vTotVat + qryReport.FieldValues['InvVatValue'];
        vTotTot := vTotTot + (qryReport.FieldValues['InvNetValue'] + qryReport.FieldValues['InvVatValue']);
        grdCost.Cells[1, i+1] := vInvoiceNo;
        grdCost.Cells[2, i+1] := vDeptId …
Run Code Online (Sandbox Code Playgroud)

delphi activerecord

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

Mac/Cocoa - 使用Accessibility API获取窗口列表

我想使用Accessibility API获取给定应用程序(外部)的所有窗口的列表.

目标是检查某个窗口是否打开.首先,我检查应用程序是否正在运行(使用[NSWorkspace runningApplications]并检查每个应用程序),然后我想检查为该应用程序打开的每个窗口的标题栏文本.

PS

所以我可以使用PID为app创建一个元素:

AXUIElementRef app = AXUIElementCreateApplication(pid);
Run Code Online (Sandbox Code Playgroud)

但我该怎么办呢?我是否朝着正确的方向前进?不能相信它很难找到这方面的例子.

cocoa accessibility

6
推荐指数
2
解决办法
9183
查看次数

R ggplot2 - RGui图中没有背景或网格线

我在RGui中的输出窗口有一个奇怪的问题(在Win XP下).我应该看到一个类似下面的情节......

替代文字http://img402.imageshack.us/img402/7483/ss20100121153931.png

...当我运行这个脚本时:

library(ggplot2)
x <- rnorm(100,0,1)
y <- rnorm(100,0,1)
z <- data.frame(x,y) 
g <- ggplot(z, aes(x,y)) + geom_point() + theme_gray()
Run Code Online (Sandbox Code Playgroud)

相反,在绘图窗口中,它显示白色背景和白色网格线,如下所示.

R绘图窗口

替代文字http://img192.imageshack.us/img192/5349/ss20100121160230.png

当我将绘图导出到.png并在Windows资源管理器中"预览"它时 - 它不显示背景或网格线.

在Windows中的Png

替代文字http://img192.imageshack.us/img192/5349/ss20100121160230.png

Gimp中的Png相同

替代文字http://img402.imageshack.us/img402/7483/ss20100121153931.png

相同的Png上传到图片托管

替代文字http://img402.imageshack.us/img402/7483/ss20100121153931.png

关于发生了什么的任何想法?如何让图表在RGui中正确显示?

r rgui ggplot2

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

.NET:解析本地化货币

假设我有一个string,这个string价值就是一定数量的金钱,本地化.通过本地化,我的意思是,如果该国家可能使用逗号而不是小数点,例如.(这只是我知道的一个本地化差异.)

我怎样才能将这些中string的一个解析为它们decimal的数字等价物?会decimal.TryParse()识别本地化格式吗?如何指定CultureInfowith TryParse()

.net c# localization

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

Oracle函数和查询返回不同的结果

我正在使用oracle 10g数据库.

功能是:

create or replace FUNCTION FUNC_FAAL(myCode number,firstDate date
  , secondDate date) 
  RETURN INTEGER as
  rtr integer;
BEGIN
  select count(*) into rtr 
  from my_table tbl where tbl.myDateColumn between firstDate and 
          secondDate and tbl.kkct is null and tbl.myNumberColumn  = myCode ;
  return (rtr);
END FUNC_FAAL;
Run Code Online (Sandbox Code Playgroud)

此函数返回117177作为结果.

但是如果我单独在函数中运行相同的查询;

select count(*)
from my_table tbl 
where tbl.myDateColumn between firstDate and secondDate 
and tbl.kkct is null and tbl.myNumberColumn  = myCode ;
Run Code Online (Sandbox Code Playgroud)

我得到不同的结果11344(这是正确的).

可能是什么问题?

谢谢.

function oracle10g

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

Ruby on Rails的最佳IP位置

我想知道是否有人有一个好的插件/宝石的经验,从IP拉动城市和州.我已经尝试过GeoKit内置的那个,但它很糟糕.我也不介意付钱,但我更喜欢免费.

ruby-on-rails geolocation

13
推荐指数
2
解决办法
2万
查看次数

TStringGrid - 有一种获取"当前/选定"行的简单方法吗?

我能走远路,遍历每一行,获得了TRectCellRect(col, row),然后查询其StategdSelected...

但是,有没有更快的方法来获取当前所选行的行号,如果有的话?

delphi vcl c++builder tstringgrid

13
推荐指数
2
解决办法
4万
查看次数

JSON中的根节点

我的任务是定义两个Web应用程序之间的通信.我决定使用JSON.在JSON中有一个根节点有多常见?

假设我们有一个汽车对象.这是JSON,其中"Car"是根节点:

{"Car": { 
  "Make":"Mustang", 
  "YearBuilt":"1999"}}
Run Code Online (Sandbox Code Playgroud)

所以现在让我们说我有一个Tire对象,因为我们正在标准化拥有根节点,所以这个也必须拥有它.

{"Tire": {"Make": "Brirdgestone", "Size":"15"}}
Run Code Online (Sandbox Code Playgroud)

将轮胎对象JSON集成到原始Car对象中可以显示它是多么笨重.

{"Car": { "Make":"Mustang", 
"YearBuilt":"1999",
"Tires": "[{"Tire": {"Make": "Brirdgestone", "Size":"15"}},
{"Tire": {"Make": "Brirdgestone", "Size":"15"}},
{"Tire": {"Make": "Bridgestone", "Size":"15"}},
{"Tire": {"Make": "Brirdgestone", "Size":"15"}}
]}}
Run Code Online (Sandbox Code Playgroud)

所以在PHP中序列化,第一个轮胎的制造将是$object->Car->Tires[0]->Tire->Make.由于根节点,那里有额外的轮胎级别.

如果Tire没有根节点,那么代码可能会更加纤薄.

{"Car": { "Make":"Mustang", 
"YearBuilt":"1999",
"Tires": "[{ {"Make": "Bridgestone", "Size":"15"}},
{"Make": "Brirdgestone", "Size":"15"}},
{"Make": "Brirdgestone", "Size":"15"}},
{"Make": "Brirdgestone", "Size":"15"}}]}}
Run Code Online (Sandbox Code Playgroud)

在PHP中,混淆较少,因为冗余较少:第一个轮胎的构造被称为 $object->Car->Tires[0]->Make

没有根节点有什么不好的吗?我喜欢拥有根节点,因为它的行为类似于类名,但是不必要的级别会让我感到很烦恼,并且会使遍历变得更加复杂.

javascript php json

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

使用mysql_real_escape_string()但允许带撇号的名称

在将它们插入sql数据库之前,我使用mysql_real_escape_string()来验证所有用户输入.其中一个字段是名称,我们遇到了像O'Reilly这样名字的用户的问题.有没有办法使用mysql_real_escape_string()来阻止注入但是在db中允许这些名称?

php mysql

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

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