Скачать: CL | DM;

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]

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

---

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

> Юрий Зотов ©   (17.03.04 19:22) [9]

сможет ли ею автор распорядится, вот с чем вопрос :))))

---

← →
{bas} ©   (2004-03-18 11:22) [11]

спасибо за советы, но все равно я не понял как скопировать часть массива если хочу скапировать не с начала (с 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;

---

← →
Asdor ©   (2004-03-18 11:28) [12]

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;

---

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

СПАСИБО

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.022 c