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));

FileRead Найти похожие ветки