小编Joh*_*ica的帖子

我一直在使用TForm的OnActivate事件让我有机会在我的应用程序启动后立即显示一个对话框.我希望主窗体已经加载和可见.这样做的好方法是什么？

我发现OnActivate除非形式WindowState是正常的,否则它会正常工作wsMaximized.

在过去,我已经以各种方式完成了我想要的东西,但我希望有更好的方法.

这对我有用:

procedure TForm1.FormCreate(Sender: TObject);  
begin 
  Application.OnIdle:=OnIdle; 
end; 

procedure TForm1.OnIdle(Sender: TObject; var Done: Boolean); 
begin 
  Application.OnIdle:=nil; 
  form2:=TForm2.Create(Application); 
  form2.ShowModal; 
end;

有没有更好的办法？

我有一些全局字符串变量.

我必须创建我可以传递的函数并将它们存储在某个结构中.后来我需要枚举它们并检查它们的值.

如何轻松实现这一目标？

(我想我需要某种反射,或存储指针数组).无论如何,任何帮助将不胜感激.

谢谢!

我的表格TForm1有5 TEdit和2 TBitBtn.

我还需要程序,以便在输入数字数据后Edit1和Edit2上BitBtn1Click,Edit1和Edit2值将相加,并会显示在Edit3.

我想要一些小田地.并且当他们不会被填补时,他们将是红色的并且需要填写.在帖子可以完成之前

以下是我想要实现的内容的屏幕截图:

我想用Core数据执行一些简单的删除,但只需要一点建议.

我有一个包含交易,名称,事件和日期实体的模型.交易具有指向其他每个实体的链接.

在应用程序中,当用户向文本字段添加信息时,会将其保存到4选项卡表视图控制器中.

第一个选项卡使用NSFetchedResultController和事务实体上的fetchRequest.第二个选项卡使用名称实体,第三个选项卡使用事件,第四个选项卡使用日期实体.

如果我从"事务"选项卡中删除一个条目,它只删除那个有意义的事务.

我想要的是能够从名称选项卡中删除一个人,或从事件选项卡中删除一个事件,并让该级联通过应用程序的模型.因此,如果Bob有多个事务,删除他的事务选项卡将删除该一个事务.

如果我从名称选项卡中删除BOB,它应该将每个日期和交易中的每个事件都删除.

这同样适用于事件和日期.

编辑:更新以包括数据模型

注意:年份实体是实验性的,目前尚未使用 我该怎么做这样的事情？

谢谢

在Chris的博客上:http://delphihaven.wordpress.com/2011/07/14/weird-in-more-ways-than-one/

我找到了以下代码

type
  TLinkVisitor<T> = reference to procedure(const Item: T);

  TDoubleLinked<T> = record
    Prev: ^TDoubleLinked<T>;
    Next: ^TDoubleLinked<T>;
    Value: T;
    class function Create(const aValue: T): Pointer; static;
    function Add(const aValue: T): Pointer;
    procedure Delete;
    procedure DeleteAll;
    function First: Pointer;
    function Last: Pointer;
    procedure ForEach(const Proc: TLinkVisitor<T>);
  end;

"引用"关键字解决了哪些问题无法通过正常的程序类型完成？

以下代码的增长顺序是什么？我的猜测是,每个循环的增长是线性的,但if语句让我感到困惑.我如何将其与整个事物包括在一起.我非常感谢解释性答案,以便我能理解所涉及的过程.

int count = 0;
for (int i = 0; i < N; i++)
for (int j = i+1; j < N; j++)
for (int k = j+1; k < N; k++)
if(a[i] + a[j] + a[k] == 0)
count++;

看着调用堆栈我刚才注意到了这一点:

请注意Opt.out顶部.

只是好奇,什么Opt.out意思？

这是我要介绍的片段:

function BinaryEquals(Left, Right: pointer; Size: integer): boolean;
....
{$IFDEF CPUX64}
asm
 ....
  sub r8,4
@loop1:
  inc  R8

我有一个看起来像这样的tsv(长形式):

  one   two   value
  a     b     30
  a     c     40
  a     d     20
  b     c     10
  b     d     05
  c     d     30

我想把它变成R(或pandas)的数据帧

    a  b  c  d 
a   00 30 40 20
b   30 00 10 05 
c   40 10 00 30
d   20 05 30 00

问题是,在我的tsv中我只有a,b定义而不是b,a.所以我的数据框中有很多NA.

最终目标是获得用于聚类的距离矩阵.任何帮助,将不胜感激.

我有一个由DataSource链接到DBGrid的ADOQuery.
ADOQuery和DataSource位于DataModule中,连接采用另一种形式.

在查询获取记录时,有没有办法让我的应用程序显示行？
像MSSQL Management Studio一样.

选择大约需要7分钟来终止执行.

我正在使用Delphi 2007.