好困惑的问题 property txt : string read hao1 write settxt;(50分)

private
procedure settxt(value : string);
public

published
hao1 : string;
property txt : string read hao1 write settxt;
end;

implementation
hao1 : string;//这个地方执行不过去 不知道该怎么写

implementation
var //加这个看看
hao1 : string;//这个地方执行不过去 不知道该怎么写

private
hao1 : string;
procedure settxt(value : string);
public

published
property txt : string read hao1 write settxt;
end;

private
hao1 : string;
function GetTxt: string;
procedure settxt(const Value: string);
{ Private declarations }
public
{ Public declarations }
published
property txt : string read GetTxt write settxt;
end;

implementation

{$R *.DFM}

{ TForm1 }

function TForm1.GetTxt: string;
begin
Result := hao1;
end;

procedure TForm1.settxt(const Value: string);
begin
hao1 := Value;
end;

你这个代码怎么看怎么别扭，你可以试试这样：
在published下面键入以下代码，然后按Ctrl+Shift+C，看看Delphi给你补全的代码是什么样子的：
property txt : string;

接受答案了.