Скопировать массив в массив

← →
Sarge (2003-06-05 15:33) [0]

Есть эти стрктуры:
Type TSelectedRights=packed record
//Здесь много переменных с типом Boolean
F1,
F2,
..
F30: Boolean;
End;

Type PSelectedRights = ^TSelectedRights;

Есть массив MasRights: array of PSelectedRights

Затем я высвечиваю форму, на ней TCheckListBox, где отмечаю галочки.
После этого

Var Temp: array of Boolean;
t: Integer;
Begin
SetLength(MasRights,1);
SetLength(Temp,CheckListBox.Items.Count);
For t:=Low(Temp) to High(Temp) Do Temp[t]:=CheckListBox.Checked[t];

Теперь вопрос: Как скопировать Temp на элемент массива MasRights[0] ?? Чтобы вручную не назначать каждую переменную соответствующему Checked"у ?
Т.е. я думаю, что-то типа CopyMemory. Так не получается:

CopyMemory(Pointer(MasRights[0]),Pointer(Temp[1]),SizeOf(Temp));

End;

:( Подскажите плиз

← →
Skier © (2003-06-05 15:42) [1]

Move(Temp[ 0], MasRights[ RequiredIndex]^.F1, ...)

← →
evvcom © (2003-06-05 16:22) [2]

Судя по

> F1,
> F2,
> ..
> F30: Boolean;

гораздо удобнее использовать перечисляемый тип и множество. Тогда вся эта "беда" разместится не в 30*4=120 байтах, а всего в 4-х! А далее копирование будет вообще простым MasRights[RequiredIndex]^ := TempSet;

+ evvcom © (05.06.03 16:22)
-Пишешь три функции SetBit(...) ClearBit(...) CheckBit(...)
-и теперь... в типе Byte можно хранить 8 флажков
в типе Word - 16 и т.д.
Выигрываешь и во времени и в памяти.

Скопировать массив в массив Найти похожие ветки