2012年4月29日
根据分隔符将一个长字符串分割保存到动态数组中(第二种方法)
摘要： var s: String; List: TStringList;begin s := 'about: #delphi; #pascal, programming'; List := TStringList.Create; ExtractStrings([';',',',':'],['#'... 阅读全文
posted @ 2012-04-29 08:08 cuibq 阅读(158) 评论(0) 推荐(0)
根据分隔符将一个长字符串分割保存到动态数组中
摘要： // 分隔字符串，ch为分隔符，Source需要分隔的字符串function SplitString(const source, ch: string): TStringDynArray;var temp: pchar; i: Integer;begin Result := nil; if ... 阅读全文
posted @ 2012-04-29 06:58 cuibq 阅读(252) 评论(0) 推荐(0)