| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Console and RUS [D6, D7, Win2k, WinXP]

kernel ©   (2006-04-12 17:15:00) 

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

---

Сергей М.   (2006-04-18 09:57:00) [1]

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

---

Rater1   (2006-04-18 08:19:00) [2]

День добрый.
Попробовал данный метод... Никак не пойму почему в 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.

---

kernel   (2006-04-12 17:22:00) [3]

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

---

han_malign   (2006-04-12 17:19:00) [4]

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

---

Наверх