Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.01.08;
Скачать: CL | DM;

Вниз

Файлы и доступ к ним   Найти похожие ветки 

 
Kreo   (2001-12-20 21:16) [0]

Вопрос МАСТЕРАМ. Купил книгу "программирование на Object Pascal в Delphi 5"
С книгой продается дискета с примерами программ. Проверял - содержимое дискеты соответствует листингам из книги. ВОПРОС - почему следующий код (из примера) не компилируется?

//----------
type
person = record
f_name:string[20];
l_name:string[20];
address:string[50];
age:byte;
end;

var
f: file of person;

impementation

//skipped

procedure TForm1.Button1Click(Sender : TObject);
begin
AssignFile(f, "c:\sample.db");
{$I-}
Append(f);
{$I+}
if IOResult = 0 then
// skipped

//---------

Так вот, на строчку Append(f); компилятор ругается - дескать типы не
соответствуют. Хотя если применить команду Reset(f) или Rewrite{f}
ни го ворит ни слова и все работает. Почему


 
PVR ©   (2001-12-20 22:58) [1]

комманда Append только с текстовыми файлами работает тебе нужна комманды SEEK и Write


 
SergVlad ©   (2001-12-20 23:05) [2]

Append(..) только для текстовых файлов
f: TextFile;



Страницы: 1 вся ветка

Текущий архив: 2002.01.08;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.011 c
3-21948
andre_polt
2001-12-04 16:22
2002.01.08
DB


1-22008
Alligator
2001-12-17 11:46
2002.01.08
HELP!!!


4-22473
amamed_3071
2001-11-02 13:46
2002.01.08
Epson Printer commands


3-21906
Юрий Жуков
2001-11-21 09:40
2002.01.08
Oracle ADO vs DOA - fido7.ru.delphi.db


6-22279
Денис
2001-07-28 22:08
2002.01.08
NMSMTP через прокси