Delphi - Incompatible types

[ridek]

type TSize = Record
        Bait: byte;
end;
var F: File of TSize;
       Size: Integer;
begin
Size:=0;
with OpenDialog1 do
 if Execute then
   begin
      AssignFile(F, FileName);
      Reset(F);
      while (not EOF(F)) do
        begin
          Size:=Size+1;
          seek(F, Size/(1024*1024));
        end;
   lbl23.Caption:=(IntToStr(Size));
   ComboEdit1.Text:= OpenDialog1.FileName;
   CloseFile(F);
  end;

Всем привет.
Помогите найти ошибку в этом коде (Incompatible types)

[type_Oleg]

В процедуре Seek второй аргумент должен быть целым.
А у вас там Size/(1024*1024).
Операция / всегда возвращает не целое , а действительное. Даже если 1/1
Потому что это Паскаль, а не Си.

[Аватар]

seek(F, Size/(1024*1024));

деление интежер на интежер чего будет?

[min@y™]

type TSize = Record
Bait: byte;
end;

Это ты сам такое придумал или твой препод муд_к?

[type_Oleg]

min@y™, может это хитрость такая. Сказали надо файл записей, вот вам запись, самая простая, что может быть.
PS Правда, я не соображу, какова будет длина этой записи, с учетом, что record - не packed

[ResourceSpace]

В зависимости от настроек среды, если память не подводит. И если две версии программы скомпилированные в разных средах с разными настройками попытаются работать с одним файлом - могут напороться. Так что по-хорошему нужно packed.
Лично я не понимаю смысла при первой итерации:

seek(F, 0.00000095367431640625);

[min@y™]

может это хитрость такая. Сказали надо файл записей, вот вам запись, самая простая, что может быть.

Тогда точно препод муд_к, вводит студентоту в заблуждение, т.к. нет связи между record и file of, кроме размера.
Вообще, наверное, это заблуждение обусловлено двойственностью понятия "запись" в английском диалекте американской мовы: "record"/"write".

И если две версии программы скомпилированные в разных средах с разными настройками попытаются работать с одним файлом - могут напороться.

а вот тут 100%-ный косяк безрукого инвалида-говнокодера. Безрукого, т.к. за такие косяки как раз руки и надо отрывать.

Так что по-хорошему нужно packed.

По хорошему, в данном случае, надо не packed record, а TFileStream. Я даже по этому поводу спорить не буду.

seek(F, 0.00000095367431640625);

Там компайлер и матерится. Имхо, автор промазал - попал сосиской по "/" всместо "*", они рядом на цифровом блоке клавы.

[ResourceSpace]

Имхо, автор промазал - попал сосиской по "/" всместо "*", они рядом на цифровом блоке клавы.

Даже если умножение - смысл какой подразумевался? Будет seek 1048576. Да и вообще - пока файл не закончится делаем seek со странными параметрами...

По хорошему, в данном случае, надо не packed record, а TFileStream.

Я имел ввиду что при работе с File Of <SomeRecord> нужно чтоб Record был Packed. А так да, TFileStream или TMemoryStream лучше само собою.