如何将剪贴板中的数据转化成数组存放??
将excel表格中的数据，复制后粘贴到cxgrid控件中，

方法是获取剪贴板中的数据，存放在一个二维数组中，然后循环插入cxgrid中，

比如：复制excel表格后,剪贴板数据为:

'订单号1'#9'数量1'#$D'订单号2'#9'数量2'#$D'订单号3'#9'数量3'#$D

请教各位，如何剪贴板中的数据转化成二维护数组?

[解决办法]

Delphi(Pascal) code

procedure TForm1.FormCreate(Sender: TObject);type  TOrderRec = record    OrderNo: string;    Count: string;  end;var  S: string;  A: array of TOrderRec;  I, J: Integer;begin  S := Clipboard.AsText;  while True do  begin    I := Pos(sLineBreak, S);    if I = 0 then Break;    SetLength(A, Length(A)+1);    with A[High(A)] do    begin      OrderNo := Copy(S, 1, I-1);      J := Pos(#9, OrderNo);      Count := Copy(OrderNo, J+1, MaxInt);      OrderNo := Copy(OrderNo, 1, J-1);    end;    Delete(S, 1, I-1+Length(sLineBreak))  end;end;