Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Сохранение массива в файл [D7, WinXP]


Vitaliy_____ ©   (2008-09-25 10:09:00) 

Добрый день.
Имеется матрица, объявленная как
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);

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


Vitaliy_____   (2008-09-25 10:18:00) [1]


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

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


Vitaliy_____   (2008-09-25 10:17:00) [2]

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


Поросенок Винни-Пух   (2008-09-25 10:14:00) [3]

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

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


Поросенок Винни-Пух   (2008-09-25 10:11:00) [4]

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


Наверх

Титульная страница Поиск, карта сайта Написать письмо