Вниз
Скачать: CL | DM;

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

← →
Vitaliy_____   (2008-09-25 10:09) [0]

Добрый день.
Имеется матрица, объявленная как
array of array of double;
Требуется сохранить ее в файл.
Изначально было сохранение матрицы поэлементно

for i_save:=0 to Mat.SizeY-1 do
for n_save:=0 to Mat.SizeX-1 do
 FileWrite(iFileHandle,Mat.data[i_save,n_save],DoubleVarSize);

где mat.data - и есть матрица, SizeX и SizeY - ее размеры.
Однако при работе с большими матрицами, скажем 9000 элементов этот процесс оказался медленным.
Требуется сохранять матрицу "по строкам", записывая сразу по 9000 элементов. Однако код

StringSize:=SizeX*DoubleVarSize;
 for i_save:=0 to SizeY-1 do
  FileWrite(iFileHandle,TDoubleArray(data[i]),StringSize);

Не работает. Или динамический массив в памяти лежит не последовательно (что вряд ли) или я не понимаю в чем дело.
Подскажите, как лучше решить проблему ускорения записи...


← →
Поросенок Винни-Пух ©   (2008-09-25 10:11) [1]

Райтфайлу нужен адрес, а не указатель


← →
Поросенок Винни-Пух ©   (2008-09-25 10:14) [2]

function FileWrite(Handle: Integer; const Buffer; Count: LongWord): Integer;

data[i] это динамический массив, то есть ты передаешь указатель вместо адреса по которому расположены элементы


← →
Vitaliy_____   (2008-09-25 10:17) [3]

Извиняюсь за пустой вопрос... Туплю я - читаю/пишу ссылки а не сами элементы...
Достаточно исправить на
FileWrite(iFileHandle,data[i,0],StringSize);
Самому смешно :)


← →
Vitaliy_____   (2008-09-25 10:18) [4]


>
> data[i] это динамический массив, то есть ты передаешь указатель
> вместо адреса по которому расположены элементы

Во-во. Достаточно дать его 0 элемент и писать все. Сейчас проверю, вроде работает...



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

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



Память: 0.46 MB
Время: 0.01 c
2-1222147865
vegarulez
2008-09-23 09:31
2008.11.02
Вопрос про хук.


2-1222425226
webpauk
2008-09-26 14:33
2008.11.02
как получить максимальное значение?


2-1222337681
Gars
2008-09-25 14:14
2008.11.02
Надо отправить POST методом сообщение


15-1221033743
*Pavel
2008-09-10 12:02
2008.11.02
Права на папки в домене Windows 2003


1-1201615785
webpauk
2008-01-29 17:09
2008.11.02
Прозрачность окна




   Наверх