работа с файлами

[smb.]

прошлую тему удалили, извиняюсь, не в том разделе разместила. дублирую, надеюсь, теперь все верно...

задача.
создать модуль для работы с типом TMType=Longint
процедуры и ф-ции осуществляют:
открытие файла и заполнение случайным образом
считывание из файла в переменную данного типа
нахождение в файле позиции с нужными данными
закрытие файла

тупить начинаю прямо с начала... заполнять "случайным образом" видимо надо с помощью ф-ции random, но ведь она берет числа из типа word, а он уже, чем longint.. и вообще с нуля начинается.
считывание-закрытие-открытие понятно.
и насчет нахождения позиции с данными.. единственное, что приходит в голову - pos...

помогите, пожалуйста, разобраться. спасибо.

[Stilet]

а он уже, чем longint

Ну и что? Все равно присваивай

assign(f,'file');rewrite(f);
for i:=0 to 100 do write(f,random(1000));
close(f);

единственное, что приходит в голову - pos...

Неа seek поможет

[smb.]

спасибо.
про random. он запишет в файл 100 рэндомных чисел из интервала 0..1000. а чтобы он записывал числа из Longint'а (не помню уже какой там интервал, но шире)? отрицательные например?

[Stilet]

var l:LongInt;f:file of longint;
assign(f,'file');rewrite(f);
for i:=0 to 100 do begin
 l:=10000-random(20000);
 write(f,l);
end;
close(f);

не помню уже какой там интервал, но шире

В хелп посмотри.

Соответственно читать:

var l:LongInt;f:file of longint;
assign(f,'file');reset(f);
while not eof(f) begin
 read(f,l);
 if l= тому то then ....
end;
close(f);

[smb.]

ну random же вроде все равно не весь тип Longint охватывает.
-2147483648..2147483647.
а тут получится random из -10000..10000