如何在不使用迭代语句的情况下将一个数组附加到另一个相同类型的数组(for
or while
循环)在德尔福?
在最新的 Delphi 版本(XE7+)中,您可以使用+
运算符或Concat
附加数组的例程。Link. 官方帮助(没有提到+
)
否则编写您自己的过程(如果可能,使用通用数组)。简单示例(在 XE3 中检查):
type
TArrHelper = class
class procedure AppendArrays<T>(var A: TArray<T>; const B: TArray<T>);
end;
class procedure TArrHelper.AppendArrays<T>(var A: TArray<T>;
const B: TArray<T>);
var
i, L: Integer;
begin
L := Length(A);
SetLength(A, L + Length(B));
for i := 0 to High(B) do
A[L + i] := B[i];
end;
usage:
var
A, B: TArray<String>;
begin
A := TArray<String>.Create('1', '2', '3');
B := TArray<String>.Create('4', '5');
TArrHelper.AppendArrays<String>(A, B);
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)