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) (1)

Здраствуйте! Почему когда данный код записывает информацию в файл то там получается не qqqqqq а какойто глюк всякие вопросики черточки?
procedimiento TForm1.Button3Click (Sender: TObject);
var FileHandle: Integer;
S:string;
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) (1)


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.024 c
1-22191
stalker_boss
2001-12-16 02:50
2002.01.08
sonar


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


1-22229
Hombre de rojo
2001-12-16 14:31
2002.01.08
De nuevo la pregunta está relacionada con RichEdit!


1-22186
ShnurO.K.
2001-12-15 23:05
2002.01.08
Как скрыть свою программу при нажатие Alt+Ctrl+Del?


6-22289
Kirill
2001-10-03 18:33
2002.01.08
Контекстное меню у IE





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