function r_weight(w: D2Array; n1, n2: integer; name: Pchar) : boolean;//读取权值
var
  i,j:integer;
  buffer:D1Array;
  s:TStringList;
begin
  setlength(buffer,(n1 1)*(n2 1));
  s:=TStringList.Create ;
  s.LoadFromFile(name);
  for i:=0 to s.Count-1 do
    buffer[i]:=strtofloat(s[i]);
  for i:=0 to n1 do
    for i:=0 to n2 do
    w[i,j]:=buffer[i*(n2 1) j];
  s.Free;
  setlength(buffer,0);
  result:=true;
end; 

在调用这个函数时C语言中是：

if(r_weight(w: D2Array; n1, n2: integer; name: Pchar)==false)
       return; 

在delphi中应该是

if r_weight(w: D2Array; n1, n2: integer; name: Pchar)=false then
   result:=? 

//不知道怎么写

在C 裡面 Return 意義不單單回傳值，還有結束Procedure 的意思。 我沒看到有回傳什麼。 應該不需要回傳吧！ if r_weight(w: D2Array; n1, n2: integer; name: Pchar)=false then Exit; 是這樣吧！