Delphi类也可以这样写

版权声明： 本文由Lyris完成，首发于CSDN，作者保留中文版权。 未经许可，不得使用于任何商业用途。 欢迎转载，但请保持文章及版权声明完整。 如需联络请发邮件：lyricsoft@gmail.com

type
  TDemo = class
    aa: string;
    bb: string;
  end; 

使用的时候
with TDemo.Create do
try
  aa := 'test';
  bb := aa;    //set 方法和get方法缺省都有了
finally
  Free;
end;

关键是类的代码简洁，对于只有类似结构体的只有property的类， 这样写尤其方便 ：）