Как оптимизировать код?

@maksmkv · Регистрация: 29.08.2012

Author24 — интернет-сервис помощи студентам

Есть такой кусок кода:

Delphi

for j:=0 to Memo2.Lines.Count-1 do
    begin
      if Pos('кв.А', Memo2.Lines.Strings[j]) >0 then
      Memo2.Lines.Strings[j]:=StringReplace(Memo2.Lines[j], 'кв.А', 'А', [rfReplaceAll, rfIgnoreCase]);
    end;
     for j:=0 to Memo2.Lines.Count-1 do
    begin
      if Pos('кв.Б', Memo2.Lines.Strings[i]) >0 then
      Memo2.Lines.Strings[j]:=StringReplace(Memo2.Lines[j], 'кв.Б', 'Б', [rfReplaceAll, rfIgnoreCase]);
    end;
     for j:=0 to Memo2.Lines.Count-1 do
    begin
      if Pos('кв.В', Memo2.Lines.Strings[i]) >0 then
      Memo2.Lines.Strings[j]:=StringReplace(Memo2.Lines[j], 'кв.В', 'В', [rfReplaceAll, rfIgnoreCase]);
    end;
     for j:=0 to Memo2.Lines.Count-1 do
    begin
      if Pos('кв.Г', Memo2.Lines.Strings[i]) >0 then
      Memo2.Lines.Strings[j]:=StringReplace(Memo2.Lines[j], 'кв.Г', 'Г', [rfReplaceAll, rfIgnoreCase]);
    end;
 
    ........................................................
 
    for j:=0 to Memo2.Lines.Count-1 do
    begin
      if Pos('кв.Ю', Memo2.Lines.Strings[i]) >0 then
      Memo2.Lines.Strings[j]:=StringReplace(Memo2.Lines[j], 'кв.Ю', 'Ю', [rfReplaceAll, rfIgnoreCase]);
    end;
    for j:=0 to Memo2.Lines.Count-1 do
    begin
      if Pos('кв.Я', Memo2.Lines.Strings[i]) >0 then
      Memo2.Lines.Strings[j]:=StringReplace(Memo2.Lines[j], 'кв.Я', 'Я', [rfReplaceAll, rfIgnoreCase]);
    end;

Есть набор строк в Memo2.Text - код пробегает по каждой стоке и ищет совпадение, например: в строке встречается фараза кв.Ю - удаляем кв. и оставляем только букву Ю.
1. Как можно весь этот код переписать - у меня сделано таким образом для всех букв алфавита и для маленьких и для больших.
2. Почему при замене кв.Я - получается буква П. ??? Хотя все остальные буквы обрабатываются норм.

@volvo · 16.10.2014, 01:00

Замени весь этот ужас на:

Pascal

uses LCLProc;
 
// ...
var
  s, sub: string;
  i: integer;
begin
  s := 'АБВГДЕ...ЭЮЯабвгде...эюя'; // алфавит дополни сам ...
  for i := 1 to UTF8Length(s) do
  begin
    sub := UTF8Copy(s, i, 1);
    Memo2.Text := StringReplace(Memo2.Text, 'кв.' + sub, sub, [rfReplaceAll, rfIgnoreCase]);
  end;
end;

Добавлено через 1 минуту

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

Почему при замене кв.Я - получается буква П. ???

Не воспроизводится. Нормально убирается и "кв." перед "Я", ничего не меняется...

@maksmkv · 17.10.2014, 01:25 **[ТС]**

Не работает код (((, а точнее не совсем так как хотелось бы.

@volvo · 17.10.2014, 02:16

Ну, значит, бери и пиши так, как хотелось бы. Сам... Потому как я не телепат, и что тебе там "хотелось бы" - не знаю. А теперь уже и знать не хочу... Ибо неинтересно. Опять потратишь на тебя время, и что в ответ? Опять "не так, как хотелось бы"? Плавали, знаем таких...

Не по теме:

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

@maksmkv · 17.10.2014, 23:51 **[ТС]**

Код отлично заработал, но остались вопросы. Постарался изложить в личку. Я не прошу писать полностью код, но переделав чуть под себя - не заработал. Не более того. Спасибо, что помогаете.

Новые блоги и статьи
Как написать микросервис на C# с Kafka, MediatR, Redis и GitLab CI/CD InfoMaster 15.01.2025 В современной разработке программного обеспечения микросервисная архитектура стала стандартом де-факто для создания масштабируемых и гибких приложений. Этот подход позволяет разделить сложную систему. . .	Что такое CQRS и как это реализовать на C# с MediatR InfoMaster 15.01.2025 Концепция CQRS и её роль в современной разработке В современном мире разработки программного обеспечения архитектурные паттерны играют ключевую роль в создании масштабируемых и поддерживаемых. . .	Как настроить CI/CD с Azure DevOps InfoMaster 15.01.2025 CI/ CD, или непрерывная интеграция и непрерывное развертывание, представляет собой современный подход к разработке программного обеспечения, который позволяет автоматизировать и оптимизировать процесс. . .	Как настроить CI/CD с помощью Jenkins InfoMaster 15.01.2025 Введение в CI/ CD и Jenkins В современной разработке программного обеспечения непрерывная интеграция (CI) и непрерывная доставка (CD) стали неотъемлемыми элементами процесса создания качественных. . .	Как написать микросервис на Go/Golang с Kafka, REST и GitHub CI/CD InfoMaster 14.01.2025 Определение микросервиса, преимущества использования Go/ Golang Микросервис – это архитектурный подход к разработке программного обеспечения, при котором приложение состоит из небольших, независимо. . .	Как написать микросервис с нуля на C# с RabbitMQ, CQRS, Swagger и CI/CD InfoMaster 14.01.2025 В современном мире разработки программного обеспечения микросервисная архитектура стала стандартом де-факто для создания масштабируемых и гибких приложений. Этот архитектурный подход предполагает. . .
Как создать интернет-магазин на PHP и JavaScript InfoMaster 14.01.2025 В современном мире электронная коммерция стала неотъемлемой частью бизнеса. Создание собственного интернет-магазина открывает широкие возможности для предпринимателей, позволяя достичь большей. . .	Как написать Тетрис на Ассемблере InfoMaster 14.01.2025 Тетрис – одна из самых узнаваемых и популярных компьютерных игр, созданная в 1984 году советским программистом Алексеем Пажитновым. За прошедшие десятилетия она завоевала симпатии миллионы людей по. . .	Как создать игру "Танчики" на Unity3d и C# InfoMaster 14.01.2025 Разработка игр – это увлекательный процесс, сочетающий в себе творчество и технические навыки. В этой статье мы рассмотрим создание классической игры "Танчики" с использованием Unity3D и языка. . .	Организую платный онлайн микро-курс по доработке Android-клиента Telegram _Ivana 14.01.2025 Официальная версия и распространенные форки не полностью устраивают? Сделай свою кастомную версию клиента! 4 занятия по 2 часа (2 недели пн, ср 19:00-21:00 по Москве). Первое вводное занятие. . .	Как создать приложение для фитнеса для iOS/iPhone на Kotlin InfoMaster 14.01.2025 Создание собственного фитнес-приложения — это не только захватывающий, но и полезный процесс, ведь оно может стать вашим верным помощником на пути к здоровому и активному образу жизни. В современных. . .	Как создать приложение магазина для iOS/iPhone на Swift InfoMaster 14.01.2025 Введение в разработку iOS-приложений Разработка приложений для iPhone и других устройств на базе iOS открывает огромные возможности для создания инновационных мобильных решений. В данной статье мы. . .

@maksmkv 3 / 3 / 1 Регистрация: 29.08.2012 Сообщений: 306
	17.10.2014, 01:25 [ТС]	3
	Не работает код (((, а точнее не совсем так как хотелось бы. 0

@volvo Супер-модератор 33019 / 21321 / 8184 Регистрация: 22.10.2011 Сообщений: 36,620 Записей в блоге: 9
	17.10.2014, 02:16	4
	Ну, значит, бери и пиши так, как хотелось бы. Сам... Потому как я не телепат, и что тебе там "хотелось бы" - не знаю. А теперь уже и знать не хочу... Ибо неинтересно. Опять потратишь на тебя время, и что в ответ? Опять "не так, как хотелось бы"? Плавали, знаем таких... Не по теме: Вот и помогай после этого людям. Выложил рабочее решение, так "не так как хотелось бы", чтобы скопировать и сдать... Самому надо допиливать к остальному фиг знает как написанному коду, оказывается... Вот незадача-то 0

@maksmkv 3 / 3 / 1 Регистрация: 29.08.2012 Сообщений: 306
	17.10.2014, 23:51 [ТС]	5
	Код отлично заработал, но остались вопросы. Постарался изложить в личку. Я не прошу писать полностью код, но переделав чуть под себя - не заработал. Не более того. Спасибо, что помогаете. 0