Проблема с кодировкой текстовой информации в Delphi7

[Человек Панда]

Здравствуйте.Написал программу по решению нескольких математических задач.Решил проверить её работу у друга,и вот те на:большая часть текстовой информации превратилась в непонятные символы.Понимаю,что пробелы из-за кодировки,но не знаю,как их решить.Программа написана на Delphi 7 в VCL режиме.Как исправить это недоразумение?

[evg_m]

У друга (для WinXP) настроить Панель управления Языки и региональные параметры

[Человек Панда]

Все параметры и так были уже установлены.Дело в том,что у меня частями нормально производит,частями неочень

[Сtrl]

Простое, разумное и удобное решение - спрыгнуть с тонущего корабля Delphi 7 и сесть на новый и блестящий - Delphi XE. Там поддерживается Unicode по умолчанию, так что о кодировках можно будет не задумываться.

[Человек Панда]

Программа уже практически готова,капитуляция невозможна

[veniside]

> частями нормально производит,частями неочень

фонты разные? в чём различие между этими частями?

[rubius2008]

воспользуйся этой функцией

function StrAnsiToOem(const S: AnsiString): AnsiString;
begin
  SetLength(Result, Length(S));
  AnsiToOemBuff(@S[1], @Result[1], Length(S));
end;

пример

writeln(StrAnsiToOem('Вывод русского текста'));

[Сtrl]

Сообщение от Человек Панда

Программа уже практически готова,капитуляция невозможна

Новые версии понимают код старых (но не наоборот). Вроде.

[Serge_Bliznykov]

Новые версии понимают код старых (но не наоборот). Вроде.

да щас... Понимать они то понимают, но если написан код для работы со String, то в версиях Delphi < 2009 - string - это AnsiString (то бишь однобайтовая строка), а в версиях Delphi >=2009 - string - это уже Unicode (то бишь двухбайтовая строка).
соответственно, код, который написан без учёта того, что один символ строки может быть не один байт - "нервно курит в сторонке"... причём, в 99% случаев, ошибок при этом не будет. Просто программа будет неправильно (глючно) работать и всё...


p.s. если не ошибаюсь, на блоге GunSmoker была статеечка о том, как наиболее быстро и безболезнено переходить на Unicode версию Delphi.

[Человек Панда]

Все решилось без потерь.Использовал widestring,встроенный в паскале для работы с Unicode.Там через caption все поля программно поменял.Все работает верно.