Copy array

← →
{bas} © (2004-03-17 18:02) [0]

как сделать так:

var a1 : array[1..2000] of integer; a2 : array of integer; begin a1 := copy(a2, 0, cnt); // !!!error-"Incompatible types" end;

← →
WebErr © (2004-03-17 18:03) [1]

a2: array[1..1] of Integer; ?

← →
MBo © (2004-03-17 18:07) [2]

Move

← →
` frizZ. ` © (2004-03-17 18:07) [3]

ггг..
цикл используй

← →
Silver Alex © (2004-03-17 18:08) [4]

copy копирует массив из String-ов

← →
{bas} © (2004-03-17 18:12) [5]

2MBo © (17.03.04 18:07) [2]
А, если так
var a1 : array[1..2000] of integer; a2 : array of integer; begin a1 := copy(a2, 10, 20); // !!!error-"Incompatible types" end;
2` frizZ. ` © (17.03.04 18:07) [3]
Не хочу циклом, слишком дорого

← →
{bas} © (2004-03-17 18:14) [6]

2MBo © (17.03.04 18:07) [2]
И, если не integer, а тип record

← →
Юрий Зотов © (2004-03-17 19:03) [7]

> {bas} © (17.03.04 18:14) [6]

Снова Move. Но теперь уже, видимо, вместе с F1.

← →
Тимохов © (2004-03-17 19:07) [8]

> 2MBo © (17.03.04 18:07) [2]
> И, если не integer, а тип record

смотря что содержат record"ы

← →
Юрий Зотов © (2004-03-17 19:22) [9]

> Тимохов © (17.03.04 19:07) [8]

Это уже несколько из другой оперы. КОПИЯ все равно будет получена.

спасибо за советы, но все равно я не понял как скопировать часть массива если хочу скапировать не с начала (с 10 по 20 индекс)
вот что в итоге получилось:

type
RateData = record
Fut_ID : extended;
Type_Rcord : Char;
Last_Price : extended; //
Last_Size : extended; //
Bid_Size : extended; //
Bid_Price : extended; //
Ask_Price : extended; //
Ask_Size : extended; //
Line_Time : TDateTime;//
Status : Char; //
End;
var
a1 : array[0..1000] of RateData;
a2 : array of RateData;
i : integer;
begin
for i:=0 to 1000 do
// присвоение значений a1
move(a1, a2, sizeof(RateData)*20);
// а я хочу с 10 индекса по 20, а не с 0 по 19.
end;

var
a1 : array[0..1000] of RateData;
a2 : array of RateData;
i : integer;
begin
SetLength(a2,Idx2-Idx1);
Move(a2[0],a1[idx1],SizeOf(RateData)*(Idx2-Idx1));
end;

СПАСИБО

Copy array Найти похожие ветки