Casa
Top.Mail.Ru Yandeks.Metrika
Fórum: "Principal";
Arquivo atual: 2002.01.08;
Download: [xml.tar.bz2];

Para baixo

Upload de arquivo! Encontre agências semelhantes


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

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



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

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




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


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



Страницы: 1 filial inteira

Fórum: "Principal";
Arquivo atual: 2002.01.08;
Download: [xml.tar.bz2];

em cima









Memória: 0.81 MB
Hora: 0.03 c
6-22286
Rey
2001-10-08 18:07
2002.01.08
Pessoas !!! Precisa do ICQ!


3-21951
olban
2001-12-05 11:07
2002.01.08
Usando o QuantumGrid


1-22148
Delphimun
2001-12-20 12:10
2002.01.08
Como enviar uma mensagem para o sistema que uma tecla é pressionada?


3-21969
Kozhanov
2001-11-30 18:31
2002.01.08
Parâmetros dos drivers OBDC


1-22240
creepster
2001-12-16 19:20
2002.01.08
Tbutton





afrikaans albanês Arabic armênio azerbaijano basco belarusian Bulgarian catalão Chinês simplificado) Chinês tradicional) croata checo dinamarquês Dutch Inglês estoniano filipino Finnish French
Galego georgiano German grego crioulo haitiano hebraico hindi húngaro islandês Indonesian irlandês Italian Japanese Korean letão lituano macedónio Malay maltês Norwegian
persa polonês Portuguese romeno Russa sérvio Slovak esloveno espanhol swahili sueco tailandês turco ucraniano urdu vietnamita galês ídiche bengali bósnio
cebuano esperanto gujarati hausa hmong igbo javanês kannada khmer lao latino maori marata mongol Nepali punjabi somali tâmil telugu yoruba
zulu
Английский francês Alemão Italiano Португальский russo Espanhol