[MeX884]

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

Ты, не поверишь, но уже работает.
Ан нет, извини, не заметилЮ, что для 2-х разных Memo...

Код:

var
str:String;
begin
str:=Memo1.Text;
str := StringReplace(Memo1.Text, '+', '1 ', [rfReplaceAll]);
Memo2.Text := StringReplace(str, '-', '0 ', [rfReplaceAll]);

А если их 8 ???