delphi中兩個陣列之間如何交換？
就想下面函式這樣
procedure swap(var i,j:integer);
var
i,j,tmp:integer;
begin
tmp:=i;
i:=j;
j:=tmp;
end;
uj5u.com熱心網友回復：
還是設一個中間變數陣列，回圈讀取uj5u.com熱心網友回復：
除了回圈，有沒有別的方法？
因為要多次交換陣列，且陣列元素較多，
回圈的話速度會慢。
uj5u.com熱心網友回復：
用中間快取區交換資料吧。var
arrList0:array [0..5] of byte;
arrList1:array[0..5] of byte;
arrTemp:array[0..5] of byte;
//記憶體復制
fillchar( arrtemp,6,0);
move( pbyte(@arrlist0[0])^, pbyte(@arrtemp[0])^, 6);
move( pbyte(@arrlist1[0])^, pbyte(@arrlist0[0])^, 6);
move( pbyte(@arrtemp[0])^, pbyte(@arrlist1[0])^, 6);
uj5u.com熱心網友回復：
procedure TForm1.hmary(var mary1,mary2:array of string);var
mary:array of string;
i:Integer;
begin
SetLength(mary,High(mary1));
for I := 0 to high(mary1)-1 do
begin
mary[i]:=mary1[i];
mary1[i]:=mary2[i];
mary2[i]:=mary[i];
end;
end;
互換程序
uj5u.com熱心網友回復：
改正： for I := 0 to high(mary1) dohight(mary1)不應該減1
uj5u.com熱心網友回復：
注意Delphi是4GL，它的智能程度是很高的，同一型別的陣列可以直接賦值，編譯器生成代碼處理元素復制的問題（也可能只是指標的復制，如果是動態陣列的話），不需要用戶操心。注意：
type
TByteArray10 = array[0..9] of byte;
var
a1, a2, a3: array[0..9] of byte; // 這是同一型別
a4: array[0..9] of byte; //
a5: array[0..9] of byte; //
a6: array[0..9] of byte; // 不是同一型別，但是可以用TByteArray10進行cast
可以這樣直接賦值交換：
a3 := a1;
a1 := a2;
a2 := a3;
TByteArray10(a6) := TByteArray10(a4);
TByteArray10(a4) := TByteArray10(a5);
TByteArray10(a5) := TByteArray10(a6);
uj5u.com熱心網友回復：
動態陣列是否也可以這樣處理呢
我這樣使用報錯 [Error] Unit1.pas(131): Invalid typecast
type
TArrInt=array of integer;
procedure Swap(var x, y:array of integer);
var
tmp:array of integer;
begin
TArrInt(tmp):=TArrInt(x);
TArrInt(x):=TArrInt(y);
TArrInt(y):=TArrInt(tmp);
uj5u.com熱心網友回復：
不能處理傳入的引數uj5u.com熱心網友回復：
procedure Swap( x, y:array of integer);
type
TByteArray10 = array of integer;
var
a1, a2, a3: array of integer; // 這是同一型別
a4: array of integer; //
a5: array of integer; //
a6: array of integer; // 不是同一型別，但是可以用TByteArray10進行cast
begin
//可以這樣直接賦值交換：
a3 := a1;
a1 := a2;
a2 := a3;
TByteArray10(a6) := TByteArray10(a4);
TByteArray10(a4) := TByteArray10(a5);
TByteArray10(x) := TByteArray10(a6); //這句編譯時報錯 : Invalid typecast
end;
uj5u.com熱心網友回復：
procedure Swap(var x, y:array of integer);這個宣告的x、y的型別不是動態陣列，而是open array parameter，這種型別的引數兼容靜態陣列、動態陣列、以[]臨時構造的陣列，所以x,y的實際型別未必一樣。這樣就可以了：
type
TArrInt=array of integer;
procedure Swap(var x, y: TArrInt);
var
z: TArrInt;
begin
z := x;
x := y;
y := z;
end;
uj5u.com熱心網友回復：
為何
這樣就能編譯
procedure TForm1.btn4Click(Sender: TObject);
type
TByteArray = array of byte;
var
a1: array of byte;
a2: array of byte;
a3: array of byte; // a1,a2,a3不是同一型別，但是可以用TByteArray10進行cast
begin
TByteArray(a3) := TByteArray(a1);
TByteArray(a1) := TByteArray(a2);
TByteArray(a2) := TByteArray(a3);
end
而這樣就不能編譯
procedure Swap2( x, y:array of integer);
type
TIntegerArr = array of integer;
var
tmp : array of integer;
begin
TIntegerArr(tmp):=TIntegerArr(x);
TIntegerArr(x):=TIntegerArr(y);
TIntegerArr(y):=TIntegerArr(tmp);
end;
uj5u.com熱心網友回復：
前面說過了，函式引數中的x, y:array of integer這個宣告的x、y的型別不是動態陣列，而是open array parameter，雖然形式上看起來象是動態陣列（實際上你給它傳一個靜態陣列實參進去也可以的，或者用[]構造一個臨時陣列也可以）。uj5u.com熱心網友回復：
TIntegerArr是用戶定義的型別，是物件的型別，不是物件的物體。需要物體化以后，才能賦值。
uj5u.com熱心網友回復：
不是沒有物體化的問題，
你對比一下這兩組代碼，
問題是傳入的引數為何不能轉換為TIntegerArr型別，而函式內的變數就可以轉換為TingegerArr型別
uj5u.com熱心網友回復：
open array parameter不能強制轉換為下面的自定義型別嗎？
type
TIntegerArr = array of integer;
uj5u.com熱心網友回復：
覺得3樓的寫法比較高效
uj5u.com熱心網友回復：
不能，因為open array parameter的實參不只是動態陣列。比如傳一個動態陣列和一個靜態陣列，二者型別不兼容。
uj5u.com熱心網友回復：
編譯器自動生成的復制代碼效率比這個高，沒有函式呼叫，你可以看看反匯編的代碼。
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/101791.html
標籤：語言基礎/算法/系統設計
上一篇：字串查詢處理