可以用GetObjectProp来获取对象的属性

原来可以用GetObjectProp来获取对象的属性，还有这用法，哈哈哈哈……

var

SL: TStrings;

UseDBTools: Boolean;

begin

SL := nil;

if Memo is TMemo then

SL := TMemo(Memo).Lines

else if Memo.ClassName = sSynMemo then

SL := TStrings(GetObjectProp(Memo, 'Lines'))

try

SL.SaveToFile(FileName);

finally

SL.Free;

end;

end;

---------------------------------

Memo 可能是TMemo，也可能是TSynMemo，可以用GetObjectProp来获取对象的属性

这语法，以前没用过