Головна сторінка
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
1-22184
Алігатор
2001-12-21 09:44
2002.01.08
може хто знає?


4-22465
АКВ
2001-11-02 10:44
2002.01.08
як визначити handle вікна над яким знаходиться миша


1-22216
Ghost_Old.
2001-12-16 14:43
2002.01.08
Помогіте..кто знає як отримати завтрашню дату ..


6-22277
prosof
2001-10-02 10:21
2002.01.08
Визначення трафіку кожного кореспондента мережі по IP.


6-22309
дрімучий
2001-10-10 19:02
2002.01.08
Є МЕРЕЖНА КАРТА без паспорта, опломбовані!





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