Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.11.27;
Скачать: CL | DM;

Вниз

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

 
race1 ©   (2003-11-16 17:41) [0]

попалася мне такой кусок ф-ции загрузки unicode строки из файла:

var
i, StringSize: Integer;
FieldData: array [1..WMA_MAX_STRING_SIZE * 2] of Byte;
str: string;
ch: WideChar;
begin
{ Read field data and convert to Unicode string }
str := "";
Result := "";
StringSize := DataSize div 2; // ??? unicode
if StringSize > WMA_MAX_STRING_SIZE then
StringSize := WMA_MAX_STRING_SIZE;
Source.ReadBuffer(FieldData, StringSize * 2);
Source.Seek(DataSize - StringSize * 2, soFromCurrent);

for i := 1 to StringSize do
begin
ch := WideChar(FieldData[i * 2 - 1] + (FieldData[i * 2] shl 8));
if ch <> #0 then
str := str + ch;
end;

Result := str;

как бы мне таким же способом записать в файл unicode строку, что бы эта ф-ция такой файл прочитала?


 
Ломброзо ©   (2003-11-16 18:10) [1]

var F: File of WideChar


 
race1 ©   (2003-11-16 18:11) [2]

всё это дело пишеться в стрим, а не в отдельный юникодный файл


 
Ломброзо ©   (2003-11-16 18:24) [3]

какая разница? стрим-поток-массив? кучка байт, если абстрактно. Главное ведь - что? Дадададад, приньципъ! Напейшшите наследника от TMemoryStream/TFileStream, который будет не по одному байту, а по два в себя читать-пейсать.


 
race1 ©   (2003-11-17 15:23) [4]

ха! тут фишка такая есть.
ch := WideChar(FieldData[i * 2 - 1] + (FieldData[i * 2] shl 8));

эквивалентно
ch := WideChar(FieldData[i * 2 - 1] + 0));

вобщем, пишем widechar, а после него 0, widechar-0 и т.д. :)



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

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

Наверх




Память: 0.47 MB
Время: 0.033 c
3-89702
phan
2003-11-10 15:58
2003.11.27
Сохранить картинку в поле MEMO


14-90078
Думкин
2003-11-05 05:14
2003.11.27
С днем рождения! 5 ноября.


1-89875
Dmitriy M. Volkov
2003-11-16 00:10
2003.11.27
FindFirst, FindNext error codes


4-90166
acsoft
2003-08-18 08:02
2003.11.27
Как нарисовать кнопку на форме при помощи API?


3-89740
Ru
2003-11-07 13:01
2003.11.27
А у вас такое бывало?