Форум: "Основная";
Текущий архив: 2002.01.08;
Скачать: [xml.tar.bz2];
Вниз
Загрузка файла! Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.54 MB
Время: 0.027 c
