Паскаль. Проблема с типизированными файлами:(

[Женька Good]

Есть задание, работа с базой данных.
Я создал базу данных в TXT файле. И теперь необходимо её обработать.
1-й вид программы я сделал, там где нужно указывать расширение файла

assign(f1,'c:\base.txt');Reset(f1);

2-й не могу сделать, не получается... во-втором нужно не указывать данное расширение

Assign(f1,'c:\base'); reset(f1)

Перед

Assign(f1,'c:\base'); reset(f1)

пишет, что файл не найден. Вот то, что у меня получилось для второй проги:

Program Xme1ez_no_type;
Uses crt;
type pechenki=record
     name:string[12];
     c_zakup,c_prod:real;
     Zakup, Prod: Integer;
     end;
     myfile=file of pechenki;
Var f1,f2:myfile;
    c1:pechenki;
    Na_zakup, Na_prodaz:real;
Begin
    CLRSCR;
    Na_zakup:=0;
    Na_prodaz:=0;
    Assign(f1,'c:\base'); reset(f1);
    assign(f2,'c:\rez');rewrite(f2);
    While not eof(f1) do
    with c1 do
     begin
     read(f1,c1);
      Write(c1.name,c1.c_zakup, c1.c_prod,c1.zakup,c1.prod);
      Write(c1.name:12, c1.c_zakup, c1.c_prod, c1.zakup, c1.prod);
      Na_zakup:=c_zakup*zakup;
      Na_prodaz:=c_prod*prod;
        Write(na_zakup:0:1);
        Write(na_prodaz:0:1);
     end;
readln;
Close(f1);
Close(f2);

Помогите плз!

[RinatV]

Я создал базу данных в TXT файле.

в этом проблема, я так понимаю база создана блокнотом

попробуй открыть базу base.txt в блокноте и сохранить по д именем base. (с точкой но без расширения)
при этом нужно выбрать тип файлов - Все файлы

еще базу можно писать или переписать прямо на паскале, там тоже нужно указать имя base.

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

Так что нужно еще озвучить точное задание чтобы тебя поняли, а может и сама поймешь что тебе все таки надо сделать.

[Serge_Bliznykov]

т.к. с блокнота сложно создать типизированный файл,

не сложно, а НЕВОЗМОЖНО!

Сообщение от Женька Good

Assign(f1,'c:\base'); reset(f1)
пишет, что файл не найден.

я думаю, что ему можно верить.
Значит у Вас реально НЕТ такого файла.
Создайте его. Тогда он будет.
В чём у Вас проблема?


p.s. разумеется, создавать этот файл нужно ПРОГРАММНО

[Женька Good]

Значит у Вас реально НЕТ такого файла.
Создайте его. Тогда он будет.

Неужели вы думаете, что я бы писал здесь если бы у мя не был "создан" файл, если бы всё было так просто!

[danekne]

http://programmersforum.ru/showthread.php?t=48513

[Serge_Bliznykov]

Неужели вы думаете, что я бы писал здесь если бы у мя не был "создан" файл, если бы всё было так просто!

ну так запакуйте исходный текст и положите в этот же архив этот ваш файл. Выложите архив на форум.
тогда можно будет о чём то говорить.
А гадать, почему программа "не видит" Ваш файл можно до Пасхи!


А может файл вообще лежит в другом каталоге..