Таблица рекордов, Не пойму что не пашет |
Таблица рекордов, Не пойму что не пашет |
1234 |
7.02.2007 20:20
Сообщение
#1
|
Новичок Группа: Пользователи Сообщений: 38 Пол: Мужской Реальное имя: 1234 Репутация: -1 |
Вот делаю таблицу рекордов (в типизированном файле). Да не могу найти ошибку в алгоритме.
mas-массив типа string; st-файл типа string.
|
volvo |
7.02.2007 20:31
Сообщение
#2
|
Гость |
For J:=1 To N Do Нельзя перемешивать строки с числами... Да и скобки круглые у Points, хотя должны быть квадратные... Преобразуй число J в строку (функция IntToStr взята из хелпа TP 7.0): function IntToStr(I: Longint): String; Твой фрагмент будет выглядеть так: For J:=1 To N Do |
1234 |
8.02.2007 15:18
Сообщение
#3
|
Новичок Группа: Пользователи Сообщений: 38 Пол: Мужской Реальное имя: 1234 Репутация: -1 |
Функция IntToStr действительно хорошо должна работать. Но только должна. Процедуру Str я уже использовал, но эффект тот же-выводятся каракули не многим похожие на цифры. Может быть просто строку нельзя выводить на экран в графическом режиме?
Да, и почему здесь...
...выводится ошибка 100(Disk read error). Очень странно. А типизированные файлы создаются в Pascal или отдельным алгоритмом? Сообщение отредактировано: 1234 - 8.02.2007 15:24 |
volvo |
8.02.2007 15:33
Сообщение
#4
|
Гость |
Цитата Может быть просто строку нельзя выводить на экран в графическом режиме? А ты что, где-то показал, КАК ты выводишь строку на экран? Да еще в графике? Здесь не телепаты сидят, кстати... |
1234 |
8.02.2007 15:47
Сообщение
#5
|
Новичок Группа: Пользователи Сообщений: 38 Пол: Мужской Реальное имя: 1234 Репутация: -1 |
Вывожу я строку процедурой OutTextXY. Но тут понял, что через текстовый файл будет лучше. Но снова ошибка-Range Check Error. Что это вообще значит?
Сообщение отредактировано: 1234 - 8.02.2007 18:30 |
TarasBer |
8.02.2007 20:07
Сообщение
#6
|
Злостный любитель Группа: Пользователи Сообщений: 1 755 Пол: Мужской Репутация: 62 |
Функция IntToStr действительно хорошо должна работать. Но только должна. Процедуру Str я уже использовал, но эффект тот же-выводятся каракули не многим похожие на цифры. Может быть просто строку нельзя выводить на экран в графическом режиме? Хм, можно я версию скажу? Вы при выводе текста какой шрифт используете? DefaultFont? Он у многих неправильно выводит цифры (даже где-то тема была, в которой человек на это жаловался). Используйте векторные шрифты. Кстати, я только что дописал chr_edit (предварительная версия, но пока багов не обнаружено). Так что если хотите русифицировать свою программу - могу кинуть русский готический шрифт и сам редактор. -------------------- |
1234 |
8.02.2007 20:17
Сообщение
#7
|
Новичок Группа: Пользователи Сообщений: 38 Пол: Мужской Реальное имя: 1234 Репутация: -1 |
Да, здравствуйте! Скиньнте,пожалуйста русский готический шрифт и сам редактор.Заранее благодарен.
|
TarasBer |
8.02.2007 20:33
Сообщение
#8
|
Злостный любитель Группа: Пользователи Сообщений: 1 755 Пол: Мужской Репутация: 62 |
Да, здравствуйте! Скиньнте,пожалуйста русский готический шрифт и сам редактор.Заранее благодарен. Хорошо, держите. Вам выпало почётное право первому протестировать мою новую программу. За размер модулей не ругайте, я их писал давно, для себя и на все случаи жизни (сам иногда удивляюсь, что столько накатал). Тот, кто сможет разобраться в этих кошмарных модулях - Воистину Великий Программист. Пока надёжность программы не проверена, заранее сохраните где-нибудь копии шрифтов, чтобы потом в случае их порчи можно было восстановить. Там пока на русский переведён только goth.chr. У меня он работает. Версия винрара - 3.51. Прикрепленные файлы chr.rar ( 115.23 килобайт ) Кол-во скачиваний: 250 -------------------- |
volvo |
8.02.2007 20:37
Сообщение
#9
|
Гость |
Опять изобретение велосипедов... Шрифты русифицированы N лет назад:
BGI - Русифицированные BGI фонты |
TarasBer |
8.02.2007 21:44
Сообщение
#10
|
Злостный любитель Группа: Пользователи Сообщений: 1 755 Пол: Мужской Репутация: 62 |
Спасибо. Но придерусь: вдруг кому-нибудь понадобится буква "Ё"? А из тех, что на сайте, она есть только в litt и sans. Конечно, без неё прекрасно можно обойтись, но некоторые предпочитают использовать русский язык полностью, без усечений типа замены ё на е. Так что редактор пожалуй имеет смысл. -------------------- |
Altair |
9.02.2007 10:15
Сообщение
#11
|
Ищущий истину Группа: Модераторы Сообщений: 4 824 Пол: Мужской Реальное имя: Олег Репутация: 45 |
TarasBer, фантастически удобный редактор!
В качестве предложения - перекомпилировать в FPC что бы было в окошке виндовом (код не смотрел, не знаю насколько это будет сложно) -------------------- Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С) |
1234 |
9.02.2007 12:46
Сообщение
#12
|
Новичок Группа: Пользователи Сообщений: 38 Пол: Мужской Реальное имя: 1234 Репутация: -1 |
Мой вопрос повис в воздухе. А тема превратилась в бенефис г-на Березняка...
|
volvo |
9.02.2007 13:24
Сообщение
#13
|
Гость |
Цитата Но тут понял, что через текстовый файл будет лучше. Но снова ошибка-Range Check Error. Прекрасно... Значит, ты менял код (на обработку текстового файла)? Покажи хотя бы строку, на которой происходит Range Check Error...Цитата Что это вообще значит? Выход за границы массива это значит... Вот и хотелось бы посмотреть, ГДЕ именно, и тогда, возможно, будет понятно ПОЧЕМУ это происходит... |
1234 |
9.02.2007 13:36
Сообщение
#14
|
Новичок Группа: Пользователи Сообщений: 38 Пол: Мужской Реальное имя: 1234 Репутация: -1 |
В самом начале:
|
volvo |
9.02.2007 14:44
Сообщение
#15
|
Гость |
{$TELEPATHY ON}
Если ты работаешь с текстовыми файлами, то с большой степенью вероятности тебя спасет While Not SeekEof(F) Do { <--- SEEK добавлено }Больше ничего без твоего TXT файла и того, как именно описан тип mas (массив, понятно, но на сколько элементов??? Может, элементарно у тебя строк в файле больше?) сказать не могу... {$TELEPATHY OFF} |
1234 |
9.02.2007 14:56
Сообщение
#16
|
Новичок Группа: Пользователи Сообщений: 38 Пол: Мужской Реальное имя: 1234 Репутация: -1 |
Да, видимо что-то не то. А время поджимает. Поэтому... набираюсь наглости ... и прошу прислать мне исходник с подобной подпрограммой. Ах да, и ещё вопрос. Как я понял из множества папок Сhr я выбрал одну и послал её в нужную директорию. Но не катит. Это означает, что в программе присутствие русификатора нужно как-то прописать. Если да, то как?
Сообщение отредактировано: 1234 - 9.02.2007 15:13 |
volvo |
9.02.2007 16:11
Сообщение
#17
|
Гость |
Цитата Поэтому... набираюсь наглости ... и прошу прислать мне исходник с подобной подпрограммой. Не пойдет... У меня - встречное предложение, давай лучше ты вышлешь сюда (или в приват, если не хочешь показывать форуму) полный исходник твоей программы с TXT файлом вместе... Чтобы можно было запустить и посмотреть, ПОЧЕМУ происходит ошибка... |
1234 |
9.02.2007 17:06
Сообщение
#18
|
Новичок Группа: Пользователи Сообщений: 38 Пол: Мужской Реальное имя: 1234 Репутация: -1 |
Да я уже не успеваю. Поэтому придётся без этих рекордов. Сейчас меня больше интересует интерфейс: насколько я знаю у каждого типа шрифта есть свой код. Как мне вообще можно связать любой из Chr с моей программой. Например, с той что вы мне посоветовали, сказав что её давно выпустили. А что касается прислать, то могу только завтра. После презентации проекта. Хотя, думаю, на кой чёрт она вам нужна. Вы такую за 5 минут наклепаете.
Сообщение отредактировано: 1234 - 9.02.2007 17:08 |
TarasBer |
9.02.2007 22:40
Сообщение
#19
|
Злостный любитель Группа: Пользователи Сообщений: 1 755 Пол: Мужской Репутация: 62 |
Да я уже не успеваю. Поэтому придётся без этих рекордов. Сейчас меня больше интересует интерфейс: насколько я знаю у каждого типа шрифта есть свой код. Как мне вообще можно связать любой из Chr с моей программой. Например, с той что вы мне посоветовали, сказав что её давно выпустили. А что касается прислать, то могу только завтра. После презентации проекта. Хотя, думаю, на кой чёрт она вам нужна. Вы такую за 5 минут наклепаете. Готический шрифт задаётся строчкой SetTextStyle(4, 0, 4); А для замены стандартного готического шрифта на модифицированный надо найти goth.chr в папке *** и заменить файл. *** - это та, которую вы указали при вызове InitGraph (по-моему, так). Или не готический (чего это я всё о нём?), а любой другой. К тому же в Паскале можно поступить так:
Abcd - это имя файла со шрифтом (без расширения). То есть если вы хотите загрузить rgot.chr, то вместо "abcd" пишете "rgot". P.S. В редакторе замечены баги: 1. Если завести розовую линию за край символа и стереть правой кнопкой все линии, то розовая линия вылезет далеко справа (исправил) 2. Файлы с русскоязычным названием глючат (исправил) 3. Файлы с названием не из 4х букв глючат (не исправил, по-моему не лечится). 4. Точки с координатами < 0 по X отображаются далеко справа (нечего левее границы рисовать). 5. В некоторых символах некоторых шрифтов более 256 векторов. Теперь верхняя граница - 320. Кстати, в стандартных шрифтах столько артефактов (лишних векторов)! Особенно отвратителен bold. Новая версия (1.01): Сообщение отредактировано: TarasBer - 10.02.2007 21:39 Прикрепленные файлы chr.rar ( 80.17 килобайт ) Кол-во скачиваний: 248 |
Текстовая версия | 1.06.2024 16:29 |