28-03-2013, 08:09 PM
السلام عليكم
يبدو ان Fillchar RTL اسرع
FastFillZero 328ms
FillChar 312ms
يبدو ان Fillchar RTL اسرع
كود :
[align=left]var
tt : longword;
type
t_rec = record
x,y,z,s : integer;
n,p,q : single;
end;
var
gF_array : array[0..8374238] of t_rec;
begin
tt := GetTickCount();
//FillChar(gF_array,8374238*sizeof(t_rec),char(0));
FastFillZero(gF_array,8374238*sizeof(t_rec));
writeln(GetTickCount()-tt);
readln
end.
[/align]FastFillZero 328ms
FillChar 312ms