Delphi - Считываение данных из файла

Внимание, важное сообщение: Дорогие Друзья!
В ноябре далекого 2001 года мы решили создать сайт и форум, которые смогут помочь как начинающим, так и продвинутым пользователям разобраться в операционных системах. В 2004-2006г наш проект был одним из самых крупных ИТ ресурсов в рунете, на пике нас посещало более 300 000 человек в день! Наша документация по службам Windows и автоматической установке помогла огромному количеству пользователей и сисадминов. Мы с уверенностью можем сказать, что внесли большой вклад в развитие ИТ сообщества рунета.

Но... время меняются, приоритеты тоже. И, к сожалению, пришло время сказать До встречи! После долгих дискуссий было принято решение закрыть наш проект. 1 августа форум переводится в режим Только чтение, а в начале сентября мы переведем рубильник в положение Выключен

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

С уважением, ваш призрачный админ, BigMac...

Delphi - Считываение данных из файла

Student00

Пользователь

Сообщения: 131
Благодарности: 0

Профиль | Отправить PM | Цитировать

Кратко:
Есть файл мы из него читаем данные после чего для проверки что мы прочитали - выводим инфу виде сообщения, но вместо заданных в файле данных выводится какая-то фигня.

Подробно (упрощенная версия кода):

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  kei: File of cardinal;
  keyname: String;
  fkey: cardinal;
begin

  keyname:=Edit1.Text;
  AssignFile(kei, keyname);
  Reset(kei);
  read(kei, fkey);
  CloseFile(kei);

  ShowMessage(inttostr(fkey));
 end;

Проблема:
Допустим keyname - 1.txt, в который мы записываем число: 4294967295
Читаем файл kei и передаем из него информацию в переменную fkey [read(kei, fkey);]
ShowMessage(inttostr(fkey)); По логике в сообщении д/б число 4294967295 (или оно же в другой системе счисления), но выводится 876163636.

Ребят подскажите пожалуйста почему так происходит?

------------------
Дело в том, что в реальной программе
var
kei: file of Cardinal;
fkey1, fkey2, fkey3, fkey4: Cardinal;

А считываем мы так: read(kei, fkey1, fkey2, fkey3, fkey4);

где kei (т.е. файл) содержит строку = 128 бит и мы разбиваем 128/4 = 32 (fkey1-4)
Опять же по логике если я добавлю пятую переменную fkey5, то она д/б = 0 и все последующие, но это не так она также хранит непонятное число схожее с первыми 4-мя

Отправлено: 22:53, 14-02-2008