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.02 c
3-21923
Jogador de boliche
2001-11-30 02:16
2002.01.08
Uma questão abstrata sobre otimização.


3-21966
Z.G.
2001-12-03 12:42
2002.01.08
POR QUE TODAS AS MINHAS PERGUNTAS SÃO RESPONDIDAS Tenho que repetir-me Como pesquisar em um campo Tipo: escrito Tetos e eu preciso encontrar


1-22158
Praco
2001-12-20 16:29
2002.01.08
TCustomGrid e todos os seus descendentes ...


1-22080
Delphimun
2001-12-18 17:11
2002.01.08
Como carregar um cursor de um recurso e depois salvá-lo no disco?


7-22436
Serg2
2001-09-26 18:23
2002.01.08
Minimize todas as janelas





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