摘要： var s: string; ACount,i: Integer; AStrings: TStringList; begin s := 'about: #delphi; #pascal, programming'; AStrings := TStringList.Create; ACount := 阅读全文