为什么会报错？等待中。。。 ( 积分: 100 )

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
private
FTableID: string;
procedure SetTableID(Value:string);
{ Private declarations }
public
property TableID: string read FTableID write SetTableID;
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

end.
为什么会报这样的错误？
[Error] Unit1.pas(14): Unsatisfied forward or external declaration: 'TForm1.SetTableID'

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
private
FTableID: string;
function GetTableID:string;
procedure SetTableID(Value:string);
{ Private declarations }
public
property TableID: string read GetTableID write SetTableID;
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

end.

property TableID: string read FTableID write SetTableID;
你就这样声明一个有什么用呢？

type
TForm1 = class(TForm)
private
{ Private declarations }
FTableID: string;
procedure SetTableID(Value:string);
public
{ Public declarations }
property TableID: string read FTableID write SetTableID;
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1. SetTableID(Value:string);
begin
end;

end.

真是好背，本来只给１０分的，可是一下子忘记选分了，系统默认就是１００分！！！！严重抗议：大富翁将系统分数设为１００分，我都被错过几次了，原先可用分数５００多分了，就那么变成了１００多分了！

Unsatisfied ?
就是“不满意的，未得到满足的”，
就是说你没有满足，没有实现前面的声明；

不钻牛角尖，语法就是语法，编译器内部就是这么设定的；
有些错误何必要等到运行期报错；

delphi编辑器option下有些编译的设置，不过都＆你这里的无关（可以设置是否在编译期报错）