var
i: Integer;
sList: TStringList;
begin
stext := 'a|b|c|d';
sList := TStringList.Create;
try
sList.Delimiter := '|';
sList.DelimitedText := stext;
for i := 0 to sList.Count - 1 do
begin
ShowMessage(sList[i]);
end;
finally
sList.Free;
end;
end;
var
myList: TStringList;
myString: string;
begin
myList := TStringList.Create;
myList.Delimiter := ',';
myList.Add('value1');
myList.Add('value2');
myList.Add('value3'); // 将字符串列表转换为逗号分隔的字符串
myString := myList.DelimitedText; // 显示结果
ShowMessage(myString);
end;