Delphi里面字符分割函数是啥 如何分割以 为分割的字符串

Posted 2023-03-18

参考技术A 其实不要把函数用的太死了,函数不过是自己定义,或者别人定义的一种,熟练掌握 pos函数,copy函数,这两个函数为基本函数.别的可能要加载
var
AStr: string;
ASplit: string;
idx: Integer;
ASubStr: string;
begin
RzMemo1.Clear;
AStr := Trim(RzEdit1.Text);//输入要分割的字符串
ASplit := ',';//分割的字符
while Pos(ASplit, AStr) > 0 do
begin
idx := Pos(ASplit, AStr);
ASubStr := Copy(AStr, 1, idx - 1);
RzMemo1.Lines.Add(ASubStr);
AStr := Copy(AStr, idx + 1, Length(AStr));
end;
if Trim(AStr) <> '' then
RzMemo1.Lines.Add(AStr);
end;本回答被提问者和网友采纳 参考技术B

是split函数吧，例如：

var
s1:TStringList;
begin
s1:=split('a,b,c,d',',');
Memo1.Lines.AddStrings(s1);
s1.Free;
end;