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]

Pergunta aos MESTRES. Eu comprei o livro "Programação em Object Pascal em Delphi 5"
Um disquete com programas de amostra é vendido com o livro. Verificado - o conteúdo do disquete corresponde às listagens do livro. PERGUNTA - porque o seguinte código (do exemplo) não compila?

// ----------
tipo
pessoa = registro
f_nome: string [20];
l_name: string [20];
endereço: string [50];
idade: byte;
end;

var
f: arquivo de pessoa;

impureza

// pulada

procedimento TForm1.Button1Click (Sender: TObject);
começar
AssignFile (f, "c: \ sample.db");
{$ I-}
Anexar (f);
{$ I +}
se IOResult = 0, então
// pulada

// ---------

Então, na linha Append (f); o compilador jura - eles dizem que os tipos não são
jogo. Embora se você aplicar o comando Reset (f) ou Rewrite {f}
nem uma palavra é falada e tudo funciona. Por que



PVR   (2001-12-20 22:58) [1]

O comando Append funciona apenas com arquivos de texto, você precisa dos comandos SEEK e Write



SergVlad   (2001-12-20 23:05) [2]

Anexar (..) somente para arquivos de texto
f: TextFile;



Страницы: 1 filial inteira

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

em cima





Memória: 0.55 MB
Hora: 0.022 c
3-21947
Obstinado
2001-12-05 13:18
2002.01.08
Recuperando uma lista de índices de uma tabela do Oracle


14-22318
frostbite
2001-10-31 17:11
2002.01.08
Rebobinar


1-22193
T2
2001-12-14 03:17
2002.01.08
DLL


6-22309
Denso
2001-10-10 19:02
2002.01.08
Há um cartão de rede sem passaporte, selado!


7-22450
fsp
2001-09-21 22:32
2002.01.08
Aparafusar programas na bandeja do sistema.





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