Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.004 c