//在 type 区写入:
TMyClass = class
property s: string;
end;
//然后把光标放在其中,执行 Ctrl+Shift+C,可以自动生成以下代码:
TMyClass = class
private
Fs: string;
procedure Sets(const Value: string);
published
property s: string read Fs write Sets;
end;
{ TMyClass }
procedure TMyClass.Sets(const Value: string);
begin
Fs := Value;
end;
Delphi调试断点无效的解决方法
如果在设计状态下设置了断点,在运行后出现如图所示的无效断点,
请检查“ProjectOptionsCompilerDebug Information”选项是否被选中。如果其它的单元还是出现无效断点,请任意修改该单元并重新编译运行。