Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Здравствуйте, эксперты!
Программа должна брать символ из строки, сравнивать его с символами из второй строки(вторая строка - набор символов), заменять на символы из третьей строки(вперемешку символы из второй строки), номера символов из второй и третьей строк равны. В приложении есть кусочек кода. По-моему, все верно записано и должно работать.... Помогите, пожалуйста!

Вопрос задал: Zzzimm (статус: Посетитель) Вопрос отправлен: 2 сентября 2009, 14:32 Состояние вопроса: открыт, ответов: 1.

Ответ #1. Отвечает эксперт: Вадим К

Здравствуйте, Zzzimm!
ну так, возможна двойная замена. заменил - выходи! код должен быть как минимум где то такой

//str - это входная строка?
//code1 - строка для подмен?
//code2 - строка для поиска совпадений?
//не совсем понятно, кто за что отвечает
for j:=1 to length(Str) do //не рекомендую использовать имя str - есть такая встроенная процедура.
begin
 For i:=1 to length(Code2) do//лучше будем длину напрямую подставлять.
 begin
  If str[j]=Code2[i] then 
  begin
    Str[j]:=code1[i]; 
    break; 
  end;
 end;
 end;

Ответ отправил: Вадим К (статус: Академик) Время отправки: 2 сентября 2009, 14:42

Мини-форум вопроса

Егор (статус: 10-ый класс), 2 сентября 2009, 15:43 [#1]: Что-то я не понял нифига, что сделать надо. Примерчик бы - типа, есть строки "abcde", "fghi" и "qwerty". Надо получить "asdfg". Опасайтесь багов в приведенном выше коде; я только доказал корректность, но не запускал его. — Donald E. Knuth.

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.