Question

请达人把下面的c的结构体转为delphi(pascal)

typedef struct node_
{
int m_featureNr; // decision on this feature
REAL m_value; // the prediction value
struct node_* m_toSmallerEqual; // pointer to node, if: feature[m_featureNr] <= m_value
struct node_* m_toLarger; // pointer to node, if: feature[m_featureNr] > m_value
int* m_trainSamples; // a list of indices of the training samples in this node
int m_nSamples; // the length of m_trainSamples
} node;

Answer 1

type
pointer=^struct;
struct=record
m_featureNr:integer; {ecision on this feature}
m_value:real; { the prediction value}
m_toSmallerEqual:pointer ; { pointer to node, if: feature[m_featureNr] <= m_value}
m_toLarger:pointer ; {pointer to node, if: feature[m_featureNr] > m_value}
m_trainSamples:^integer; {a list of indices of the training samples in this node}
m_nSamples:integer; { the length of m_trainSamples}
end;
var
node:struct;

Answer 2

type node_=record
m_featurenr,m_nsamples:integer;
m_value:real;
m_trainstamples:^integer;
m_tosmallerequal,m_tolarger:^node_;
end;