struct 转成Delphi的Record ( 积分: 100 )

struct SSegWord
{
char *s_szWord

DWORD s_dwPOS

float s_fWeight ;

SSegWord()
{
Reset();
};
void Reset()
{
s_szWord = NULL ;
s_dwPOS = 0 ;
s_fWeight = 0;
};
};

C++的struct可以带有内部方法，而Delphi是不支持这种模式的——Delphi的Record不带
方法，自然也就无法“自动”完成楼主代码中的“构造函数”的功能。如果一定要翻译，只
能用普通的返回Record的函数来模拟了。

type
SSegWord=Record
s_szWord: PChar;
s_dwPOS: LongWord;
s_fWeight: Double
//也许应该是 Single ?
end;

procedure Reset(var a: SSegWord)
begin
a.s_szWord:=nil;
a.s_dwPOS:=0;
a.s_fWeight:=0;
end;

function NewSSegWord:SSegWord;
begin
Reset(Result);
end;

谢谢了