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.81 MB
Tiempo: 0.099 c
3-21916
SVS
2001-12-03 12:08
2002.01.08
InterBase


1-22074
Bb
2001-12-17 21:28
2002.01.08
AYUDA !!!!


3-21964
Nickolaus
2001-12-05 22:09
2002.01.08
Con el error BatchMove.batUpdate.


3-21900
vano
2001-12-07 11:13
2002.01.08
TString y String


3-21944
MVova
2001-12-03 16:50
2002.01.08
¿Cómo encontrar la ruta a los archivos?





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