casa
Top.Mail.Ru Yandeks.Metrika
Forum: "Principale";
Archivio attuale: 2002.01.08;
Scarica: [xml.tar.bz2];

giù

File e accesso Trova rami simili


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

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

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

var
f: file of person;

impementation

//skipped

procedura TForm1.Button1Click (Sender: TObject);
iniziare
AssignFile(f, "c:\sample.db");
{$ I-}
Append (f);
{$ I +}
se IOResult = 0 allora
// 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;



Pagine: 1 tutto il ramo

Forum: "Principale";
Archivio attuale: 2002.01.08;
Scarica: [xml.tar.bz2];

al piano di sopra









Memoria: 0.81 MB
Ora: 0.03 c
1-22026
Romualds stashans
2001-12-18 11:07
2002.01.08
Come può Delphi eseguire * .exe con ....


1-22159
Phisio
2001-12-19 22:56
2002.01.08
Come creare una nuova struttura


1-22145
MARcoDEN
2001-12-15 17:42
2002.01.08
Pulsante personalizzato


1-22179
Ikar
2001-12-21 09:10
2002.01.08
Come eseguire iterare i nodi radice in TTreeView?


6-22304
sedoy
2001-10-11 14:09
2002.01.08
server client su Internet tramite un proxy





afrikaans albanese Arabic armeno Azero basco bielorusso Bulgarian catalano Cinese (semplificato) Cinese (tradizionale) croato Ceco danese Dutch Inglese estone filippina Finnish Francese
galiziano georgiano Tedesco greco Creolo haitiano ebraico hindi ungherese islandese Indonesian irlandese Italiano Giapponese Korean lettone lituano macedone Malay maltese Norwegian
persiano polacco Portoghese rumeno Russian serbo Slovak sloveno Spagnolo swahili Swedish Thai turco ucraino Urdu vietnamita gallese yiddish bengalese bosniaco
Cebuano esperanto Gujarati Hausa Hmong Igbo giavanese kannada khmer lao latino maori marathi mongolo nepali punjabi somalo tamil telugu Yoruba
zulù
Английский Francese tedesco italiano portoghese russo spagnolo