摘要： uses SysUtils //文本替换 var SourseList: TStringList; Sourse: TStrings; nA, nB, nC: Integer;begin Result := 0; SourseList := TStringList.Create(); Sourse := TStringList.Create(); SourseList.LoadFromFile('... 阅读全文