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]

Pregunta WIZARDS. Compré el libro "Programación en Object Pascal en Delphi 5"
Un disquete con ejemplos de programas se vende con el libro. Comprobado: el contenido del disquete coincide con las listas del libro. PREGUNTA: ¿por qué no se compila el siguiente código (de un ejemplo)?

// ----------
tipo
persona = registro
f_name: string [20];
l_name: cadena [20];
dirección: cadena [50];
edad: byte;
fin;

var
f: archivo de persona;

empalme

// omitido

procedimiento TForm1.Button1Click (Sender: TObject);
comenzar
AssignFile (f, "c: \ sample.db");
{$ I-}
Anexar (f);
{$ I +}
si IOResult = 0 entonces
// omitido

// ---------

Así, en la línea Anexar (f); El compilador jura - dicen que los tipos no son
partido Aunque si usa el comando Restablecer (f) o Reescribir {f}
ni habla una palabra y todo funciona. Por que



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

El comando Anexar con archivos de texto solo funciona. Necesita los comandos SEEK y Write.



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

Agregar (..) solo para archivos de texto
f: TextFile;



Páginas: 1 rama entera

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

arriba









Memoria: 0.55 MB
Tiempo: 0.021 c
1-22212
T2
2001-12-14 03:13
2002.01.08
MMTOOLS CRACK


1-22089
AYUDE A PLZ
2001-12-15 18:22
2002.01.08
Dll s


1-22029
neo_
2001-12-18 12:33
2002.01.08
matar a hilo


14-22324
Yuraz
2001-11-04 11:37
2002.01.08
Geografía por IP


6-22285
Vital
2001-10-09 12:34
2002.01.08
Problema de elección





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 Italiana 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