摘要： var gStart, gLength, gCol: Integer;procedure SetRichEdit(aRichEdit: TRichEdit);var fRow, fCol: Integer; fStart, fLength, tStart: Integer;begin fRow :=... 阅读全文