原来可以用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来获取对象的属性
这语法，以前没用过