Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.12.11;
Скачать: CL | DM;

Вниз

TRichEdit   Найти похожие ветки 

 
Express   (2005-11-20 18:03) [0]

Люди помогите, такая проблема… Вводиться текст в TRichEdit, я хочу его изменить (удалить пробелы) и после этого уже отредактированный текст вывести в совершенно другой TRichEdit.
А получается, так что при выводе текста в новый TRichEdit у меня изменяется также текст в текущем TRichEdit.

Я так понимаю, что происходит не переприсваивание значения, а ссылка на него...
Правильно ли я думаю? Как мне сделать, то что я задумал? Заранее благодарен…

Var
CurText: TStrings;
begin
….
CurText :=TStrings.Create;
CurText :=RETextCur.Lines;
Metode.SpaceDelete(CurText); //Удаляет пробелы, это не так //////важно…
RETextNew.Lines :=CurText;
…..
End;


 
Gydvin ©   (2005-11-20 22:39) [1]

Я бы сделал так

var
list:tstringlist;
begin
list:=tstringlist.create;
list.text:=richedit1.text;
delprobel(list);
richedit2.text:=list.text;

list.free;
end;


или

var
s:string;
begin

s:=richedit1.text;
delprobel(s);
richedit2.text:=s;

end;


 
Victor! ©   (2005-11-21 02:12) [2]

или так RETextNew.Lines.Assign(CurText);


 
Express   (2005-11-21 12:17) [3]

Victor! ©  и Gydvin ©  вам большое спасибо... Все работает!!!

var
CurTextList: TStringList;
begin
...
CurTextList :=TStringList.Create;
CurTextList.Assign(RETExtCur.Lines);
Metode.SpaceDelete (CurTextList)//удаление пробелов
RETextNew.Lines.Assign(CurTextList);
...
end;



Страницы: 1 вся ветка

Текущий архив: 2005.12.11;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.049 c
3-1130135969
vl
2005-10-24 10:39
2005.12.11
sql запрос


14-1132401904
Иксик
2005-11-19 15:05
2005.12.11
Очень странная проблема


4-1128974346
Silver...
2005-10-10 23:59
2005.12.11
"RegisterHotKey" - оставить и активному приложению...


3-1129707971
ruslan_as
2005-10-19 11:46
2005.12.11
При ClientDataSet1.Open ошибка "variant or safe array is locked"


14-1132484150
Separator
2005-11-20 13:55
2005.12.11
try ... except