Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.01.08;
Скачать: CL | DM;

Вниз

Загрузка файла!   Найти похожие ветки 

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

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

Текущий архив: 2002.01.08;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.013 c
1-22047
handra
2001-12-17 13:12
2002.01.08
Создание справки


6-22268
Voha
2001-10-05 13:25
2002.01.08
В компоненте WebBrowser нет параметра referer


3-21974
Dup
2001-12-06 10:30
2002.01.08
TQRExpr


14-22390
Ежик
2001-11-08 12:54
2002.01.08
Слушай Мерлин, ты когда нибудь спишь? В смысле, отдыхаешь?


7-22419
Пастор
2001-09-21 10:31
2002.01.08
У меня Celeron 800 стоит ли его апгрейтить на Pentium III 800 ?