关于copy的问题 |
答題得分者是:wameng
|
小丫123
初階會員 ![]() ![]() 發表:85 回覆:62 積分:29 註冊:2004-08-31 發送簡訊給我 |
var A:array of integer; B:array of integer; i,j:integer; s:string; begin s:=' '; memo1.clear; setlength(A,5); setlength(B,5); B:=copy(A);//这句为什么报错,应该怎么修改? for i:=Low(A) to high(A) do begin A[i]:=i 3; memo1.Lines .add(inttostr(A[i])); end; memo1.Lines .add('B的数组为: '); for i:=Low(B) to high(B) do begin B[i]:=i*3; memo1.Lines .add(inttostr(B[i])); end; end; |
supman
尊榮會員 ![]() ![]() ![]() ![]() ![]() ![]() 發表:29 回覆:770 積分:924 註冊:2002-04-22 發送簡訊給我 |
|
wameng
版主 ![]() ![]() ![]() ![]() ![]() ![]() 發表:31 回覆:1336 積分:1188 註冊:2004-09-16 發送簡訊給我 |
function Copy(S; Index, Count: Integer): string;
function Copy(S; Index, Count: Integer): array; 您必須指定 index and Count
setlength(A,5);
setlength(B,5);
B:=copy(A);//这句为什么报错,应该怎么修改??????
這句有何意義!???? 空的拷貝空的。
應該是放在
var A,B:array of integer; i,j:integer; s:string; begin s:=' '; memo1.clear; setlength(A,5); setlength(B,5); for i:=Low(A) to high(A) do begin A[i]:=i 3; memo1.Lines .add(inttostr(A[i])); end; B := A; memo1.Lines .add('B的数组为: '); for i:=Low(B) to high(B) do begin B[i]:=i*3; memo1.Lines .add(inttostr(B[i])); end; end; |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |