Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Подскажите функцию для установки текущей позиции ч

Автор: SpiritMen 10.3.2006, 07:17

Подскажите функцию для установки текущей позиции чтения в нетипизированном файле размером свыше 2Gb.

Автор: Rrader 10.3.2006, 07:42

TStream.Seek()

Автор: Alexeis 10.3.2006, 10:19

SpiritMen, Нетипизированные файлы это пережиток турбо паскаля. В делфях удобней пользоваться объектом класса TFileStream или файлами отображаемыми в память. Пережитки турбо паскаля всегда ограничены в применении и переделывать их нет смысла

Автор: Yanis 10.3.2006, 14:59

Цитата(alexeis1 @ 10.3.2006, 10:19

)

Пережитки турбо паскаля всегда ограничены в применении и переделывать их нет смысла

Хотя они (пережитки) используют для работы с файлами функции Windows!

Автор: Snowy 10.3.2006, 15:10

Угу. Но существуют только для совместимости.
Сама дельфя не рекомендует их использовать.

Автор: Yanis 10.3.2006, 15:42

Цитата(Snowy @ 10.3.2006, 15:10

)

Угу. Но существуют только для совместимости.
Сама дельфя не рекомендует их использовать.

А где про это можно почитать?

Автор: Snowy 10.3.2006, 16:41

Просто напиши код и в опциях проекта включи все варнинги.

Автор: Yanis 10.3.2006, 18:37

Цитата(Snowy @ 10.3.2006, 16:41

)

Просто напиши код и в опциях проекта включи все варнинги.

Это на закладке Compiler Messages? А какой именно од должен вызывать warning'и? У меня вот такой код компилится "втихую":

Код


var
  f: file of integer;
  i: integer;
begin
  AssignFile(f, 'c:\temp.tmp');
  Rewrite(f);
  for i := 1 to MaxByte do
    Write(f, i);
  CloseFile(f);
  Close;

Автор: Snowy 10.3.2006, 18:46

Это потому что у тебя 6-ка. Она не ругается.
Ругаются, начиная с 7-ки.

Автор: Yanis 10.3.2006, 19:06

Цитата(Snowy @ 10.3.2006, 18:46

)

Это потому что у тебя 6-ка. Она не ругается.
Ругаются, начиная с 7-ки.

У меня Delphi 7. Может быть я не там что то выставил? Но у меня никаких Warning'ов нету smile

Автор: Snowy 10.3.2006, 21:03

У меня ругается "Unsafe Type: file of integer"

Автор: Alexeis 13.3.2006, 09:50

так и есть
надо поставить
unsafe type
unsafe code
unsafe typecast

Автор: Yanis 13.3.2006, 10:04

http://actualsoft.narod.ru/d7_2.JPG
smile

Автор: Alexeis 13.3.2006, 10:29

http://alexei-s1.narod.ru/Image1.jpg

Автор: Snowy 13.3.2006, 10:40

Yanis, при повторной компиляции варнинги не лезут.
Измени кусок кода и компильни снова. Варнинги появятся. Компильни еще раз - пропадут.