ini文件数据读取问题！

Question

已经有了一个ini文件，文件内容类似如下：
[DUIZHAO]
1=名称1
2=名称2
3=名称3
4=名称4
...
1000＝名称1000现在想写个函数，通过前面的数字读取后面的“名称1”等文字。但是编译都出了问题，大家帮我看看：
Function mingcheng(wpID : cardinal) : String;
var
 spf : string;
 mcheng :  string;
begin
    spf := extractfilepath(Application.exename) + '\duizhao.ini';
    GetPrivateProfileString('DUIZHAO', wpID, '0', mcheng, 35, spf);
    result := mcheng;
End;另外附上以前用vb的时候写的程序。
当时也写了一个函数mingcheng()，用的很好。
Function mingcheng(wpID As Long) As String
    Dim spf As String
    spf = App.Path & "\" & "duizhao.ini"
'ID名称对照表--------------------------------------------------------
    mingcheng = Space$(35)
    GetPrivateProfileString& "DUIZHAO", wpID, "0", mingcheng, 35, spf
    mingcheng = Trim$(mingcheng)  '去掉多余字符
'---------------------------------------------------------------------
End Function

Answer 1

function mingcheng(wpID: Cardinal): string;
var
  spf: string;
  mcheng: array[0..255] of Char;
begin
  spf := ExtractFilePath(Application.ExeName) + 'duizhao.ini';
  GetPrivateProfileString('DUIZHAO', PChar(IntToStr(wpID)), '0', mcheng, 35, PChar(spf));
  result := mcheng;
end;