Результат в один файл / Delphi XE

[kladsss]

Сообщение от Filka

AssignFile(fResult, GenerateFileName('D:\Result.txt'));

Сделал как Вы сказали и все равно пишет ошибку вот такого плана: the specified file was not found. Благодарен за то что помогаете.

[kladsss]

Сообщение от Filka

AssignFile(fResult, GenerateFileName('D:\Result.txt'));

А я я й. Я пропустил важный момент. Спасибо БОЛЬШОЕ. Все работает!!!!!!!!

[Filka]

Пожалуйста.

[kladsss]

Сообщение от Aliens_wolfs

Немного переделал ваш код для сохранения в один файл

А как в вашем коде, пост #2 - Сделать, что бы поиск осуществлялся без учета регистра ?

[Аватар]

Так , например

            if Str[CharIdx] = Matching[i, Idx[i]] then
            if AnsiSameText(Str[CharIdx],Matching[i, Idx[i]]) then

[kladsss]

Сообщение от Аватар

Так , например

            if Str[CharIdx] = Matching[i, Idx[i]] then
            if AnsiSameText(Str[CharIdx],Matching[i, Idx[i]]) then

Аватар, Огромное спасибо.!

[kladsss]

Сообщение от Аватар

Так , например

            if Str[CharIdx] = Matching[i, Idx[i]] then
if AnsiSameText(Str[CharIdx],Matching[i, Idx[i]]) then

Еще такой вопрос: В таков виде код работает но не очень быстро. То есть в разы медленней чем с учетом регистра в посте #2. Можно как то ускорить, то есть - может есть вариант быстрее чем AnsiSameText ?

[Аватар]

Возможно и не быстрей будет. Попробуй в Matching все заранее в один регистр преобразовать, например с помощью AnsiUpperCase, может и переврал. К этому же регистру и символы в str преобразовать и просто сравнение. Или переделать алгоритм, если возможно, и перейти, например, к сравнению строк, а не символов

[Serge_Bliznykov]

Сообщение от Аватар

Возможно и не быстрей будет. Попробуй в Matching все заранее в один регистр преобразовать, например с помощью AnsiUpperCase, может и переврал. К этому же регистру и символы в str преобразовать и просто сравнение. Или переделать алгоритм, если возможно, и перейти, например, к сравнению строк, а не символов

согласен.
однозначно, будет БЫСТРЕЙ.

[kladsss]

Сообщение от Аватар

Возможно и не быстрей будет. Попробуй в Matching все заранее в один регистр преобразовать, например с помощью AnsiUpperCase, может и переврал. К этому же регистру и символы в str преобразовать и просто сравнение. Или переделать алгоритм, если возможно, и перейти, например, к сравнению строк, а не символов

Сообщение от Serge_Bliznykov

согласен.
однозначно, будет БЫСТРЕЙ.

Ребята сделал через Matching в один регистр - скорость выросла в разы. Спасибо за советы, вопрос решен благодаря вашим наставлениям. Я начинающий в программировании, потому такие подсказки для меня на вес золота.