![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
FileRead [D6, Win95/98]
Ospa © (2002-12-20 13:26:00)При выделении дочернего узла происходит сл.действие:
открываю файл для записи. Записываю в него имя выделенного дочернего узла. Почему он зааисывает в непонятном виде? Нельзя, чтобы записывались руссские слова,т.е. открываю файл и вижу русски слова а не знаки всякие.
procedure TFName.N5Click(Sender: TObject);
var stt,stt1:string;
h:integer;
begin
H:=FileOpen("rus.txt",fmOpenReadWrite);
stt1:=TreeView1.selected.text;
begin
FileWrite(H,stt1,sizeof(integer));
end;
FileClose(H);
sask (2002-12-20 13:37:00) [1]ну и конечно же:
FileWrite(H,stt1[1],length(stt1));
ZrenBy (2002-12-20 13:29:00) [2]>>FileWrite(H,stt1,sizeof(integer));
FileWrite(H,stt1[1],sizeof(integer));
sask (2002-12-20 13:29:00) [3]А это смотря чем потом просматриваешь.
В файле инфа сохраняется в Win-кодировке.