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]

Здраствуйте! Почему когда данный код записывает информацию в файл то там получается не qqqqqq а какойто глюк всякие вопросики черточки?
procedimiento TForm1.Button3Click (Sender: TObject);
var FileHandle: Integer;
S: cuerda;
comenzar
S:="qqqqqq";
FileHandle:=FileCreate("C:\q.txt");
FileWrite(Filehandle,S,sizeof(S));
FileClose(FileHandle);
fin;



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

потому что string - указатель, Sizeof=4. Делай,например, так.
var f:textfile;
s: cuerda;
comenzar
S:="qqqqqq";
AssignFile(f,"C:\q.txt");
Rewrite(f);
Writeln(F,S);
Cerrar archivo (F);




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


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



Páginas: 1 rama entera

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

arriba









Memoria: 0.81 MB
Tiempo: 0.98 c
7-22431
Pachá
2001-09-21 15:58
2002.01.08
Cómo quitar de la tarjeta de sonido, la forma de onda.


14-22382
panov
2001-11-08 18:54
2002.01.08
continuación http://delphi.mastak.ru/cgi-bin/forum.pl?look=1&id=1005233643&n=3


4-22494
Garryfv
2001-11-05 12:35
2002.01.08
Impresión gráfica difícil


1-22150
Dimich
2001-12-20 13:22
2002.01.08
Cómo desplazarse en el panel


4-22486
Pantero
2001-11-03 23:59
2002.01.08
Handle





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