Unicode -> String

← →
Seldon (2003-05-24 22:36) [0]

Здрасьте!
Как прочитать в String текст из Unicode файла. Известно, что в нём только символы из ASCII набора.

← →
jack128 © (2003-05-25 00:42) [1]

упрощенно
var f : file;
filename : string;
w : WideString;
begin
if not od.Execute then exit;
filename := od.filename;
AssignFile(f,filename);
reset(f,2);
seek(f,1);// первые 2 байта - служебные!
setlength(w,filesize(f) - 1);
blockread(f,w[1],Length(w));
memo1.lines.text := w;
CloseFile(f);
end;

Unicode -> String Найти похожие ветки