maison

Forum: "Main";
Archive actuelle: 2002.01.08;
Télécharger: [xml.tar.bz2];
vers le bas

Télécharger le fichier! Trouver des branches similaires


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

Здраствуйте! Почему когда данный код записывает информацию в файл то там получается не qqqqqq а какойто глюк всякие вопросики черточки?
procédure TForm1.Button3Click (Sender: TObject);
var FileHandle: Integer;
S:string;
commencer
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: chaîne;
commencer
S:="qqqqqq";
AssignFile(f,"C:\q.txt");
Réécrire (f);
Writeln(F,S);
CloseFile (F);



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


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




Pages: 1 branche entière

Forum: "Main";
Archive actuelle: 2002.01.08;
Télécharger: [xml.tar.bz2];

à l'étage

Top.Mail.Ru Yandeks.Metrika













Mémoire: 0.8 MB
Heure: 0.025 c
1-22165
saisir
2001-12-20 20:18
2002.01.08
créer et placer un logo sur le formulaire


14-22337
Alexandr
2001-11-05 13:20
2002.01.08
Print Server DP-101(D-Link) и печать из-под DOS


6-22270
Ajax
2001-09-15 10:15
2002.01.08
У меня тут возникло 3 вопроса про почту.


4-22455
Mamed
2001-10-31 10:13
2002.01.08
Активизировать окно другой программы


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





afrikaans albanais Arabic arménien azerbaïdjanais basque Biélorusse Bulgare catalan Chinois simplifié) Chinois (traditionnel) croate Tchèque Danois Néerlandais English estonien Filipino Finlandais Français
galicien géorgien Allemand Grecque Créole haïtien hébreu Hindi Hongrois Islandais Indonesian irlandais Italien Japonais Coréen letton lituanien macédonien Malay maltais Norvégien
persan Polonais Portugais roumain Russe serbe Slovaque Slovène Espagnol Swahili Suédois Thai turc ukrainien Urdu vietnamien gallois yiddish bengali bosniaque
Cebuano espéranto gujarati Hause hmong Igbo Javanais Kannada Khmer lao latin maori Marathi mongol népalais punjabi somali tamil telugu yoruba
zoulou
Английский Français Allemand Italien Португальский Русский Espagnol