Текущий архив: 2003.01.02;
Скачать: CL | DM;
Вниз
FileRead Найти похожие ветки
← →
Ospa (2002-12-20 13:26) [0]При выделении дочернего узла происходит сл.действие:
открываю файл для записи. Записываю в него имя выделенного дочернего узла. Почему он зааисывает в непонятном виде? Нельзя, чтобы записывались руссские слова,т.е. открываю файл и вижу русски слова а не знаки всякие.
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);
← →
ZrenBy © (2002-12-20 13:29) [1]>>FileWrite(H,stt1,sizeof(integer));
FileWrite(H,stt1[1],sizeof(integer));
← →
sask © (2002-12-20 13:29) [2]А это смотря чем потом просматриваешь.
В файле инфа сохраняется в Win-кодировке.
← →
sask © (2002-12-20 13:37) [3]ну и конечно же:
FileWrite(H,stt1[1],length(stt1));
Страницы: 1 вся ветка
Текущий архив: 2003.01.02;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.123 c
