[MeX884]

Я новечеГ, прошу сильно не пинать !

Такая проблема:
Вот код:

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

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

[TOJluK]

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

Код:

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

[MeX884]

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

Ты, не поверишь, но уже работает.

нет... я ввожу + во втором memo +, ввожу - во втором memo 0

А если у меня их 8 ???

[MeX884]

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

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

Код:

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

А если их 8 ???

[TOJluK]

Код:

str:=Memo_1.text+ ... +Memo_X.Text;
str:=StringReplace(str, '-', '0 ', [rfReplaceAll]);
str:=StringReplace(str, '+', '1 ', [rfReplaceAll]);
Memo_X.Text:=str;

Если Memo оч много, то еще можно использовать FindComponent