按照分割符分离一行文字

type TSysCharSet = set of Char; function ExtractStrings(Separators, WhiteSpace: TSysCharSet; Content: PChar; Strings: TStrings): Integer; Separators是分割符号的集合，而WhiteSpace是表示空格的集合。该函数按照分割符号分割字符串。 对于你的例子，可以这样： ExtractStrings(['$'], [' '], '1234$abcd$xyz', memo1.Lines); 另外，再提供一个例子(得到分离的年月日): ExtractStrings([DateSeparator], [' '], PChar(DateToStr(Now)), memo1.Lines);