Главная страница
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.043 c
2-1132550083
Alex7
2005-11-21 08:14
2005.12.11
"DBLookupComboBox".


14-1132659449
Quadro
2005-11-22 14:37
2005.12.11
Требуется довести до ума небольшую программу на Дельфи 7


2-1132935900
crazycrazymax
2005-11-25 19:25
2005.12.11
В консоли кириллица выводится криво, как это лечить?


2-1132769705
Plotnick
2005-11-23 21:15
2005.12.11
FormatFloat


5-1116420936
Priest
2005-05-18 16:55
2005.12.11
Регистрация своего расширения в DreamDesigner