1

私はこの関数の宣言と実装を持っています

public
function AddWordReference(wordId,translateId:Longint):Longint;
{***}
function AddWordReference(wordId,translateId:Longint):Longint;
begin
try
 if((wordId <> -1) OR (translateId <> -1))  Then
 begin
 DataModule1.TranslateDictionary.AppendRecord([nil,wordId,translateId]);
 DataModule1.TranslateDictionary.Last;
 AddWordReference := DataModule1.TranslateDictionary.FieldByName('Id').AsInteger;
 end;
Except
ShowMessage('Error wirh adding reference');
AddWordReference := -1;
end;
AddWordReference := -1;
end;

このエラーがあります：

[Error] AddFormUnit.pas(34): Unsatisfied forward or external declaration: 'TForm2.AddWordReference'

このエラーを修正する方法は？

4

1 に答える 1

12

これはTForm2クラスのメンバーであるため、実装セクションで、TForm2.AddWordReference単にの代わりにとして宣言する必要がありますAddWordReference。そして、メソッド自体の内部で、メソッド名Resultではなく、コンパイラの変数に戻り値を割り当てる必要があります。AddWordReference

public
  function AddWordReference(wordId, translateId: Longint): Longint;

。

function TForm2.AddWordReference(wordId, translateId: Longint): Longint;
begin
  Result := -1;
  try
    if (wordId <> -1) OR (translateId <> -1) then
    begin
      DataModule1.TranslateDictionary.AppendRecord([nil, wordId, translateId]);
      DataModule1.TranslateDictionary.Last;
      Result := DataModule1.TranslateDictionary.FieldByName('Id').AsInteger;
    end;
  except
    ShowMessage('Error wirh adding reference');
  end;
end;
于 2012-04-24T21:07:12.977 に答える