Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 22.06.2008, 21:57
Аватар для Electronic_Arts
Electronic_Arts Electronic_Arts вне форума
Местный
 
Регистрация: 13.07.2006
Адрес: на земле
Сообщения: 562
Версия Delphi: Delphi 11
Репутация: 18
Восклицание Добавление слово в конец текста

Как добавить слово в конец текста - а не в новую строку?
Ответить с цитированием
  #2  
Старый 22.06.2008, 22:27
san-46 san-46 вне форума
Активный
 
Регистрация: 25.04.2008
Сообщения: 383
Репутация: 33
По умолчанию

"Текст" в Delphi (если вопрос касается Delphi) - это принадлежность какого-то компонента. Нельзя ли уточнить, какого?
__________________
Не забывайте делать резервные копии
Ответить с цитированием
  #3  
Старый 23.06.2008, 13:48
Аватар для Electronic_Arts
Electronic_Arts Electronic_Arts вне форума
Местный
 
Регистрация: 13.07.2006
Адрес: на земле
Сообщения: 562
Версия Delphi: Delphi 11
Репутация: 18
Восклицание

Cори - да это косаеться Дельфи - компонента Мемо
Загружем текст и в конец добавляем слово - так как этот компонент не будет виден вовремя работы..
Все это произойдет нажатием на Button
Ответить с цитированием
  #4  
Старый 23.06.2008, 14:38
san-46 san-46 вне форума
Активный
 
Регистрация: 25.04.2008
Сообщения: 383
Репутация: 33
По умолчанию

Нет проблем.
Код:
  Memo1.Lines.Text := Memo1.Lines.Text + <слово или чего угодно>;
Lines.Add добавляет слова (строку) в список и этот список потом интерпретируется как строки с разделителем строки (#13#10), а при таком добавлении как показано выше, разделители не добавляются.
__________________
Не забывайте делать резервные копии

Последний раз редактировалось san-46, 23.06.2008 в 14:40.
Ответить с цитированием
  #5  
Старый 23.06.2008, 20:56
Аватар для Electronic_Arts
Electronic_Arts Electronic_Arts вне форума
Местный
 
Регистрация: 13.07.2006
Адрес: на земле
Сообщения: 562
Версия Delphi: Delphi 11
Репутация: 18
Восклицание

Спасибо за разеснение - вот появилься еще один вопрос - а как удалить именно то слово которую ты добавил после текста
я хотел попробывать так но ничего не выходит
Код:
var
i:integer;
begin
 for i:=0 to memo1.lines.count-1 do 
   if memo1.lines[i]= ' Jumper ' then
    memo1.lines.delete(i);
    break;
end;
Ответить с цитированием
  #6  
Старый 23.06.2008, 21:08
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,029
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

Если слово больше не встречается в тексте, то с помощью StringReplace на Memo1.Lines.Text. Если встречается, то работать со строкой Memo1.Lines[Memo1.Lines.Count-1] (если ты добавлял именно в конец текста).
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 14:30.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter