Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2007.01.28;
Скачать: [xml.tar.bz2];

Вниз

Копирование массива рекордов?   Найти похожие ветки 

 
Cemen   (2007-01-12 03:33) [0]

Надо обязательно поэлементно копировать?


 
Германн ©   (2007-01-12 03:43) [1]


>
> Cemen   (12.01.07 03:33)
>
> Надо обязательно поэлементно копировать?

А вопрос то где?


 
Alx2 ©   (2007-01-12 03:50) [2]

>Cemen   (12.01.07 03:33)

Не обязательно. Можно за одно присваивание, если объявлен как отдельный тип. Для динамических массивов - свои функции есть. В любом случае, можно аккуртано воспользоваться процедурой move


 
SergP ©   (2007-01-12 04:36) [3]

> [2] Alx2 ©   (12.01.07 03:50)
> >Cemen   (12.01.07 03:33)
>
> Не обязательно. Можно за одно присваивание, если объявлен
> как отдельный тип. Для динамических массивов - свои функции
> есть. В любом случае, можно аккуртано воспользоваться процедурой
> move


ну это если рекорды не одержат динамических структур.


 
Alx2 ©   (2007-01-12 04:41) [4]

>SergP ©   (12.01.07 04:36) [3]

Да, точно. Не учел.


 
Cemen   (2007-01-12 07:55) [5]

А если содержат, то как лучше?


 
Джо ©   (2007-01-12 07:56) [6]

> [5] Cemen   (12.01.07 07:55)
> А если содержат, то как лучше?

В цикле.


 
DevilDevil ©   (2007-01-12 12:34) [7]

type
  TMyRecord = record ... end;
  PMyRecord = ^TMyRecord;

var
  RecArr1 : array of TMyRecord;
  RecArr2 : array of TMyRecordl

procedure FastMemCPY(Dest, Src : PMyRecord; CountBytes : integer);
asm
push esi
push edi

mov edi, eax
mov esi, edx
mov eax, ecx

shr ecx, 2
jz @Bytes

rep movsd

@Bytes:
and eax, 3
jz @end_p
mov ecx, eax
rep movsb
@end_p:
pop edi
pop esi
end;

//*********************

procedure SomeProc();
begin
  . . .
  FastMemCPY( @RecArr1[n1], @RecArr2[n2], RecsCount *sizeof(TMyRecord) );
  . . .
end;


 
evvcom ©   (2007-01-12 15:51) [8]

> [7] DevilDevil ©   (12.01.07 12:34)
> FastMemCPY

И чем он отличается от стандартного Move? Только отсутствием проверки на направление копирования? :-))
А [5] читал?



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

Форум: "Начинающим";
Текущий архив: 2007.01.28;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.46 MB
Время: 0.05 c
15-1168071734
cava
2007-01-06 11:22
2007.01.28
работа с папками


15-1168260263
iXT
2007-01-08 15:44
2007.01.28
Продам в хорошие руки!


15-1168009247
Chort
2007-01-05 18:00
2007.01.28
Флешкa


15-1167892676
Прогер
2007-01-04 09:37
2007.01.28
idMessage Subject/From ISO-8859-1


15-1168481935
Смаг
2007-01-11 05:18
2007.01.28
опере 9





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский