Архив форумов ЦИТФорума

[den2000]

Помогите с сабжем, пожалуйста...

[Виталий]

Точнее перенос по словам.
Берешь компонент TMemo, задаещь ему:
Visible=false; // Это понятно
WordWrap=true; // Перенос по словам
Font->Name="Courier"; // Пропорционалн.шрифт
Font->Size=10; // К примеру 10
Width=(10/2)*50;// 10-высота шрифта
// 50-мах к-во символ.в строке
Lines->Text="Нужный текст";

После этого текст разобьется на строки. В каждой строке будет определенное количество слов, общее количество символов не более 50.
Количество строк будет Lines->Count.
Содержание i-той строки можно получить через
Lines->Strings[i];

[den2000]

Спасибо, но мне бы вручную через обработку строковых переменных...

С уважением, DeN.

[SAV]

Непонял - где подвох-то??
1. задаешь кол-во символов на одной строке
2. пишешь функцию, которая вытаскивает слово из строки
3. считаешь длину этого слова, прибавляешь к счетчику
4. если счетчик > (1) тогда переходишь на новую строку
или я что-то неправильно понял?

[den2000]

Мне нужен перенос по слогам как в Word'е, а не по словам.

С уважением, DeN.

[SAV]

Ну ВЕДЬ все то же самое, только вместо функции, возвращающей слово д.б. функция, возвращающая слог, едиинственное что, д.б. флаг на случай если надо ставить тире припереносе. Я думаю такую функцию не сложно будет написать.

[den2000]

Я понял, мне нужна банальная вещь: разбиение слова на слоги. Не подсобите с алгоритмом?

С уважением, DeN.