Delphi字符串分割使用Tstringlist示例

  点击下列按扭事件，分别弹出三个窗口，把一个字符分成一个数组

procedure TfrmTrainMain.RzbtnLiuChengClick(Sender: TObject);
var
  list: TStringlist;
  i: Integer;
begin
  
  i := 0;
  list := TStringlist.Create;
  list.Delimiter := '、';
  list.DelimitedText := '第一个填空、第二个填空、第三个填空';
  showmessage(IntToStr(list.Count));
  for i := 0 to list.Count-1 do
  begin
    showmessage(list.Strings[i]); 
  end;