Скачать: CL | DM;

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

← →
Виноградов Алексей   (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 ©   (2004-03-31 16:08) [8]

>Тимохов ©   (31.03.04 16:03) [7]

угу

---

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

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

---

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

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.021 c