нужна помощь в реализации алгоритмов маркова

[tiger]

Задали сделать программу реализующую нормальные алгоритмы маркова в среде Delphi. вот в чем мне нужна помощь: имеется поле memo в которое в каждую строчку добавляются подстановки: заменить часть строки а на новую комбинацию символов b. в каждой строке memo я через едиты это добавляю в таком виде: символы a --> символы b. проблема вот в чем: как мне найти символы каждой строчки memo (line) поочередно (в цикле) которые стоят перед "-->" и после этого знака, для того чтобы сделать в тексте (текст во втором едите) подстановку каждой второй части строчки memo на место первой? помогите кто знает.

[Greblin]

Ну например так

j := pos('-->', Memo1.Lines[i]);
pref := copy(Memo1.Lines[i], 1, j-1);
j := j + 3;
post := copy(Memo1.Line[i], j, Length(Memo1.Lines[i])-j+1);

Ну и аккуратно проверить всё это на лишние пробелы, корректность условия преобразования и т.д.

[tiger]

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

Ну например так

j := pos('-->', Memo1.Lines[i]);
pref := copy(Memo1.Lines[i], 1, j-1);
j := j + 3;
post := copy(Memo1.Line[i], j, Length(Memo1.Lines[i])-j+1);

Ну и аккуратно проверить всё это на лишние пробелы, корректность условия преобразования и т.д.

спасибо огромное! и правда очень легко. даже не знаю почему сам не пришел к этому решению.