Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 18.04.2012, 15:04
vlad1918 vlad1918 вне форума
Прохожий
 
Регистрация: 18.04.2012
Сообщения: 2
Репутация: 10
По умолчанию Помогите, подскажите

Есть программа.

Весёлый человечек вылазить снизу экрана и говрит рандомно выбранные из списка слова. Исходник английский (говорит он по английски)
Слова берет из документа.


я их заменяю на русские но вместо них пробелы в чем проблема подскажите


исходник в теме
Вложения
Тип файла: rar Barstool.rar (204.1 Кбайт, 6 просмотров)
Ответить с цитированием
  #2  
Старый 18.04.2012, 16:08
Аватар для Aristarh Dark
Aristarh Dark Aristarh Dark вне форума
Модератор
 
Регистрация: 07.10.2005
Адрес: Москва
Сообщения: 2,907
Версия Delphi: Delphi XE
Репутация: выкл
По умолчанию

Нужно небольшие исправления внести
юнит unitText
строка 44
Код:
if (Ord(c)>31) and (Ord(c)<255) then buff:=buff+c;
строка 70
Код:
if text[1] in ['A'..'Z','А'..'Я'] then ok:=true;
__________________
Некоторые программисты настолько ленивы, что сразу пишут рабочий код.

Если вас наказали ни за что - радуйтесь: вы ни в чем не виноваты.
Ответить с цитированием
  #3  
Старый 18.04.2012, 16:21
Аватар для Страдалецъ
Страдалецъ Страдалецъ вне форума
Гуру
 
Регистрация: 09.03.2009
Адрес: На курорте, из окна вижу теплое Баренцево море. Бррр.
Сообщения: 4,723
Репутация: 52347
По умолчанию

Скорее всего дело в шрифтах. Не поддерживают они просто русские буквы. Вот и рисуются пробелы вместо букв. Можно попробовать просто подменить шрифт, если он не зашит в тело программы.

ПС:
Упс, не обновил страничку. Мое предположение было неверно.
__________________
Жизнь такова какова она есть и больше никакова.
Помогаю за спасибо.
Ответить с цитированием
  #4  
Старый 18.04.2012, 17:01
vlad1918 vlad1918 вне форума
Прохожий
 
Регистрация: 18.04.2012
Сообщения: 2
Репутация: 10
По умолчанию

Огромное спасибо)))) я просто только учусь еще мало знаю)
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра
Комбинированный вид Комбинированный вид

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 11:13.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025