Casa
Top.Mail.Ru Yandeks.Metrika
Foro: "Principal";
Archivo actual: 2002.01.08;
Descargar: [xml.tar.bz2];

abajo

Descargar archivo! Encontrar ramas similares


Socol   (2001-12-18 08:54) [0]

Hola ¿Por qué cuando este código escribe información en un archivo, resulta que no es qqqqqq, sino algún tipo de problema técnico?
procedimiento TForm1.Button3Click (Sender: TObject);
var FileHandle: Integer;
S: cuerda;
comenzar
S: = "qqqqqq";
FileHandle: = FileCreate ("C: \ q.txt");
FileWrite (File Handle, S, sizeof (S));
FileClose (FileHandle);
fin;



MBo   (2001-12-18 09:00) [1]

porque la cadena es un puntero, Sizeof = 4. Hacer, por ejemplo, así.
var f: archivo de texto;
s: cuerda;
comenzar
S: = "qqqqqq";
AssignFile (f, "C: \ q.txt");
Reescribir (f);
Escritura (F, S);
Cerrar archivo (F);




Mick   (2001-12-18 09:29) [2]

FileWrite (FileHandle, S [1], longitud (S))



Páginas: 1 rama entera

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

arriba





Memoria: 0.54 MB
Tiempo: 0.021 c
1-22004
KhLexa
2001-12-17 17:57
2002.01.08
Glitches


1-22132
leviatán
2001-12-19 19:38
2002.01.08
Ocultar forma


14-22329
Dima-k17
2001-11-03 15:12
2002.01.08
Delphi se acabaron los tiempos?


1-22129
Aleksandr
2001-12-19 16:04
2002.01.08
¿Cómo eliminar el parpadeo de tu barra de desplazamiento?


3-21980
Aleksandr
2001-12-05 13:26
2002.01.08
¿Cómo crear una cadena de conexión TADOConnection?





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