Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.08;
Скачать: [xml.tar.bz2];




Вниз

Файлы и доступ к ним 


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;




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.08;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.023 c
1-22013           Curious               2001-12-17 12:53  2002.01.08  
Запуск EXE из текущей программы.


1-22119           Socol                 2001-12-15 10:45  2002.01.08  
Помогите по двум вопросам!


6-22303           maxi                  2001-10-11 18:03  2002.01.08  
клиент DCOM не видит сервер DCOM на разных машинах.


3-21917           Termik                2001-12-04 11:43  2002.01.08  
Обращение к таблице по имени, записнному в переменной


1-22157           Flagman               2001-12-20 13:55  2002.01.08  
Найти два возврата каретки подряд.