ExtractStrings函数使用例子

program Project2;
{$APPTYPE CONSOLE}
uses
  SysUtils,
  Classes;

var
  aSource:string;
  aStr:string;
  aCount,i:Integer;
  aStrings:TStringList;
begin
  aSource := 'ABC|...   DEF|#### GHI|"不会被分开|# 我我我"';
   AStrings := TStringList.Create;
   try
     ACount := ExtractStrings(['|'], [' ', '#', '.'],PChar(ASource), AStrings);
     for i := 0 to aCount - 1 do
     begin
     Write(AStrings[i]);
     Writeln;
     end;
   finally
     AStrings.Free;
   end;
   Readln;
end.

 

结果：

ABC

DEF

GHI

"不会被分开|# 我我我"