casa

Forum: "Principale";
Archivio attuale: 2002.01.08;
Scarica: [xml.tar.bz2];
giù

Загрузка файла! Trova rami simili


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

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



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

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



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


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




Pagine: 1 tutto il ramo

Forum: "Principale";
Archivio attuale: 2002.01.08;
Scarica: [xml.tar.bz2];

al piano di sopra

Top.Mail.Ru Yandeks.Metrika













Memoria: 0.77 MB
Ora: 0.035 c
3-21950
Eremita
XNUMX-XNUMX-XNUMX XNUMX:XNUMX
2002.01.08
Неявно стартуемые транзакции


6-22281
Verona
XNUMX-XNUMX-XNUMX XNUMX:XNUMX
2002.01.08
Отправка сообщений на e-mail


1-22059
Leo ^ Sole
XNUMX-XNUMX-XNUMX XNUMX:XNUMX
2002.01.08
Chi ha lavorato


1-22110
Katerina
XNUMX-XNUMX-XNUMX XNUMX:XNUMX
2002.01.08
in lacrime chiedere aiuto


3-21911
Jaya!
XNUMX-XNUMX-XNUMX XNUMX:XNUMX
2002.01.08
Глюки в ВДЕ





afrikaans albanese Arabic armeno Azero basco bielorusso Bulgarian catalano Cinese (semplificato) Cinese (tradizionale) croato Ceco danese Dutch Inglese estone filippina Finnish Francese
galiziano georgiano Tedesco greco Creolo haitiano ebraico hindi ungherese islandese Indonesian irlandese Italiano Giapponese Korean lettone lituano macedone Malay maltese Norwegian
persiano polacco Portoghese rumeno Russian serbo Slovak sloveno Spagnolo swahili Swedish Thai turco ucraino Urdu vietnamita gallese yiddish bengalese bosniaco
Cebuano esperanto Gujarati Hausa Hmong Igbo giavanese kannada khmer lao latino maori marathi mongolo nepali punjabi somalo tamil telugu Yoruba
zulù
Английский Francese tedesco italiano portoghese russo spagnolo