Форум: "Основная";
Текущий архив: 2003.06.05;
Скачать: [xml.tar.bz2];
Вниз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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.009 c