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

Вниз

Перевод проекта с Delphi 7 в Delphi XE. Проблема с ShortString   Найти похожие ветки 

 
I_D ©   (2011-11-09 12:12) [0]

Добрый день, гуру!
Подскажите, пожалуйста в таком вопросе.
Перевожу проект с Delphi 7 в Delphi XE.
В старом проекте был тип

type
 DataFile = record
   BegCyc: TDate;
   Colday: 0..31;
   NoteCyc: string[255];
 end;

На основание тип создал переменную

FData: file of DataFile;

Пишу в файл с помощью AssignFile

В Delphi 7 все работало как часы.
А вот в  Delphi XE в поле записи NoteCyc все символы, которые выходят за пределы "стандартной символьной таблицы" заменяются на "?"
Подскажите, пожалуйста, какая альтернатива для string[255] что бы юникод поддерживал.
Спасибо.


 
clickmaker ©   (2011-11-09 12:16) [1]

> какая альтернатива для string[255]

string или WideChar[0..254]


 
I_D ©   (2011-11-09 12:48) [2]

спасибо. буду пробовать с WideChar[0..254],
string - не совсем подходит для записи в типизированный текстовый файл нужно указать размер.


 
RTFM   (2011-11-11 07:58) [3]

Можно в String перевести в UTF8 и результат записать в NoteCyc. При чтении - наоборот.

Разумеется, длина строки уменьшится.

Ну или массив WideChar-ов, да. Оптимально.


 
Anatoly Podgoretsky ©   (2011-11-11 10:53) [4]


> RTFM   (11.11.11 07:58) [3]
> Можно в String перевести в UTF8 и результат записать в NoteCyc.
>  При чтении - наоборот.
>
> Разумеется, длина строки уменьшится.

Разумеет длина строки увеличиться!
Кроме того длина строки переменная, а FData: file of DataFile; требует фиксированую длину.

Только array [x..y] of widechar



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

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

Наверх




Память: 0.47 MB
Время: 0.007 c
15-1318709342
Юрий Зотов
2011-10-16 00:09
2012.02.19
ММП 28-го ?


15-1317315646
Юрий Зотов
2011-09-29 21:00
2012.02.19
Слетел винт...


11-1241546268
Sem
2009-05-05 21:57
2012.02.19
Временные библиотеки


2-1320915674
alex-2011h
2011-11-10 13:01
2012.02.19
Секционированный DbGrid


15-1319789522
TUser
2011-10-28 12:12
2012.02.19
Задача: спасти мир (от философов)