копирование текста из Edit в RichEdit

[.Phoenix]

Strings.Clear;
 Strings.Add('[TITLE SIZE='+IntToStr(TitleSize)+']'+Title+'[/TITLE]');
 Strings.Add('[DESCTRIPTION SIZE='+IntToStr(DescSize)+']'+Description+'[/DESCTRIPTION]');

По моему, может я ошибаюсь но все равно выскажусь, это лишь добавит новую строку. Но исходя из данного приложения, нам необходимо только вставить/добавить одну строку на определённую позицию другой, почему определённую позицию, потому что в "Готовый шаблон" там имеются ещё и BB-коды, которые тоже надо просчитать

[Rebel123]

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

оо либо я чего то не понимаю, либо одно из двух.. кто програму то пишет?
куда тебе надо туда и вставляй...

Программу пишу я).....что значит "куда тебе надо туда и вставляй"...по моему вы меня не так поняли)

По-моему въехал в тему...Но можно же ведь было раньше так объяснить...
У меня есть одна идея, попробуй ею воспользоваться - надеюсь ты знаешь или слышал про оператор вставки Insert(s1,s2,position). Поясню...
s1 вставляемая строка, т.е. ту, что ты хочешь вставить
s2 Строка, в которую ты хочешь вставить
position с какой позиции строки s2 нужно вставить строку s1.
К примеру, пусть Edit1.text, где должно нах-ся Название фильма мы назовём Заголовок, то при нажатии(при переходе)
на "Готовый шаблон" оно будет выполнять следующую операцию
1. Высчитаем нужную нам позицию между BB=кодами
Цитата:
(size=5)(b) Здесь будет располагаться Название фильма(/b)(/size)
(использовал скобки вместо квадратных...)
Часть строки
Цитата:
[size=5][b]
имеет длину 11, я так посчитал, думаю посчитал правильно, если что сорри
2. Вставим нужную строку Insert(Заголовок,Куда надо вставить, с какой позиции)
Но чтобы вставитьв определённую строку, используй свойство Lines в цикле, чтобы иметь доступ как к строке, т.е.
Цитата:
Строка:=Линии(i)
И так далее, возможно будут мнения куда рациональней и лучше чем моя идея, но буду рад услышать, тех кто придумает код куда похитрее чем я...
Надеюсь я правильно тебя понял...

Phoenix спасибо большое, сейчас буду в коде ковыряться !

[Пепел Феникса]

По моему, может я ошибаюсь но все равно выскажусь, это лишь добавит новую строку.

нет.
вы хоть бы внимательно смотрели код, прежде чем осуждать его.
он переформирует текст по новой.
можно хоть для каждой строки сделать такое.

[russian-stalker]

Что-нть типа этого я бы сделал:

var
   i:integer;
begin
   for I := 0 to Memo1.Lines.Count - 1 do
     if pos('size',memo1.Lines[i])<>0 then
        break;
   memo1.Lines[i]:='(size=5)(b)'+edit1.Text+'(/b)(/size)'
end;

[Rebel123]

вот что получилось и не помогло:

procedure TForm2.TabSheet6Show(Sender: TObject);
var
i:Integer;
begin
Button2.Enabled:=False;
Button3.Enabled:=True;
begin
for i := 0 to RichEdit3.Lines.Count - 1 do
if pos('size',RichEdit3.Lines[i])<>0 then  break;
RichEdit3.Lines[i]:='(size=5)(b)'+edit2.Text+'(/b)(/size)'; // здесь я заменил овальные скобки на квадратные, потому что у меня RichEdit3.Lines именно квадратные скобки
end;
end;

Вот прога которую писали до меня! у него все работает, то есть по моему он не парился как я с этим копированием текста из Edit в RichEdit он просто заюзал Ini
Посмотрите пожалуйста эту прогу, и скажите мне правда ли с Ini можно обойтись без этого гемора?!

Сообщение от Пепел Феникса

допустим формируется так:


в коде делаем процедуру:

procedure FillText(Strings:TStrings;Title:string='';Description:string='';TitleSize:integer=0;DescSize:integer=0);
begin
 Strings.Clear;
 Strings.Add('[TITLE SIZE='+IntToStr(TitleSize)+']'+Title+'[/TITLE]');
 Strings.Add('[DESCTRIPTION SIZE='+IntToStr(DescSize)+']'+Description+'[/DESCTRIPTION]');
end;

потом просто её вызываем когда надо обновить данные...как параметры берем значения эдитов...иль че там нужно.

немного не до пер! можете пожалуйста по подробнее, или посоветуйте книгу где объясняется как можно скопировать текст с Edit в Memo или RichEdit (ye или что то в этом роде)

[Пепел Феникса]

вот пример, процедуру можно переделать практически как угодно...хоть то что будут тэги(или части) только если есть чем заполнить его.

[Rebel123]

здесь у меня ошибка в коде! не знаю почему! в Словах FillText

procedure TForm2.FormCreate(Sender: TObject);
begin
FillText (RichEdit3.Lines);
end;

procedure TForm2.TabSheet5Show(Sender: TObject);
begin
Button3.Enabled:=True;
Button2.Enabled:=True;
FillText(RichEdit3.Lines,Edit1.Text,Edit2.Text,SpinEdit1.Value,SpinEdit2.Value);
end;

Главное то что тут все в порядке:

procedure FillText (Strings:TStrings;Title:string='';Description:string='';TitleSize:integer=0;DescSize:integer=0);
begin
 Strings.Clear;
 Strings.Add('[TITLE SIZE='+IntToStr(TitleSize)+']'+Title+'[/TITLE]');
 Strings.Add('[DESCTRIPTION SIZE='+IntToStr(DescSize)+']'+Description+'[/DESCTRIPTION]');
end;

Не можете вы ли мне подсказать в чем может быть проблема в Filltext на Form2.Create и на TabSheet5.Show?

Все, я разобрался спасибо!!