aArr : array[0..9] of Integer = (0, 1, 2, 3, 4, 5, 6, 7, 8, 9）；
怎么把数组aArr的第3位到到第6位复制到另外一个数组里面去？
不用for可以做到吗，有什么函数可供使用？
var
A1,A2 : integer;
A1 := aArr[2];
A2 := aArr[5];
Delphi(Pascal) code:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Label1: TLabel;
Button2: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
aArr: array[0..9] of Integer = (0, 1, 2, 3, 4, 5, 6, 7, 8, 9);
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
aArr2: array[0..3] of Integer;
begin
Move(aArr[3], aArr2[0], SizeOf(Integer)*4);
end;
end.
2楼的可以实现。
不好意思,理解错误.
Delphi(Pascal) code:
楼主是否这种想法：
var
aArr: array[0..9] of Integer = (0, 1, 2, 3, 4, 5, 6, 7, 8, 9);
...
procedure CopyArr(var ATargetArr: array of Integer; ASourceArr: array of Integer);
var
L: Integer;
begin
我在出库窗口写了个方法：ADOQueryBill 的bNum 字段的OnValidate方法 实现的是出库数量不能大于入库的数量，否则就重新输入数量，以下是我的代码：
procedure TFrmStockOut.ADOQueryBillbNum_Validate(Sender: TFie ......
