Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 05.05.2018, 12:35   #11
kladsss
Пользователь
 
Регистрация: 22.10.2017
Сообщений: 50
По умолчанию

Цитата:
Сообщение от Filka Посмотреть сообщение
Код:
AssignFile(fResult, GenerateFileName('D:\Result.txt'));
Сделал как Вы сказали и все равно пишет ошибку вот такого плана: the specified file was not found. Благодарен за то что помогаете.
kladsss вне форума Ответить с цитированием
Старый 05.05.2018, 12:40   #12
kladsss
Пользователь
 
Регистрация: 22.10.2017
Сообщений: 50
По умолчанию

Цитата:
Сообщение от Filka Посмотреть сообщение
Код:
AssignFile(fResult, GenerateFileName('D:\Result.txt'));
А я я й. Я пропустил важный момент. Спасибо БОЛЬШОЕ. Все работает!!!!!!!!
kladsss вне форума Ответить с цитированием
Старый 05.05.2018, 13:07   #13
Filka
Форумчанин
 
Регистрация: 29.10.2015
Сообщений: 272
По умолчанию

Пожалуйста.
Filka вне форума Ответить с цитированием
Старый 15.05.2018, 13:08   #14
kladsss
Пользователь
 
Регистрация: 22.10.2017
Сообщений: 50
По умолчанию

Цитата:
Сообщение от Aliens_wolfs Посмотреть сообщение
Немного переделал ваш код для сохранения в один файл
А как в вашем коде, пост #2 - Сделать, что бы поиск осуществлялся без учета регистра ?
kladsss вне форума Ответить с цитированием
Старый 15.05.2018, 13:26   #15
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 19,042
По умолчанию

Так , например
Код:
            if Str[CharIdx] = Matching[i, Idx[i]] then
            if AnsiSameText(Str[CharIdx],Matching[i, Idx[i]]) then
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума Ответить с цитированием
Старый 15.05.2018, 13:37   #16
kladsss
Пользователь
 
Регистрация: 22.10.2017
Сообщений: 50
По умолчанию

Цитата:
Сообщение от Аватар Посмотреть сообщение
Так , например
Код:
            if Str[CharIdx] = Matching[i, Idx[i]] then
            if AnsiSameText(Str[CharIdx],Matching[i, Idx[i]]) then
Аватар, Огромное спасибо.!
kladsss вне форума Ответить с цитированием
Старый 15.05.2018, 16:02   #17
kladsss
Пользователь
 
Регистрация: 22.10.2017
Сообщений: 50
По умолчанию

Цитата:
Сообщение от Аватар Посмотреть сообщение
Так , например
Код:
            if Str[CharIdx] = Matching[i, Idx[i]] then
if AnsiSameText(Str[CharIdx],Matching[i, Idx[i]]) then
Еще такой вопрос: В таков виде код работает но не очень быстро. То есть в разы медленней чем с учетом регистра в посте #2. Можно как то ускорить, то есть - может есть вариант быстрее чем AnsiSameText ?
kladsss вне форума Ответить с цитированием
Старый 15.05.2018, 16:12   #18
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 19,042
По умолчанию

Возможно и не быстрей будет. Попробуй в Matching все заранее в один регистр преобразовать, например с помощью AnsiUpperCase, может и переврал. К этому же регистру и символы в str преобразовать и просто сравнение. Или переделать алгоритм, если возможно, и перейти, например, к сравнению строк, а не символов
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума Ответить с цитированием
Старый 15.05.2018, 16:18   #19
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

Цитата:
Сообщение от Аватар Посмотреть сообщение
Возможно и не быстрей будет. Попробуй в Matching все заранее в один регистр преобразовать, например с помощью AnsiUpperCase, может и переврал. К этому же регистру и символы в str преобразовать и просто сравнение. Или переделать алгоритм, если возможно, и перейти, например, к сравнению строк, а не символов
согласен.
однозначно, будет БЫСТРЕЙ.
Serge_Bliznykov вне форума Ответить с цитированием
Старый 15.05.2018, 16:26   #20
kladsss
Пользователь
 
Регистрация: 22.10.2017
Сообщений: 50
По умолчанию

Цитата:
Сообщение от Аватар Посмотреть сообщение
Возможно и не быстрей будет. Попробуй в Matching все заранее в один регистр преобразовать, например с помощью AnsiUpperCase, может и переврал. К этому же регистру и символы в str преобразовать и просто сравнение. Или переделать алгоритм, если возможно, и перейти, например, к сравнению строк, а не символов
Цитата:
Сообщение от Serge_Bliznykov Посмотреть сообщение
согласен.
однозначно, будет БЫСТРЕЙ.
Ребята сделал через Matching в один регистр - скорость выросла в разы. Спасибо за советы, вопрос решен благодаря вашим наставлениям. Я начинающий в программировании, потому такие подсказки для меня на вес золота.
kladsss вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

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

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
[C#] Выводит один и тот же результат при разных параметрах artems67 Помощь студентам 1 09.11.2017 06:36
Дан файл f, который содержит вещественные числа. Найти сумму чисел и записать результат в новый файл. (Delphi) 2Nboy Помощь студентам 1 08.06.2012 17:01
Один результат из двух столбцов Kpak Помощь студентам 0 07.05.2012 11:05
Один результат из двух столбцов Kpak Microsoft Office Excel 2 04.05.2012 18:50
Две лабы: файл - обработать слова; массив - найти три наибольших элемента за один проход ( Delphi ) Emma_Imp Помощь студентам 5 26.12.2010 21:13