怎么将剪贴板中的数据转化成数组存放?

如何将剪贴板中的数据转化成数组存放??
将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;

怎么将剪贴板中的数据转化成数组存放?

相关推荐