var i:widestring; f:textfile; j:integer; a:[1..100] of char; begin i:='100ㅏdgfgjg'; assignfile(f,'word.txt'); rewrite(f); write(f,chr(255),chr(254)); //创建UNICODE格式的TXT文件 StringToWideChar(i,@a,length(i)+1); for j:=1 to length(i)*2 do write(f,a[i]); closefile(f); end;