Чтение бинарного файла. Где ошибка?

[Sullla]

Завис на элементарной ошибке, нужен взгляд со стороны

type
  TOrderShortInfo= record
    index: string[3]; 
    date: string[10];  
    name: string[128];  
  end;
.............
procedure TfrmSendOrder.ReadClick(Sender: TObject);
var
  xptFile: file of TOrderShortInfo;
  decoded_array:array of TOrderShortInfo;
  i: integer;
begin
  AssignFile(xptFile,ExtractFilePath(Application.ExeName)+'Export\test.xpr');
  Reset(xptFile);
  SetLength(decoded_array,FileSize(xptFile));
  try
    i:=1;
    while not EOF(xptFile) do
    begin
      Read(xptFile, decoded_array[i]);
      inc(i);
    end;
  finally
    CloseFile(xptFile);
  end;
end;

В строке Read(xptFile, decoded_array[i]) выдает "Missing operator or semicolor"...

[3D Hunter]

var
  FPath:AnsiString;
  xptFile:file of TOrderShortInfo;
  decoded_array:array of TOrderShortInfo;
  i:integer;
begin
  FPath:=ExtractFilePath(ParamStr(0))+'Export\test.xpr';
  ForceDirectories(ExtractFilePath(FPath));
  AssignFile(xptFile,FPath);
  if FileExists(FPath) then Reset(xptFile) else Rewrite(xptFile);
  SetLength(decoded_array,FileSize(xptFile));
  try
    i:=0;
    while not EOF(xptFile) do
    begin
      Read(xptFile, decoded_array[i]);
      inc(i);
    end;
  finally
    CloseFile(xptFile);
  end;
end;

1. Динамические массивы начинаются с нуля.
2. Добавил проверку на существование директории и файла.
Пробуйте, должно работать.

[Sullla]

Спасибо, но проблема явно не в отсутствии файла или нумерации масива... это детали...
Ошибка ведь правописания ...

В строке Read(xptFile, decoded_array[i]) выдает "Missing operator or semicolor"...

[Человек_Борща]

Думаю, что во 2-ом параметре read вам надо передавать размер читаемой записи, а не саму запись или её номер.

Read(xptFile, SizeOf(TOrderShortInfo));

[Serge_Bliznykov]

В строке Read(xptFile, decoded_array[i]) выдает "Missing operator or semicolor"...

НЕ подтверждаю!
ничего подобного не выдаёт!
И вообще, в какой момент выдаёт?
Дайте скриншот!

Сообщение от Человек_Борща

Думаю, что во 2-ом параметре read вам надо передавать размер читаемой записи, а не саму запись или её номер.

Вы КАТЕГОРИЧЕСКИ неправы! Это же ТИПИЗИРОВАННЫЙ файл!

Спасибо, но проблема явно не в отсутствии файла или нумерации масива... это детали...

Мне бы Ваш оптимизм - попытка прочитать несуществующий файл или прочитать его в область памяти за пределами массива (читай - в чужую область памяти) вы называете "деталями"... ну-ну!

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

Человек_Борща, файл типизированный потому размер известен заранее.
и тем более читать мы будет куда? в размер?

синтаксических ошибок я не вижу если честно.

[Serge_Bliznykov]

Сообщение от Пепел Феникса

синтаксических ошибок я не вижу если честно.

ну и правильно, что не видите! Их нет!
я не поленился запустить Delphi, вставить код и откомплировать.
Никаких проблем при компиляции - НЕТ!

[3D Hunter]

ТС следует сменить версию делфи скорее всего.

[Serge_Bliznykov]

ТС следует сменить версию делфи скорее всего.

А при чём здесь версия Delphi ?!
Вы хотите сказать, что под какой-то версией этот код станет синтаксически неверным?! Под какой?..


p.s. я так и не увидел ответа на свои вопросы - в какой момент выдаётся ошибка и где её скриншот...

[GunSmoker]

В строке Read(xptFile, decoded_array[i]) выдает "Missing operator or semicolor"...

В указанном коде проблемы нет. Проблема в коде, который вы не показали. У вас где-то есть что-то (например, с именем Read), что конфликтует с этим кодом.