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

Delphi Sources



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

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 21.11.2007, 16:59
Аватар для Marsh123
Marsh123 Marsh123 вне форума
Прохожий
 
Регистрация: 21.11.2007
Сообщения: 8
Репутация: 10
Вопрос Вопрос по Memo

Как вставить в мемо , например такой текстпри нажатии на кнопку)
Код:
Свадебный процесс состоит из 2 частей:
Первая часть - предложение пожениться (engage)
1- таргет на будущего супруга
2- прописываем .engage
3- до этого нужно быть у друг друга в friend list (/friendinvite)
4- нажимаем "ok" и вы помолвлены
Вторая часть - собственно женидьба
1- идем к l2weddingmanager и просим его поженить вас
2- партнер тоже должен поговорить с l2weddingmanager и нажать confirm
3- Поздравляю, вы поженились.
Теперь вам можно использовать функцию .gotolove , с помощью которой вы немедленно телепортируетесь к партнеру.
Чтобы развестить просто пропишите .divorce

Также прописать в конфиге 
Цитата: 
#Allow Wedding AllowWedding = True #------------------------------------------------------------- # Weddings config 
#------------------------------------------------------------- # Price in Adena WeddingPrice = 500000 # Punish Infidelity WeddingPunishInfidelity = True # 
Allow couple teleports WeddingTeleport = True # Couple Teleport price WeddingTeleportPrice = 500 # Couple Teleport tme in seconds 
WeddingTeleportInterval = 120 # Same Sex Marriage  WeddingAllowSameSex = True # Formal Wear needed ?  WeddingFormalWear = 
True # Divorce Costs in %  WeddingDivorceCosts = 20  
Ссылка на файл для сервера: 
http://ifolder.ru/836358  
--------------
Патч : 
http://ifolder.ru/836566

ПС НО НЕ ИЗ ФАЙЛА и если вставлять по линии из этого текста то это очень долго , тк таких текстов много .. Помогите плз!
ПС Lines.Text тоже не хочет работать , когда в тексте есть перехды на следующую строку!

Последний раз редактировалось Marsh123, 21.11.2007 в 17:02.
Ответить с цитированием
  #2  
Старый 21.11.2007, 18:00
Аватар для Winny
Winny Winny вне форума
Продвинутый
 
Регистрация: 26.05.2007
Адрес: Планета земля, Россия, Москва
Сообщения: 620
Репутация: 30
По умолчанию

Можно так:
Код:
Memo1.Lines.Add('1-я строка'+#13+'2-я строка'+#13+'3-я строка и т.д.');
#13 - кнопка Enter, то есть переход на следующую строку.
__________________

Ответить с цитированием
  #3  
Старый 21.11.2007, 18:20
Аватар для Marsh123
Marsh123 Marsh123 вне форума
Прохожий
 
Регистрация: 21.11.2007
Сообщения: 8
Репутация: 10
По умолчанию

А есть варианты , чтобы просто вставить текст и всЕ? , а то у меня 100 таких текстов и в некотрыз 1000 строк .. Помоему это УЖАСНО долго делать по линиям !
Ответить с цитированием
  #4  
Старый 21.11.2007, 19:40
Аватар для Winny
Winny Winny вне форума
Продвинутый
 
Регистрация: 26.05.2007
Адрес: Планета земля, Россия, Москва
Сообщения: 620
Репутация: 30
По умолчанию

Самый удобный способ - это файлы. Решай сам.
__________________

Ответить с цитированием
  #5  
Старый 21.11.2007, 22:34
Аватар для Marsh123
Marsh123 Marsh123 вне форума
Прохожий
 
Регистрация: 21.11.2007
Сообщения: 8
Репутация: 10
По умолчанию

Знаешь почему я не хочу юзать файлы? я боюсь что их могут изменить .. Может предложишь какуют защиту или шифрацию для новичка ?!
Ответить с цитированием
  #6  
Старый 22.11.2007, 05:35
Аватар для Aristarh Dark
Aristarh Dark Aristarh Dark вне форума
Модератор
 
Регистрация: 07.10.2005
Адрес: Москва
Сообщения: 2,907
Версия Delphi: Delphi XE
Репутация: выкл
По умолчанию

У объекта TStrings (строчки в TMemo) кроме метода LoadFromFile есть метод LoadFromStream.
Ответить с цитированием
Ответ


Delphi Sources

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

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

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

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


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


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

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