Текущий архив: 2003.06.05;
Скачать: CL | DM;

Вниз

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;

---

Страницы: 1 вся ветка

Текущий архив: 2003.06.05;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.028 c