|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Памогите с StringReplace !!! плиз
Я новечеГ, прошу сильно не пинать !
Такая проблема: Вот код: Цитата:
Заранее спасибо ! |
#2
|
||||
|
||||
Ты, не поверишь, но уже работает.
Ан нет, извини, не заметилЮ, что для 2-х разных Memo... Код:
var str:String; begin str:=Memo1.Text; str := StringReplace(Memo1.Text, '+', '1 ', [rfReplaceAll]); Memo2.Text := StringReplace(str, '-', '0 ', [rfReplaceAll]); Последний раз редактировалось TOJluK, 29.06.2009 в 17:44. |
#3
|
|||
|
|||
Цитата:
А если у меня их 8 ??? Последний раз редактировалось MeX884, 29.06.2009 в 17:46. |
#4
|
|||
|
|||
Цитата:
|
#5
|
||||
|
||||
Код:
str:=Memo_1.text+ ... +Memo_X.Text; str:=StringReplace(str, '-', '0 ', [rfReplaceAll]); str:=StringReplace(str, '+', '1 ', [rfReplaceAll]); Memo_X.Text:=str; |