Сохранение массива в файл

[Дмитрий Стариков]

// сохраняем данные средней скользящей
 begin
 AssignFile(SavessChas,'D:\sim\Программирование\Delhpi\Проект\Основная\save\EUR_USD_ssChas_IntVr.txt');
 Rewrite(SavessChas);
 for srschas:=0 to 500 do  //пишем в файл...
  write(SavessChas,ssChas[srschas]);
Reset(SavessChas);
CloseFile(SavessChas);
srschas:=0;
end;


// сохраняем данные для MACD
  begin
 AssignFile(SaveMacdChas,'D:\sim\Программирование\Delhpi\Проект\Основная\save\EUR_USD_MacdChas_IntVr.txt');
 Rewrite(SaveMacdChas);
 for macdchas:=0 to 500 do  //пишем в файл...
  write(SaveMacdChas,MacdCh[macdchas]);
Reset(SaveMacdChas);
CloseFile(SaveMacdChas);
macdchas:=0;
end;

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

[ZaRDaK]

Что за первый, второй и третий операторы?

[Дмитрий Стариков]

Вообще начинает ругаться... на эту строчку при сохранении

[Пепел Феникса]

файлы типизированные или бинарные?
в бинарные одной строкой сохраняются.

[Дмитрий Стариков]

файлы нетипизированые.. Первый - сохранение средней скользящей, второй - сохранение MACD, третий - сохранение значений котировки

[Пепел Феникса]

для работы с нетипизированными файлами служат BlockWrite/Read.
записать массив в файл нетипизированный.

var F:File;
A:array of <чето там>;
begin
 AssignFile(F,<путь>);
 Rewrite(F);
 BlockWrite(F,A[0],SizeOf(A[0])*Length(A));
 CloseFile(F);

[Дмитрий Стариков]

Оба массива полностью одинаковые, почему с первым нет проблем?? Я, наверное недопонимаю значения типизированый-нетипизированый, но что они одинаковые - это точно и на строчку

BlockWrite(F,A[0],SizeOf(A[0])*Length(A))

ругается

[Stilet]

ругается

Вот чертовы браузеры. Опять текст ошибки белыми буквами по белому фону пишут...
Не слушай с этим надо что-то делать. Предлагаю пожаловаться в ООН.