Տուն
Top.Mail.Ru Moscow
Ֆորում: «Գլխավոր»;
Ընթացիկ արխիվը `2002.01.08;
Բեռնել: [xml.tar.bz2];

Down

Ֆայլեր և դրանց հասանելիություն Գտնել նմանատիպ մասնաճյուղեր


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;
վերջը.

էր
f: file of person;

impementation

//skipped

procedure TForm1.Button1Click(Sender : TObject);
սկսել
AssignFile(f, "c:\sample.db");
{$ I-}
Հավելում (f);
{$ I +}
եթե IOResult = 0 ապա
// 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(..) только для текстовых файлов
զ: TextFile;



Էջեր: 1 ամբողջ ճյուղը

Ֆորում: «Գլխավոր»;
Ընթացիկ արխիվը `2002.01.08;
Բեռնել: [xml.tar.bz2];

Up









Հիշողություն `0.55 ՄԲ
Ժամանակը `0.041 գ
4-22470
Շեւչենկո Սերգեյ
2001-11-02 13:32
2002.01.08
Իրականացում


14-22359
Sergey1- ը
2001-11-07 15:36
2002.01.08
Cp1251


1-22224
Օլեգ Գաշեւը
2001-12-15 11:14
2002.01.08
Տպելիս պատկերի չափի հետ կապված խնդիրներ են


3-21968
բալանսը
2001-12-05 11:20
2002.01.08
QuantumGrid- ը


1-22040
գռփում
2001-12-18 18:18
2002.01.08
թեստի հավասարեցում TrichEdit- ում





afrikaans ալբանական արաբական հայերեն ադրբեջանական Բասկերի Բելառուսի Բուլղարիայի catalan Չինարեն (պարզեցված) Չինարեն (ավանդական) Խորվաթիայի չեխ դանիերեն հոլանդական Անգլերեն
Էստոնիայի filipino ֆիններեն ֆրանսերեն
galician վրացական գերմանական հունարեն haitian Creole եբրայերեն հինդի հունգարերեն icelandic հայերեն իռլանդական իտալական ճապոնացի Կորեայի Լատվիայի Լիտվայի մակեդոներեն Մալայերեն մալթերեն նորվեգական
պարսկական Լեհաստանի պորտուգալացի ռումինական ռուսական սերբերեն Սլովակիայի Սլովենիայի իսպաներեն սուահիլի շվեդերեն թայերեն թուրքական ուկրաինական ուրդու վիետնամերեն ուելսերեն հայերեն bengali բոսնիերեն
Cebuano Esperanto գուջարաթի հաուսա Hmong Igbo ճավաերեն kannada Khmer Lao լատիներեն մաորի մարաթի մոնղոլական նեպալերեն Punjabi Somali tamil telugu յորուբա
զուլուսերեն
Անգլերեն Французский Немецкий Итальянский Португальский Русский Испанский