反过来
for i:=0 to number-1
do
begin
a:=temp[i];
temp[i]:=temp[number-1-i];
temp[number-1-i]:=a;
end;
第二问没看出来什么关系
for i:=0 to number-1
do
begin
a:=temp[i];
temp[i]:=temp[number-1-i];
temp[number-1-i]:=a;
end;
第二问没看出来什么关系
解决方案 »
- delphi中对mdi操作
- delphi断点调试问题
- 没有调用此文件,却提示我没发现该文件的错误!奇怪。
- 才鸟问!
- 对话框间的通信!
- ListView的加入的item图标是16*16的,怎么设置成32*32的?(最后18分提问)
- Midas服务器无法在另一台计算机上运行,只能在本机运行,请问是什么原因?
- 点击按钮,将删除MS-SQL SERVER6.5上的一个别名为AA的数据库。该怎么做?点击按钮,将删除MS-SQL SERVER6.5上的一个别名为AA的数据库的一
- 哪位知道clone方法的用法,有详细例子的更好。
- 请问ACCESS数据库中MEMO字段怎样显示啊?
- 紧急求救!!!!!!!!100分重谢
- 请教一个小问题(在线等待)
do
begin
a:=temp[i];
temp[i]:=temp[5-i];
temp[5-i]:=a;
end;
move(temp,temp1[1],6);
var
iLoop: Integer;
tempnum: Integer;
begin
totalCount := Length(temp);
for iLoop:=0 to totalCount div 2 do begin
temp[iLoop] := tempnum;
temp[iLoop] := temp[totalCount-iLoop-1];
temp[totalCount-iLoop-1] := tempnum;
end;
end;第二问:
var
tmparray: array[0..1, 0..2] of Integer;
begin
Move(temp, tmparray, SizeOf(temp));
end;
tmparray即为所得