console application

← →
SergeN (2003-02-21 13:25) [0]

Хочу вывести строку writeln("Подождите"). Выводит, но только не "Подождите". Как обеспечить поддержку рус. шрифта?

← →
SergeN (2003-02-21 13:29) [1]

Вообщето,я знаю что можно например в FAR править. Но как в Delphi?

← →
Palladin © (2003-02-21 13:36) [2]

выводи "Podojdite" :))

почему некоторым лень поискать
http://delphi.mastak.com/cgi-bin/faq.pl?look=1&id=988619604&n=19

← →
Palladin © (2003-02-21 13:39) [3]

или еще лучьше
http://delphi.mastak.com/cgi-bin/faq.pl?look=1&id=988619974&n=19

← →
SergeN (2003-02-21 13:39) [4]

Видел я это. Просто думал может что полегче есть. Уж лучше буду в FAR править.

← →
SergeN (2003-02-21 13:41) [5]

> Palladin © (21.02.03 13:39)
> или еще лучьше

Хм, а вот это не видел. Пробую... Спасибо!

надо просто конвертить все строки в OEM ^-)))

Автор: Gleb Alexeev

program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils, Windows;

var
InStr, OutStr: string;
begin
SetLength(OutStr,1000);
{ TODO -oUser -cConsole Main : Insert code here }
InStr := "Какой же русский не любит быстрой езды!";
CharToOem(PChar(InStr), PChar(OutStr) );
Writeln(OutStr);
Readln;
end.

← →
SergeN (2003-02-21 13:52) [8]

2 Вячеслав
Спасибо! Я так и знал что есть что то попроще! :))

console application Найти похожие ветки