Вверх ↑
Этот топик читают: Гость
Ответов: 16884
Рейтинг: 1239
#46: 2010-09-05 20:20:34 ЛС | профиль | цитата
nesco писал(а):
последнее вообще на маразм смахивает
вот это последнее и помогло найти тормоза у Ампера.
Маразм объявлять в константах "безразмерное" string, что у нас сплошь и рядом.
array[0..N]of string = (......
где вполне устраивает, например,
array[0..N]of string[7] = (......
работающее быстрее. Об этом мне рассказывали ещё в детстве.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Разработчик
Ответов: 26151
Рейтинг: 2127
#47: 2010-09-05 21:21:59 ЛС | профиль | цитата
Tad писал(а):
"безразмерное" string

А если неизвестна максимальная длина string, что тогда
А если у тебя, к примеру, string[50] встречается пару раз, а ты объявишь массив array[0..100]of string[50], зачем резервировать лишнее

карма: 22

0
Ответов: 16884
Рейтинг: 1239
#48: 2010-09-06 10:00:16 ЛС | профиль | цитата
nesco писал(а):
А если неизвестна максимальная длина string

Tad писал(а):
в константах

карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Разработчик
Ответов: 26151
Рейтинг: 2127
#49: 2010-09-06 10:39:20 ЛС | профиль | цитата
Tad, ты сидеть считать будешь символы в каждой строке
карма: 22

0
Гость
Ответов: 17029
Рейтинг: 0
#50: 2010-09-06 13:01:21 правка | ЛС | профиль | цитата


Редактировалось 7 раз(а), последний 2021-06-24 06:58:21
карма: 0

0
Ответов: 16884
Рейтинг: 1239
#51: 2010-09-06 15:56:19 ЛС | профиль | цитата
nesco, кстати вот этот код http://hiasm.com//getfile/20408 под FPC пробовал ?
Работает нормально ?
У меня клинит.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Разработчик
Ответов: 26151
Рейтинг: 2127
#52: 2010-09-06 16:05:19 ЛС | профиль | цитата
Tad писал(а):
У меня клинит.

И у меня клинит. Убери TimeCounter и клинить перестанет
карма: 22

0
Ответов: 16884
Рейтинг: 1239
#53: 2010-09-06 16:32:11 ЛС | профиль | цитата
nesco, попробуй изменить строку в Share.pas .
DataNames:array[0..22]of string[7]

О результате сообщи.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Разработчик
Ответов: 26151
Рейтинг: 2127
#54: 2010-09-06 16:41:07 ЛС | профиль | цитата
Tad писал(а):
О результате сообщи

Заработало под FPC. Твой код -- 2, Ampera -- 1
Под Delphi -- твой код -- 1, Ampera -- 0
карма: 22

0
Ответов: 16884
Рейтинг: 1239
#55: 2010-09-07 08:55:32 ЛС | профиль | цитата
Всё правильно. Код Ampera должен работать быстрее, т.к. у него применяется выход из внутреннего цикла, а я применил Pos(s[i],str)
------------ Дoбавленo в 08.55:
nesco писал(а):
Убери TimeCounter и клинить перестанет
C таким же успехом можно убрать и Memo
nesco, так правишь Share.pas или вызывать огонь на себя ?
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Разработчик
Ответов: 26151
Рейтинг: 2127
#56: 2010-09-07 09:04:53 ЛС | профиль | цитата
Tad писал(а):
так правишь Share.pas или вызывать огонь на себя ?

А че скажет начальник транспортного цеха, мне интересно его мнение по данному вопросу
карма: 22

0
Ответов: 16884
Рейтинг: 1239
#57: 2010-09-07 17:14:56 ЛС | профиль | цитата
Ну-ну. Думаю зря ждем. Стиль у меня не тот.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 1535
Рейтинг: 176
#58: 2010-10-13 13:35:20 ЛС | профиль | цитата
Tad, nesco, мне нужен транслит с латиницы на кириллицу желательно в IC. Пожалуйста!
карма: 1
Не так страшна ошибка, как опасность её не заметить.

0
Ответов: 16884
Рейтинг: 1239
#59: 2010-10-14 18:45:46 ЛС | профиль | цитата
ser_davkin, нужно иметь таблицу по которой ты переводишь кириллицу в латиницу.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 3851
Рейтинг: 159
#60: 2012-03-10 15:00:32 ЛС | профиль | цитата

ser_davkin писал(а):
мне нужен транслит с латиницы на кириллицу

знакомый делал на дэльфях - вставляйте в IC сами:
code_27132.txt
говорит, что работает. не против поделиться..
карма: 0
начавший
0
файлы: 1code_27132.txt [2.5KB] [594]
Сообщение
...
Прикрепленные файлы
(файлы не залиты)