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

Para baixo

Baixe o 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");
Rewrite(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.026 c
3-21954
strahov
2001-12-05 15:32
2002.01.08
Кто-нибудь встречался с багом


3-21919
VS
2001-12-04 14:07
2002.01.08
Lendo e corrigindo dados de um banco de dados 6.0 DBF do Visual FoxPro


1-22251
Sonhador
2001-12-17 14:17
2002.01.08
Подскажите начсет TLIST


1-22176
Serg5
2001-12-20 14:57
2002.01.08
Novamente, o problema com o texto: eu exibo Image1.Canvas.TextOut, mas sob o texto em si é um corredor branco. É possível se você não remover (basta colocar as letras), então, pelo menos, deixar o corredor preto.


4-22476
reino
2001-11-02 19:42
2002.01.08
Помогите, UpdateResource не работает с BPL файлами!





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