字符串问题。

Question

一个字符串： aass(#9)ssssd(#9)hfgjs(#9)fksjghnhgf(#9)fhjkshga如何将每个＃9之间的字符串分别存入数组？
例如：a[0]:='aass'
      a[1]:='ssssd'
        ....
  
另外，＃9是跳格键（TAB）是不是只算一个字符？

Answer 1

with TStringList.Create do
try
  Text := StringReplace(ssss, #9, #13#10, [rfReplaceAll, rfIgnoreCase]);
  for i := 0 to count - 1 do
  begin
    a[i] := Strings[i];
  end;
finally
  Free;
end;

Answer 2

不知楼主的字符串是不是如下格式？procedure TForm1.Button1Click(Sender: TObject);
var
  strTemp: string;
  i: Integer;
begin
  strTemp := 'aass'+#9+'ssssd'+#9+'hfgjs'+#9+'fksjghnhgf'+#9+'fhjkshga';
  Memo1.Lines.Delimiter := #9;
  Memo1.Lines.DelimitedText := strTemp;  for i := 0 to Memo1.Lines.Count - 1 do
  begin
    //赋值
  end;
end;