原来可以用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(FileNam…