|
#1
|
|||
|
|||
Перенос строки
Здравствуйте, пытаюсь сделать так, чтобы при достижении определённого количества символов в 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); но переносится после первого пробела. Подскажите пожалуйста как исправить. |