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

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)
> или еще лучьше


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

---

← →
polecat79 ©   (2003-02-21 13:42) [6]

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

---

← →
Вячеслав ©   (2003-02-21 13:46) [7]

Автор: 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 Вячеслав
Спасибо! Я так и знал что есть что то попроще! :))

---

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

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



Память: 0.46 MB
Время: 0.011 c