Цикл do while при работе со строками.

[Lazio]

Это опять я) вот продвигаюсь потихоньку. Столкнулся с проблемой абзацного членения текста, а именно хочу слить каждый абзац текста в отдельную строку RichEdit1->Lines->Strings[строка]

вот что есть

AnsiString Temp;

do{

for (int i=0; i<=RichEdit1->Lines->Count; i++){

Temp+=RichEdit1->Lines->Strings[i]+' ';



}

for (int i=0; i<=RichEdit1->Lines->Count; i++){
 RichEdit1->Lines->Strings[i+1]=' ';
}



 RichEdit1->Lines->Strings[0]=Temp;
} while ()

что поставить в while чтобы при достижении знака табуляции всё заканчивалось и как задать цикл, чтобы работало как то так:

Красная строка текст текст
текст текст бла бла.
Красная строка2. текст ляля
бубуqwerty).

а в итоге получалось вот так:

Красная строка текст текст текст текст бла бла. // Strings[0]
Красная строка2. текст лялябубуqwerty). // Strings[1]

[psycho-coder]

Например вот так:

  RichEdit1->Text = StringReplace(RichEdit1->Text, '\n', " ", rfReplaceAll);

[Lazio]

не. это походу сольет все 4 строки в одну) а мне надо именно по знаку отступа строки

[psycho-coder]

Ну вот как то так (по идее):

AnsiString tmp = "";
int index = 0
while (true)
{
	if (RichEdit1->Lines->Strings[index][1] == '\t')
		while (true)
		{
			if (RichEdit1->Lines->Strings[index+1][1] != '\t')
			{
				tmp = RichEdit1->Lines->Strings[index] + " " + RichEdit1->Lines->Strings[index+1];
				index++;
			}
			else break;
		}
	if (index >= RichEdit1->Lines->Count - 1) break;
}

P.S. Проверить не могу, Builder'a нет

[Lazio]

уже ничего но где то вылетаем за пределы или что-то такое) т.к. программа просто виснет)

мож кто ещё зайдет в тему?

[psycho-coder]

Трассировкой пройдись

[Lazio]

А как конечный текст ну выровнять по заданной ширине ну типа по аналогии кнопки в Word'е

[psycho-coder]

Как по ширине не знаю, но по краю можно так:

RichEdit1.Paragraph.Alignment := taRightJustify;
//taLeftJustify
//taRightJustify
//taCenter

Или в инспекторе объектов