Форум: "Начинающим";
Текущий архив: 2006.05.07;
Скачать: [xml.tar.bz2];

Вниз

Console and RUS   Найти похожие ветки 

← →
kernel ©   (2006-04-12 17:15) [0]

Кто-нить подскажет мне, как сделать вывод текста в консольном приложении на русском языке?

---

← →
han_malign ©   (2006-04-12 17:19) [1]

CharToOem(PChar(str), PChar(str));
WriteLn(str);

---

← →
kernel ©   (2006-04-12 17:22) [2]

Спасибо, han_malign! #13 :)

---

← →
Rater1   (2006-04-18 08:19) [3]

День добрый.
Попробовал данный метод... Никак не пойму почему в 1-ом случае работает, а при ссылке на туже процедуру в др. модуле не работет:

program Project1;
{$APPTYPE CONSOLE}
uses
 SysUtils, windows, Unit1 in "Unit1.pas";
var ss:string;
begin
 { TODO -oUser -cConsole Main : Insert code here }
 ss := "Проверка 1";
 CharToOEM(PChar(ss),PChar(ss));
 writeln(ss); //работает
 aaa("Проверка 2"); //неработает (вываливается)

 readln;
end.

unit Unit1;
interface
uses windows;
procedure aaa(s:string);
implementation

procedure aaa(s:string);
begin
chartooem(PChar(s),PChar(s));
writeln(s);
end;

end.

---

← →
Сергей М. ©   (2006-04-18 09:57) [4]

ss := "Проверка 2"; //ss д.б. объявлена статически
aaa(ss); //работает (не вываливается)

---

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

Форум: "Начинающим";
Текущий архив: 2006.05.07;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.01 c