------------------------数组排序问题?-----------------------------------

Question

copyMemory(@Newarray[1],@MyArray[0],Len);

Answer 1

就这么简单啊，反正就是内存考来考去。你真的要吗？真的要吗？：）Myarray,NewArray : array[0..49] of byte;copyMemory(@Newarray[1],@MyArray[0],Length(MyArray)-1);
copyMemory(@Myarray[1],@NewArray[1],Length(MyArray)-1);
Myarray[0]:=value;

Answer 2

用byte类型是对的
用自定义的不对..
如：type
   Taaa=Array[0..3] of Single;
Var
 BB,TempBB:Array of Taaa; 
 aaa:Taaa;
setlength(TempBB,high(BB)+1);
aaa:=BB[0];
aaa[1]:=aaa[1]+1;//修改aaa其中的一个值
copyMemory(@TempBB[1],@BB[0],Length(BB)-1); //这里最后-1我用-length(BB[0])也不对
copyMemory(@BB[1],@TempBB[1],Length(BB)-1); //这里最后-1我用-length(BB[0])也不对
BB[0]:=aaa;请帮我调试一下吧

Answer 3

everything OK! look downunit Unit1;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;type
  Taaa=Array[0..3] of Single;  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;
  BB,TempBB:Array of Taaa;
  aaa:Taaa;
implementation{$R *.DFM}procedure TForm1.Button1Click(Sender: TObject);
begin
setlength(BB,4);
setlength(TempBB,high(BB)+1);BB[0][0]:=0.1;
BB[0][1]:=0.2;
BB[0][2]:=0.3;
BB[0][3]:=0.4;
BB[1][0]:=1.1;
BB[1][1]:=1.2;
BB[1][2]:=1.3;
BB[1][3]:=1.4;
BB[2][0]:=2.1;
BB[2][1]:=2.2;
BB[2][2]:=2.3;
BB[2][3]:=2.4;
BB[3][0]:=3.1;
BB[3][1]:=3.2;
BB[3][2]:=3.3;
BB[3][3]:=3.4;
aaa:=BB[0];
aaa[1]:=aaa[1]+1;//修改aaa其中的一个值
copyMemory(@TempBB[1],@BB[0],Length(BB)-1); //这里最后-1我用-length(BB[0])也不对
copyMemory(@BB[1],@TempBB[1],Length(BB)-1); //这里最后-1我用-length(BB[0])也不对
BB[0]:=aaa;end;end.

Answer 4

还是不对请看listbox1 和 listbox2 中的值
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;type
  Taaa=Array[0..3] of Single;  TForm1 = class(TForm)
    Button1: TButton;
    ListBox1: TListBox;
    ListBox2: TListBox;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;
  BB,TempBB:Array of Taaa;
  aaa:Taaa;
implementation{$R *.DFM}procedure TForm1.Button1Click(Sender: TObject);
var
    i:integer;
begin
setlength(BB,4);
setlength(TempBB,high(BB)+1);BB[0][0]:=0.1;
BB[0][1]:=0.2;
BB[0][2]:=0.3;
BB[0][3]:=0.4;BB[1][0]:=1.1;
BB[1][1]:=1.2;
BB[1][2]:=1.3;
BB[1][3]:=1.4;BB[2][0]:=2.1;
BB[2][1]:=2.2;
BB[2][2]:=2.3;
BB[2][3]:=2.4;BB[3][0]:=3.1;
BB[3][1]:=3.2;
BB[3][2]:=3.3;
BB[3][3]:=3.4;Listbox1.Items.Add('BB[i][0]:');
for i:=0 to high(BB) do
begin
    listbox1.Items.Add(floattostr(BB[i][0]));
end;Listbox1.Items.Add('BB[i][1]:');
for i:=0 to high(BB) do
begin
    listbox1.Items.Add(floattostr(BB[i][1]));
end;Listbox1.Items.Add('BB[i][2]:');
for i:=0 to high(BB) do
begin
    listbox1.Items.Add(floattostr(BB[i][2]));
end;
aaa:=BB[0];
aaa[1]:=aaa[1]+1;
copyMemory(@TempBB[1],@BB[0],Length(BB)-1);
copyMemory(@BB[1],@TempBB[1],Length(BB)-1);
BB[0]:=aaa;Listbox2.Items.Add('BB[i][0]:');
for i:=0 to high(BB) do
begin
    listbox2.Items.Add(floattostr(BB[i][0]));
end;Listbox2.Items.Add('BB[i][1]:');
for i:=0 to high(BB) do
begin
    listbox2.Items.Add(floattostr(BB[i][1]));
end;Listbox2.Items.Add('BB[i][2]:');
for i:=0 to high(BB) do
begin
    listbox2.Items.Add(floattostr(BB[i][2]));
end;
end;end.

Answer 5

copyMemory(@Newarray[1],@MyArray[0],Len)是用于内存拷贝的API函数
第一个参数是目标地址
第二个参数是源地址
第一个参数是拷贝长度（Byte）
airwing说的不对，应该用
copyMemory(@Newarray[1],@MyArray[0],（Length(MyArray)-1）*sizeof(single));
才对

Answer 6

Length(MyArray)得到的是数组长度，要乘上每个结构的大小(soizeof(Single))。

Answer 7

是的是的！
应该是copyMemory(@Newarray[1],@MyArray[0],sizeif(MyArray));
这回是对的了，jera!太久没用了，都忘了length是数组长度了

Answer 8

还是不对
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;type
  Taaa=Array[0..3] of Single;  TForm1 = class(TForm)
    Button1: TButton;
    ListBox1: TListBox;
    ListBox2: TListBox;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;
  BB,TempBB:Array of Taaa;
  aaa:Taaa;
implementation{$R *.DFM}procedure TForm1.Button1Click(Sender: TObject);
var
    i:integer;
begin
setlength(BB,4);
setlength(TempBB,high(BB)+1);BB[0][0]:=0.1;
BB[0][1]:=0.2;
BB[0][2]:=0.3;
BB[0][3]:=0.4;BB[1][0]:=1.1;
BB[1][1]:=1.2;
BB[1][2]:=1.3;
BB[1][3]:=1.4;BB[2][0]:=2.1;
BB[2][1]:=2.2;
BB[2][2]:=2.3;
BB[2][3]:=2.4;BB[3][0]:=3.1;
BB[3][1]:=3.2;
BB[3][2]:=3.3;
BB[3][3]:=3.4;Listbox1.Items.Add('BB[i][0]:');
for i:=0 to high(BB) do
begin
    listbox1.Items.Add(floattostr(BB[i][0]));
end;Listbox1.Items.Add('BB[i][1]:');
for i:=0 to high(BB) do
begin
    listbox1.Items.Add(floattostr(BB[i][1]));
end;Listbox1.Items.Add('BB[i][2]:');
for i:=0 to high(BB) do
begin
    listbox1.Items.Add(floattostr(BB[i][2]));
end;
aaa:=BB[0];
aaa[1]:=aaa[1]+1;
copyMemory(@TempBB[1],@BB[0],(Length(BB)-1)*sizeof(single));
copyMemory(@BB[1],@TempBB[1],(Length(BB)-1)*sizeof(single));
BB[0]:=aaa;Listbox2.Items.Add('BB[i][0]:');
for i:=0 to high(BB) do
begin
    listbox2.Items.Add(floattostr(BB[i][0]));
end;Listbox2.Items.Add('BB[i][1]:');
for i:=0 to high(BB) do
begin
    listbox2.Items.Add(floattostr(BB[i][1]));
end;Listbox2.Items.Add('BB[i][2]:');
for i:=0 to high(BB) do
begin
    listbox2.Items.Add(floattostr(BB[i][2]));
end;
end;end.

Answer 9

这样也不对aaa:=BB[0];
aaa[1]:=aaa[1]+1;
copyMemory(@TempBB[1],@BB[0],Length(BB)-sizeof(BB[0]));
copyMemory(@BB[1],@TempBB[1],Length(BB)-sizeof(BB[0]));
BB[0]:=aaa;

Answer 10

aaa:=BB[0];
aaa[1]:=aaa[1]+1;
copyMemory(@TempBB[1],@BB[0],sizeof(BB));
copyMemory(@BB[1],@TempBB[1],sizeof(BB));
BB[0]:=aaa;

Answer 11

知道清楚Copymemory的原理了，其他部分好好的想一想就能想清楚。程序太多太乱，能不能把关键代码抽出来看看

Answer 12

type
  Taaa=Array[0..3] of Single;
Var
BB,TempBB:Array of Taaa; 
aaa:Taaa;//BB是动态数组在其他过程里已经Setlength并赋了值
setlength(TempBB,high(BB)+1);
aaa:=BB[0];
aaa[1]:=aaa[1]+1;//修改aaa其中的一个值
copyMemory(@TempBB[1],@BB[0],sizeof(BB));
copyMemory(@BB[1],@TempBB[1],sizeof(BB));
BB[0]:=aaa;

Answer 13

//zswang傻笑着
//用Copy()就可以了procedure TForm1.Button1Click(Sender: TObject);
const
  cCount = 10;
type
  TArrayType = Single;
  TArray = array of TArrayType;
var
  vArray: TArray;
  I: Integer;
  function ArrayToStr(mArray: TArray): string;
  var
    I: Integer;
  begin
    Result := '';
    for I := Low(mArray) to High(mArray) do
      AppendStr(Result, Format('a[%d]=%s', [I, VarToStr(mArray[I])]) + #13#10);
  end;
begin
  SetLength(vArray, cCount);
  for I := 0 to Pred(cCount) do vArray[I] := I;
  ShowMessage(ArrayToStr(vArray));
  vArray := Copy(vArray, 1, 9);
  SetLength(vArray, cCount);
  vArray[Pred(cCount)] := 0;
  ShowMessage(ArrayToStr(vArray));
  vArray := nil;
end;

Answer 14

用 For 语句 我早就解决了这个问题
但是当数组长度很长时，速度会慢

Answer 15

用Tlist ,只要Tlist.Insert一个指针,就可以了,而且时内存操作,速度会快

Answer 16

  BB,TempBB:Array of array[0..3] of single ;
  aaa:array[0..3] of single ;copymemory(@aaa[0],@BB[0],sizeof(bb[0]));
aaa[1]:=aaa[1]+1;
copyMemory(@TempBB[1],@BB[0],sizeof(bb[0])*Length(BB));
copyMemory(@BB[1],@TempBB[1],sizeof(bb[0])*Length(BB));
copymemory(@bb[0],@aaa[0],sizeof(bb[0]));

Answer 17

干吗非要用数组？用TQueue就行了。

Answer 18

do not stop,never give up!

Answer 19

我解决了 应该是这样
 
  BB,TempBB:Array of array[0..3] of single ;
  aaa:array[0..3] of single ;copymemory(@aaa[0],@BB[0],sizeof(bb[0]));
aaa[1]:=aaa[1]+1;
copyMemory(@TempBB[1],@BB[0],sizeof(bb[0])*（Length(BB)-1));
copyMemory(@BB[1],@TempBB[1],sizeof(bb[0])*（Length(BB)-1));
copymemory(@bb[0],@aaa[0],sizeof(bb[0]));