Форум программистов, компьютерный форум, киберфорум
Delphi
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.95/39: Рейтинг темы: голосов - 39, средняя оценка - 4.95
Техник
315 / 173 / 26
Регистрация: 09.10.2009
Сообщений: 3,097
1

Memo: как сделать перенос строки в определенном месте?

23.06.2010, 08:29. Показов 7154. Ответов 2
Метки нет (Все метки)

Доброго времени суток. У меня небольшой вопросик, как можно сделать перенос строки в Memo в определенном месте, т.е. например нажимаем кнопочку, и в месте где есть точка, происходит перенос на следующую строку... ?

Добавлено через 8 минут
пробывал так:
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TForm1.Button1Click(Sender: TObject);
var S, Buff: String;
    i, Len: Integer;
begin
 
Len:=Length(Memo1.Text);
Buff:='';
for I := 1 to Len do
  begin
    if (Memo1.Text[i]<>'') then Buff:= Buff+Memo1.Text[i];
    if (Memo1.Text[i]='.') then
      Memo1.Text:= Buff+ #13+#10 + Memo1.Text;
  end;
end;
Добавлено через 18 секунд
но что то не так...
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
23.06.2010, 08:29
Ответы с готовыми решениями:

Перенос строки в memo HLP!
Здравствуйте всем! Я еще новичок:-| и только недавно начал изучать делфи. Я начал делать базу...

Как зафиксировать Label если он находится в определенном месте (Delphi)
Как сделать так, чтобы когда Label находится в пределах рамки, он зафиксировался ровно посередине?

Memo: перенос строки по запятой и добавление записи
Добрый день! есть задача перенести записи в memo после запятой. procedure...

Разделить заданный текст на строки, содержащие не более 20 символов. Перенос осуществляется на месте пробе
Разделить заданный текст на строки, содержащие не более 20 символов. Перенос осуществляется на...

2
Модератор
63727 / 47279 / 32585
Регистрация: 18.05.2008
Сообщений: 114,597
23.06.2010, 08:42 2
Pascal
1
2
3
4
5
6
7
8
9
procedure TForm1.Button1Click(Sender: TObject);
var s:string;
    i:integer;
begin
s:=Memo1.Text;
for i:=length(s)downto 1 do
if s[i]='.' then insert(#13+#10,s,i+1);
Memo1.Text:=s;
end;
2
Техник
315 / 173 / 26
Регистрация: 09.10.2009
Сообщений: 3,097
23.06.2010, 08:43  [ТС] 3
Puporev, спасибо, то что нужно)))
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
23.06.2010, 08:43

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Как сделать так, чтобы Memo появлялось поверх остальных Memo?
как сделать так чтобы memo появлялось поверх остальных memo

Как сделать, чтобы при выборе определенной строки в ComboBox, текстовое содержимое отображалось на memo?
Доброго времени суток, форумчане Подскажите, как сделать, чтобы при выборе определенной строки в...

Позиционирования окна приложения Delphi в определенном месте
Здравствуйте. Скажите пожалуйста как можно позиционировать форму Delphi в определенном месте. Может...

Как сделать автоматическую ротацию картинок в определенном месте страницы?
Мне необходимо, чтобы около 30 картинок сменяли друг друга каждые 1-2 секунды, без перезагрузки...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.