Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 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))




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.08;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.71 MB
Время: 0.059 c
3-21966           З.Г.                  2001-12-03 12:42  2002.01.08  
ПОЧЕМУ ТО ПРОПАЛИ ВСЕ МОИ ВОПРОСЫ. Придеться повториться Как в поле осуществить поиск Типа: написано Потолки а мне надо найти


1-22114           Aleksandr             2001-12-19 19:28  2002.01.08  
Как собрать цвет из номера и яркости?


1-22136           Dorixe                2001-12-20 09:40  2002.01.08  
Proekt


1-22062           Alexander             2001-12-19 00:17  2002.01.08  
Как мне к определённой (TDateTime) дате прибавить N дней?


1-22051           kay                   2001-12-18 22:22  2002.01.08  
RichEdit