請教關於tstringlist

Question

我想用tstringlist自動分離一個字符串，存入一個數組中
定義了分隔符為'<'，但是空格被當成分隔符。怎麼讓空格不做分隔符呢？
或者有什麼其它好的方法？procedure TForm1.Button1Click(Sender: TObject);
var
  a:array[0..100] of string;
  i,k:integer;
begin
  with tstringlist.Create do
  try
    delimiter:='<';
    delimitedtext:='991020<ppppp<you can do <do you like';
    for i:=0 to count-1 do
      begin
        a[i]:=strings[i];
      end;
  finally
    free;
  end;
  for k:=0 to i do
    showmessage(a[k]);
end;

Answer 1

procedure TfrmMain.Button2Click(Sender: TObject);
var
  a:array[0..100] of string;
  i,k:integer;
begin
  with tstringlist.Create do
  try
    Text := StringReplace('991020<ppppp<you can do <do you like', '<', #13#10, [rfReplaceAll, rfIgnoreCase]);
    for i:=0 to count-1 do
      begin
        a[i]:=strings[i];
      end;
  finally
    free;
  end;
  for k:=0 to i do
    showmessage(a[k]);
end;