Casa
Top.Mail.Ru Yandeks.Metrika
Foro: "Principal";
Archivo actual: 2002.01.08;
Descargar: [xml.tar.bz2];

abajo

Archivos y acceso Encontrar ramas similares


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

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

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

var
f: file of person;

impementation

//skipped

procedure TForm1.Button1Click(Sender : TObject);
comenzar
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;



Páginas: 1 rama entera

Foro: "Principal";
Archivo actual: 2002.01.08;
Descargar: [xml.tar.bz2];

arriba















Memoria: 0.82 MB
Tiempo: 0.03 c
1-22136
Dorixe
2001-12-20 09:40
2002.01.08
Proekt


14-22321
Olgerd
2001-11-01 21:44
2002.01.08
Серьёзный вопрос


1-22068
Andrey21
2001-12-19 10:35
2002.01.08
Solicitud multilingüe


3-21959
Nikolaev Konstantin
2001-12-04 20:54
2002.01.08
Error al activar TTable ???


1-22251
Soñador
2001-12-17 14:17
2002.01.08
Pronta nachset TLIST





africaans albanés Arabic armenio Azerbaiyán vasco Bielorruso Bulgarian Catalán Chino (simplificado) Chino (tradicional) Croata Checo Danés Dutch Inglés Estonia filipina Finnish Francés
gallego georgiano Alemán Griego criollo haitiano hebreo hindi Húngaro islandés Indonesian irlandés Italiano Japonés Korean letón lituano macedonio Malay maltés Noruego
persa polaco Portuguese rumano Ruso Serbio Slovak Esloveno Español swahili Sueco Thai turco ucranio Urdu vietnamita galés yídish bengalí bosnio
cebuano esperanto gujarati hausa hmong igbo javanés kannada khmer lao latín maorí marathi mongol nepali punjabi somalí Tamil telugu yoruba
zulú
Английский Francés Alemán Italiano portugués Русский Español