1　　TStrings自带分割方法

--------------------------------------------------

Uses Classes

 1 procedure TForm1.UsesList(TT: string; MMO : TMemo);
 2 var
 3   List : TStrings;
 4   I : Integer;
 5 begin
 6   StartTime := GetTickCount;
 7   List := TStringList.Create;
 8   List.Delimiter := '-';
 9   List.DelimitedText := TT;
10   for I := 0 to List.Count - 1 do
11     MMO.Lines.Add(List[I]);
12   StopTime := GetTickCount;
13   MMO.Lines.Add(GetDiffTime);
14 end;

 

由于此段代码将控件显示内容包含在内，故每次运行耗时都不太一样，在此以多次运行后数量级为标准

--------------------------------------------------

 

2　　ExtractStrings

--------------------------------------------------

Uses Classes

 1 procedure TForm1.UsesExtractStrings(TT: string; MMO : TMemo);
 2 var
 3   List : TStrings;
 4   I : Integer;
 5 begin
 6   StartTime := GetTickCount;
 7   List := TStringList.Create;
 8   ExtractStrings(['-'], [], PChar(TT), List);
 9   for I := 0 to List.Count - 1 do
10     MMO.Lines.Add(List[I]);
11   StopTime := GetTickCount;
12   MMO.Lines.Add(GetDiffTime);
13 end;

由于此段代码将控件显示内容包含在内，故每次运行耗时都不太一样，在此以多次运行后数量级为标准

--------------------------------------------------

 

3　　SplitString

--------------------------------------------------

此函数暂时没找到所在包，故待补充

--------------------------------------------------