//在 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”选项是否被选中。如果其它的单元还是出现无效断点,请任意修改该单元并重新编译运行。
本文介绍如何在Delphi中快速生成属性代码,并解决调试过程中遇到的断点无效问题。通过具体步骤演示如何设置属性读写方法及自动生成属性代码,同时提供了调试断点失效的排查方法。
859

被折叠的 条评论
为什么被折叠?



