Головна сторінка
Top.Mail.Ru Яндекс.Метрика
Форум: "Основна";
Поточний архів: 2002.01.08;
Завантажити: [xml.tar.bz2];

Вниз

Файли і доступ до них Знайти схожі гілки


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

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

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

було
f: file of person;

impementation

//skipped

procedure TForm1.Button1Click(Sender : TObject);
починати
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;
Завантажити: [xml.tar.bz2];

наверх









Пам'ять: 0.55 MB
Час: 0.022 c
14-22391
Serg5
2001-11-10 10:29
2002.01.08
Кому не лінь, зайдіть на http://forum.ru-board.com/, він правда висить, або IP фільтрація, мене не пускають.


3-21987
добре
2001-12-06 08:44
2002.01.08
RxLib


4-22455
Mamed
2001-10-31 10:13
2002.01.08
Активізувати вікно іншої програми


1-22118
vlv
2001-12-19 21:59
2002.01.08
Компоненти


1-22207
Delphimun
2001-12-15 10:00
2002.01.08
Як вкомпільовані кілька файлів в один exe





африкаанс албанський арабська вірменин азербайджанець баскський білоруський болгарська каталонський Китайська (спрощене письмо) Китайський традиційний) хорватський чеська данську мову нідерландський Ukranian естонець Філіппінська фінську мову французький
галісійська грузинський німецький грецький гаїтянський креольський давньоєврейську хінді угорський ісландський індонезієць ірландський італійський японський корейський латиська литовець македонець малайський мальтійський норвежець
перс полірування португальська румунський російська сербський словацький словенський іспанська суахілі шведську мову тайський турецька український урду в'єтнамський валлійський ідиш бенгальський боснійський
кебуано есперанто гуджараті хауса хмонг ігбо яванський каннада кхмерская Лао латинь маорі маратхі монгольський непальська панджабі сомалійський тамільська телугу йоруба
зулуський
Англійська Французький Німецький Італійський Португальська Русский Іспанська