Перенос строки

[Alex711]

Здравствуйте, пытаюсь сделать так, чтобы при достижении определённого количества символов в edit1 текст после последнего пробела переносился в edit2

if Length(Edit1.Text) > 23 then begin
  for i:=length(Edit1.Text) downto 1 do
  if Edit1.Text[i]= ' ' then
  Edit2.Text := copy(Edit1.Text, i+1, Length(Edit1.Text)-i);

но переносится после первого пробела.
Подскажите пожалуйста как исправить.

[Arigato]

После нахождения пробела надо прервать цикл с помощью break.

[Alex711]

Не получается.

[Arigato]

Не получается break написать?

[northener]

Там же еще и скобки ставить нужно

[Alex711]

Вот такая фигня получается когда текст доходит до 23-го символа.

[northener]

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

Вот такая фигня получается когда текст доходит до 23-го символа.

Тут нужно смотреть больше кода.

[Alex711]

Рабочий вариант:

 if Length(Edit1.Text) > 23 then
  for i:=23 downto 1 do
  if Edit1.Text[i]= ' ' then
  Break;
  Edit2.Text := copy(Edit1.Text, i+1, Length(Edit1.Text)-i);

Подсказали на другом форуме.

[Arigato]

Нехороший вариант. Лучше так:

 if Length(Edit1.Text) > 23 then
  for i:=23 downto 1 do
  if Edit1.Text[i]= ' ' then begin
    Edit2.Text := copy(Edit1.Text, i+1, Length(Edit1.Text)-i);
    Break;
  end;