tobject

    16热度

    3回答

    我现在都这样了,它吮吸: type TpointArray = array [0..3] of Tpoint; class function rotationTable.offsets(pType, rotState, dir: integer): TpointArray; begin Result[0] := point(1, 1); Result[1] := poi

    1热度

    2回答

    我目前正在与Vista CodeGear Delphi 2007下工作。 我的应用程序在一些相当繁重的计算过程中返回内存不足错误。 的.exe文件从150 MB增长到惊人的2 Gb 关于这个问题(笑!): 1)我改变了一些数组到ArrayList中 但它给了我一些比较困难的问题,解决方案(请参阅下面的示例) 2)适用于多维结构和需求的建议代码中的小改动最受赞赏! 现在解决成员的老办法是: func

    0热度

    2回答

    当声明课程等时,TObject中的“T”代表什么?模板? 例子: procedure TfrmMain.CaptureInfo1Click(Sender: TObject); begin frmCapture.Show; end;

    2热度

    2回答

    我定义随后的单元业务逻辑 unit Models.Person; interface Type TPersonGender = (pgUndefined, pgMale, pgFemale, pgNotApplicable); TSexOfPerson = class(TPersistent) private FGender : TPersonGe

    5热度

    5回答

    我该如何让我的代码工作? :)我试图制定这个问题,但经过几次失败的尝试后,我认为你们会发现问题的速度比阅读我的'解释'更快。谢谢。 setCtrlState([ memo1, edit1, button1], False); _ procedure setCtrlState(objs: array of TObject; bState: boolean = True); var o

    1热度

    1回答

    我有一个事件过程,它检查两个对象/控件的OnKeyUp按键(TNewEdit和TNewComboBox)。在启用TNewButton之前,两个对象都需要完成。 但是,我找不到一种方法来知道如何获得Sender: TObject的类型,如果是TNewEdit或TNewComboBox。 任何人都可以帮忙吗?

    0热度

    2回答

    我想知道如何在创建的列表中获得某个对象的位置。 可以说它就像一个图形列表,您可以点击对象。 让我们说你右键单击一个对象,然后单击“刷新”,我如何获得该对象的位置,以便在整个列表刷新后(由于某种原因刷新清单),我回到同一个位置清单?这是如果列表说1000个对象长,这使得刷新后尝试向下滚动到相同位置是麻烦的。 该代码使用Tobject,但我可以做些什么,如 position:= integer(TOb