|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
сохранение данных в текстовый файл
Данные сохраню в текстовый файл с целью отладки. Но у меня сохранение кириллических символов происходит в виде кодов, а хочется именно символы. Пользуюсь седьмым русифицированным Delphi, операционка - WinXP sp3.
Например, сохраняется: Код:
object TDocumJob Products = #1046#1080#1083#1072' 0,35 '#1080#1079#1086#1083'.'#1050#1052#1055#1042' '#1085#1072#1087#1088#1072#1074#1083'.' TableSegments = <> TestingVoltage = 0 MaxBreakdownIsolation = 0 MaxWindingSpeed = 0 end Код:
object TDocumJob Products = 'Жила 0,35 изол.КМПВ направл.' TableSegments = <> TestingVoltage = 0 MaxBreakdownIsolation = 0 MaxWindingSpeed = 0 end Код:
procedure SaveComponentToTextFile(Component: TComponent; const FileName: string); var ms: TMemoryStream; fs: TFileStream; begin fs := TFileStream.Create(FileName, fmCreate or fmOpenWrite); ms := TMemoryStream.Create; try ms.WriteComponent(Component); ms.position := 0; ObjectBinaryToText(ms, fs); finally ms.Free; fs.free; end; end; Что я делаю неправильно или что не так настроено? Последний раз редактировалось Admin, 22.11.2010 в 15:41. |
#2
|
||||
|
||||
Тогда придется самому переписать метод WriteComponent.
Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |
#3
|
|||
|
|||
или написать свой конвертор...
|
#4
|
|||
|
|||
UTF8
Можно попробовать конвертировать в UTF8 при записи. Я иногда так делал.
|