小编nil*_*nil的帖子

我刚刚开始对此感到困惑.

PNode = ^TNode;

TNode = record
  Obstacle : boolean;
  Visited : boolean;
  GCost : double; // Distance from Starting Node
  HCost : double; // Distance from Target Node
  x : integer;
  y : integer;
  vecNeighBour : array of PNode;
  Parent : PNode;
end;

OnFormShow我填充数组:

 SetLength(Node,4,4);

 Image1.Height:=Length(Node)*50;
 Image1.Width:=Length(Node)*50;

 for x := Low(Node) to High(Node) do
   for y := Low(Node) to High(Node) do
      begin
        Node[x,y].Obstacle:=false;
        Node[x,y].Visited:=false;
        Node[x,y].GCost:=infinity;
        Node[x,y].HCost:=infinity;
        Node[x,y].x:=x;
        Node[x,y].y:=y;
      end;

现在我想用HCost对这个数组进行排序,所以我尝试了这个.

  TArray.Sort<TNode>(Node , TComparer<TNode>.Construct(
  function(const Left, Right: TNode): double
  begin …

我正在使用RAD XE7.在我的Delphi应用程序中,我想为Records字段设置默认值.

我尝试了下面的代码,但它没有编译,我知道这是错误的.我还有别的办法吗？

 TDtcData = record
    TableFormat     : TExtTableFormat = fmNoExtendedData;
    DTC             : integer = 0;
    Description     : string = 'Dummy';
    Status          : TDtcStatus;    
    OccurenceCnt    : integer =20;
    FirstDTCSnapShot: integer;
    LastDTCSnapShot: integer;
  end; 

我可以用TIniFileDelphi中的类以任何方式将注释写入我的INI文件吗？

[VALUES]
; first number
a=5
; something else
b=25
...
...

在我在网上找到的示例(示例)中,有时添加了很好的注释行,但没有显示如何创建,读取,写入这些行....

随着TQuery.state in [dsEdit, dsInsert]我可以检查是否DataSet在某些给定的状态.有没有办法检查它是否不在给定状态？

我试过TQuery.state <> [dsEdit, dsInsert]导致Incompatible types错误,not Query.State in [dsEdit, dsInsert]但后来我收到错误Operator not applicable to this operand type.

在点击这个按钮时我正在申请更新,当有人delete录制时我也需要这样做,DataSet但是没有状态可以检查这种情况.