سوال: جداسازی رشته با کاراکتر به صورت آرایه

کد HTML:

On Error Resume Next
Dim output() As String
output = Split("Cat|Dog|Book", "|")
Text1.Text = output(0)
Text2.Text = output(1)
Text3.Text = output(2)

کد HTML:

procedure TForm1.Button1Click(Sender: TObject);
var
  A: TStringArray;
begin
A := 'cat|dog|mouse'.Split('|');
Memo1.Text:=(A[0]);
Memo2.Text:=(A[1]);
Memo3.Text:=(A[2]);
end;