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
"不会被分开|# 我我我"