Вывод на форму немецких букв

← →
SMT (2005-01-27 18:54) [0]

Уважаемые мастера,

Помогите, пожалуйста, правильно выводить в форме текст на немецком языке, содержащий умлауты, например, U с двумя точками наверху. Когда я копирую подобный текст из документа Word в форму Delphi, умлауты пропадают. У меня на форме установлен шрифт Microsoft Sans Serif и набор символов Default.
С уважением, Игорь Степанов

← →
Начинающий2 (2005-01-27 19:21) [1]

Если у тебя винда руская + в настойках везде стоит руский(языковые стандарты и форматы, расположение, язык програм), то с умплаутами будет проблема. Даже если расположение поменяеш на *германия*, всё равно вместо умплаутов будут либо русские буквы либо без точек. Под немецкой виндой без проблем.

← →
zmova © (2005-01-28 08:53) [2]

Font > Chatset := ANSI_CHARSET

← →
zmova © (2005-01-28 08:57) [3]

и фонт поменяй :) - а то MS Sans Serif часто имеет только один набор символов - для текущей локали...

← →
SMT (2005-01-29 11:43) [4]

Уважаемые мастера,

Я поэкспериментировал с разными Charset и выяснил, что подходит BALTIC_CHARSET. При этом Font может быть разным, например, "Microsoft Sans Serif", "Times New Roman","Arial".
Привожу пример вывода текста с умлаутами в компонент Memo. Может быть, кому-нибудь пригодится.

procedure TMainF.FormShow(Sender: TObject);
begin
Memo1.Font.Charset:=BALTIC_CHARSET;
Memo1.Font.Name:="Times New Roman";
{ Memo1.Font.Name:="Arial"; Memo1.Font.Name:="Microsoft Sans Serif";}

Memo1.Lines.Add("This is Latin capital letter A with diaeresis: "+#196);
Memo1.Lines.Add("This is Latin small letter a with diaeresis: "+#228);
Memo1.Lines.Add("This is Latin capital letter O with diaeresis: "+#214);
Memo1.Lines.Add("This is Latin small letter o with diaeresis: "+#246);
Memo1.Lines.Add("This is Latin capital letter U with diaeresis: "+#220);
Memo1.Lines.Add("This is Latin small letter u with diaeresis: "+#252);
Memo1.Lines.Add("This is Latin small letter sharp S with diaeresis: "+#223);

end;

Спасибо за помощь.

С уважением, Игорь Степанов

← →
Anatoly Podgoretsky © (2005-01-29 14:08) [5]

SMT (29.01.05 11:43) [4]
Я поэкспериментировал с разными Charset и выяснил, что подходит BALTIC_CHARSET.

Ни фига себе. Поэкспериментируй еще, только на этот раз правильно.

← →
SMT (2005-01-29 20:26) [6]

Уважаемый господин Подгорецкий,

Я не совсем понял, что Вы понимаете под правильным экспериментированием? Ведь предложенный мною код работает и в компоненте Memo действительно правильно выводятся умлауты. Какое еще экспериментирование требуется и с какой целью? Пожалуйста, объясние мне подробно.
С уважением и благодарностью, Игорь Степанов

← →
Anatoly Podgoretsky © (2005-01-29 20:30) [7]

Рассказываю BALTIC_CHARSET это для Литвы, Латвии и Эстонии, а не для Германии.

← →
uny © (2005-01-29 21:14) [8]

у буквы ё тоже точки, но мы за мир!
:)

← →
SMT (2005-01-30 11:22) [9]

Уважаемый господин Подгорецкий,

Подскажите, пожалуйста, какой CHARSET подходит именно для Германии, поскольку моя программа предназначена именно для использования моими германскими коллегами?

Буду Вам чрезвычайно признателен за помощь.

С уважением, Игорь Степанов

← →
Anatoly Podgoretsky © (2005-01-30 12:53) [10]

Ну тебе же ответили в [2]

← →
SMT (2005-01-30 14:09) [11]

Уважаемый господин Подгорецкий,

Дело в том, что при использовании ANSI_CHARSET в русифицированной Windows умлауты заменены на кириллические символы. Мне же хотелось бы, чтобы и на русифицированной Windows здесь, и на немецкоязычной Windows в Германии умлауты были нормально видны.

Можно ли как-нибудь использовать Unicod для этой цели?
Если да, то как именно?

С уважением,
Игорь Степанов

charset Western Europe - мы именно его использовали.
Но программа была конкретно для использования только в Германии.

Извиняюсь, чарсет называется просто "Western"

← →
SMT (2005-01-31 19:05) [14]

К сожалению, я не нашел CHARSET WESTERN в списке доступных для компонента Memo. Где его можно раздобыть и как сделать доступным для визуальных компонентов Delphi?

С уважением, Игорь Степанов

Вывод на форму немецких букв - умлаутов Найти похожие ветки