是否有一个Delphi函数通过多字符定界符而不是单个字符来分割字符串?
例如,当我以这种方式使用该功能时:
SplitString('Whale<->Mammal<->Ocean', '<->')
我将得到这3个字符串的结果:
'Whale', 'Mammal', 'Ocean'
在Delphi中有这样的功能吗?
还有另一个使用TStringList的非常简单的解决方案。更改LineBreak:
procedure TForm208.Button1Click(Sender: TObject);
var
lst: TStringList;
begin
lst := TStringList.Create;
try
lst.LineBreak := '<->';
lst.Text := 'Whale<->Mammal<->Ocean';
Memo1.Lines := lst;
finally
lst.Free;
end;
end;
您可以检查Cromis Library中属于我的StringUtils.pas单元
那里有一个简单的文本标记器。但是可能正是您所需要的。界面是这样的
TTextTokenizer = class
private
FTokens: TTokens;
FDelimiters: array of ustring;
public
constructor Create;
procedure Tokenize(const Text: ustring);
procedure AddDelimiters(const Delimiters: array of ustring);
property Tokens: TTokens read FTokens;
end;
支持字符串作为定界符,然后也支持多个定界符。
如果安装了JCL,则在jclStrings
单元中有StrToStrings
步骤:
var sl: TStringList;
begin
sl := TStringList.Create;
StrToStrings('Whale<->Mammal<->Ocean' , '<->' , sl);
没有这样的功能'发件箱'。如果您的字符串包含常规的“好”文本,则可以将StringReplace与奇异符号一起使用,否则使用Pos或IdStrings.SplitString(如果在D2010中可用)编写自己的拆分函数并不困难。
function SplitStringByStr(const S, StrDelimiter: string): TStringDynArray;
var
tmp: string;
begin
tmp := StringReplace(S, StrDelimiter, '`', [rfReplaceAll]);
Result := SplitString(tmp, '`');
end;
我不知道Delphi是否具有使用字符串作为定界符的标准拆分过程。但是您可以编写自己的文件,也可以不编写:
procedure SplitStr(const Source, Delimiter: String; var DelimitedList: TStringList);
var
s: PChar;
DelimiterIndex: Integer;
Item: String;
begin
s:=PChar(Source);
repeat
DelimiterIndex:=Pos(Delimiter, s);
if DelimiterIndex=0 then Break;
Item:=Copy(s, 1, DelimiterIndex-1);
DelimitedList.Add(Item);
inc(s, DelimiterIndex + Length(Delimiter)-1);
until DelimiterIndex = 0;
DelimitedList.Add(s);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
sl: TStringList;
begin
sl:=TStringList.Create;
SplitStr('delphi++split++string++','++',sl);
//do something with the list
sl.Free;
end;
希望有帮助。.>
较新版本的Delphi有一个可以执行此操作的stringhelper: