Моя консольная программа отображает русский текст иероглифами(+)

← →
Виноградов Алексей (2004-03-31 14:00) [0]

Русский текст, выводимый моей консольной программой (на Делфи) отображается иероглифами. Как это пофиксить - кто подскажет ?

← →
KapitanSerg © (2004-03-31 14:03) [1]

Запусти DOS-руссификатор, типа FreeRus!

← →
MBo © (2004-03-31 14:03) [2]

s:="фыва пролдж";
CharToOemBuff(PChar(s),Pchar(s), Length(s));
Writeln(s);

← →
Игорь Шевченко © (2004-03-31 14:08) [3]

MBo © (31.03.04 14:03)

Access Violation in user32 гарантирован

← →
Игорь Шевченко © (2004-03-31 14:10) [4]

function StrToOem(const S: string): string;
begin
SetLength(Result, Length(S));
if Length(S) > 0 then
CharToOemBuff(PChar(S), PChar(Result), Length(S));
end;

writeln (StrToOem("фыва пролдж"));

← →
panov © (2004-03-31 15:59) [5]

function W2D(const s: String): String;
begin
Result := s;
CharToOem(PChar(Result),PChar(Result));
end;

← →
Тимохов © (2004-03-31 16:02) [6]

> panov © (31.03.04 15:59) [5]

имхо проверить result <> "" надо

← →
Тимохов © (2004-03-31 16:03) [7]

> panov © (31.03.04 15:59) [5]

имхо проверить result <> "" надо

panov © (31.03.04 15:59)

> function W2D(const s: String): String

Чтобы народ потом не гадал, что же такое W2D, встретившееся в программе, Тейксейра, Пачеко и компания Borland
рекомендуют выбрать для функций самодокументирующиеся имена.

← →
Матлабист (2004-03-31 17:50) [10]

http://www.rsdn.ru/article/qna/ui/concp.xml

Моя консольная программа отображает русский текст иероглифами(+) Найти похожие ветки