Перенос слов

[Maxs]

Как переносить слова, разрывая их в конце текстового поля, остальное слово переносится на новую строчку, можно не по слогам. У меня сейчас стои мемо, но мне без разницы какое будет текстовое поле, можно лабел, едит или есть какой-то компонент с такой функцией?
В инете находил все одну и ту же функцию для этого, но при запуске программы с ней выскакивает ошибка.
Или как можно организовать такой алгоритм?:
For i:=Начало_текста_Memo to Конец текста_Memo do
if Количество символов не влезает в мемо then
Перенести на следующую строку невлезающие символы.

[Sazary]

Что-то не понял.

Перенести на следующую строку невлезающие символы.

Так ведь в Мемо и так по умолчанию переносится. За это отвечает свойство WordWrap.

[ArtInt]

конечно для этих целей лучше использовать WordWrap.
Но если хочется принудительно сделать переносы, то можно примерно так

procedure TForm1.Button1Click(Sender: TObject);
var
nach,i,k: integer;
str: string;
begin
str:='Выполняет поиск файла в указанных каталогах. Параметр Name определяет имя искомого файла, а параметр DirList - список каталогов';
nach:=1;
k:=25;  ///количество символов в одной строке
  for i:=1 to length(str) do
  begin
    if i=k then
    begin
      memo1.lines.add( copy(str,nach,k)+#13);
      nach:=k+1;
      k:=k+25;
    end;

  end;
end;

[Maxs]

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

Что-то не понял.

Так ведь в Мемо и так по умолчанию переносится. За это отвечает свойство WordWrap.

Дак мне надо чтобы слово переносилось, например:
Слова должны перенос|
иться вот так, разрыва|
ясь, если не влезает в|
поле. |

[Maxs]

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

конечно для этих целей лучше использовать WordWrap.
Но если хочется принудительно сделать переносы, то можно примерно так

procedure TForm1.Button1Click(Sender: TObject);
var
nach,i,k: integer;
str: string;
begin
str:='Выполняет поиск файла в указанных каталогах. Параметр Name определяет имя искомого файла, а параметр DirList - список каталогов';
nach:=1;
k:=25;  ///количество символов в одной строке
  for i:=1 to length(str) do
  begin
    if i=k then
    begin
      memo1.lines.add( copy(str,nach,k)+#13);
      nach:=k+1;
      k:=k+25;
    end;

  end;
end;

Это почти то,что надо. только оно немного не правильно работает. 3 строчка копировалась на следующую, но на 2 не удалилась.

[Maxs]

Не могу эту функцию настроить нормально.

[ArtInt]

Вот исправленный вариант, если строка = 25 символов.
Исправить надо было в copy(str,nach,25) -где str вся строка, nach- c какого символа копировать, 25 - количество скопированных символов.

var
nach,i,k: integer;
str: string;
begin
str:='Выполняет поиск файла в указанных каталогах. Параметр Name определяет имя искомого файла, а параметр DirList - список каталогов';
nach:=1;
k:=25;  ///количество символов в одной строке
  for i:=1 to length(str) do
  begin
    if i=k then
    begin
      memo1.lines.add( copy(str,nach,25)+#13);
      nach:=k+1;
      k:=k+25;
    end;

  end;
end;

[Maxs]

Спасибо, но при изменении количества символов в строке опять все сбивается. Меняю все(3) 25 на 50. И при изменении шрифта это не будет работать.

[ArtInt]

Странно изменял параметры все работает нормально, выкладывай исходный код как изменял.

var
nach,i,k: integer;
str: string;
begin
Memo1.Font.Name:='Arial Black';

str:='Выполняет поиск файла в указанных каталогах. Параметр Name определяет имя искомого файла, а параметр DirList - список каталогов';
nach:=1;
k:=50;  ///количество символов в одной строке
  for i:=1 to length(str) do
  begin
    if i=k then
    begin
      memo1.lines.add( copy(str,nach,50)+#13);
      nach:=k+1;
      k:=k+50;
    end;

  end;
end;