Casa
Top.Mail.Ru Yandeks.Metrika
Fórum: "Principal";
Arquivo atual: 2002.01.08;
Download: [xml.tar.bz2];

Para baixo

Arquivos e acesso Encontre agências semelhantes


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;
end;

var
f: file of person;

impureza

//skipped

procedure TForm1.Button1Click(Sender : TObject);
começar
AssignFile(f, "c:\sample.db");
{$ I-}
Anexar (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 filial inteira

Fórum: "Principal";
Arquivo atual: 2002.01.08;
Download: [xml.tar.bz2];

em cima









Memória: 0.81 MB
Hora: 0.034 c
1-22228
Nazgul
2001-12-15 14:28
2002.01.08
Como fazer?


1-22085
ProfiUgl
2001-12-19 15:24
2002.01.08
Como ler as opções da linha de comando


3-21897
Maxb
2001-11-27 14:33
2002.01.08
Cache do DBMS


1-22110
Katherine
2001-12-19 18:09
2002.01.08
com lágrimas pedindo ajuda


1-22058
$ Hic0
2001-12-16 11:49
2002.01.08
TTreeView e TListView





afrikaans albanês Arabic armênio azerbaijano basco belarusian Bulgarian catalão Chinês simplificado) Chinês tradicional) croata checo dinamarquês Dutch Inglês estoniano filipino Finnish French
Galego georgiano German grego crioulo haitiano hebraico hindi húngaro islandês Indonesian irlandês Italian Japanese Korean letão lituano macedónio Malay maltês Norwegian
persa polonês Portuguese romeno Russa sérvio Slovak esloveno espanhol swahili sueco tailandês turco ucraniano urdu vietnamita galês ídiche bengali bósnio
cebuano esperanto gujarati hausa hmong igbo javanês kannada khmer lao latino maori marata mongol Nepali punjabi somali tâmil telugu yoruba
zulu
Английский francês Alemão Italiano Португальский russo Espanhol