Знак переноса. RichEdit.

[Lazio]

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

Хотелось бы для понимания получить функцию которая в Edit получает длину строки и потом начиная с конца ищет первую гласную из множества (как это реализовать? enum вроде не кактит ) ставит после неё знак переноса и переносит всё что после заданной длины на новую строку, а потом также заново и для след. строки.

void __fastcall TForm1::Button1Click(TObject *Sender)
{
int StartPos, Position, Endpos;


AnsiString SearchText = 'е';

StartPos = StrToInt(Edit1->Text);
Endpos = RichEdit1->Text.Length();

while (Position!=-1)

{

Endpos = RichEdit1->Text.Length() - StartPos;
Position = RichEdit1->FindText(SearchText, StartPos, Endpos, TSearchTypes()<< stMatchCase);

RichEdit1->SelText='\n';
RichEdit1->SelStart = Position;
RichEdit1->SelLength = SearchText.Length();

StartPos = Position+SearchText.Length();
}

[Skrip]

попробуй организовать массив содержащий гласные. Сверяясь с ним определяешь надо делать перенос или нет. Ну а с переносом думаю справишься (работа со строками).

[Lazio]

то есть работаем через char * ?

[Lazio]

Кто нибудь подскажет как удалить в строке char * все знаки \n и заменить их на пробелы и ещё как в опр. позицию вставить знак переноса не сместив весь остальной текст?