VPF::Естественное слияние - Форум программистов

Азат

Дата 22.11.2005, 20:55 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Здравтуйте. Проблема следующая, прога работает правильно, но в файлы, где хранятся и используются данные, когда просматриваешь их, всякая хрень. мне же надо цифры.

Код


program Projectwork;
{$APPTYPE CONSOLE}
uses
  SysUtils;

const
     afile='f0.bin';
type
    item=record
    key:integer;
end;
tfile=file of item;
var
   z     : item;                             {çàïèñè}
   xx: longint;                                         {èíäåêñ ìàññèâà}
   num   : integer;
   sel   : char;                                           {âûáîð ïóíêòà ìåíþ}
procedure menu; forward;

procedure filegen;
{ãåíåðàòîð áèíàðíûõ ôàéëîâ}
var
   f0:tfile;
   z:item;
   i:integer;
begin
writeln ('Generacia faila');
assign (f0,afile);
write ('Razamernost of tfile: ');
readln (num);
rewrite (f0);
randomize;
i:=0;
while i<=num do
begin
z.key:=random(32000);
write (f0,z);
inc(i);
end;
close (f0);
writeln ('Sgenerirovan sluchainyi file iz ',num,' elementov.');
read;
end;

Это сообщение отредактировал(а) Snowy - 22.11.2005, 22:38

Fedor

Дата 22.11.2005, 21:49 (ссылка)

(нет голосов)

Загрузка ...

Днепрянин

Профиль
Группа: Участник
Сообщений: 2090
Регистрация: 8.2.2003
Где: Великий

Репутация: нет
Всего: 32

Цитата

когда просматриваешь их, всякая хрень. мне же надо цифры.

дело в том, что файлы - типизированные. Надо видеть содержимое - делай текстовыми.

--------------------

Мы - Днепряне. Мы всех сильней.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »