[vligm]

Данные сохраню в текстовый файл с целью отладки. Но у меня сохранение кириллических символов происходит в виде кодов, а хочется именно символы. Пользуюсь седьмым русифицированным 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: Пользуемся тегами для оформления кода!

Что я делаю неправильно или что не так настроено?

[Страдалецъ]

Тогда придется самому переписать метод WriteComponent.

[roamer]

или написать свой конвертор...

[Doser]

Можно попробовать конвертировать в UTF8 при записи. Я иногда так делал.