Модераторы: Snowy, MetalFan, bems, Poseidon
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Размножить слова, Работа с текстом 
V
    Опции темы
Canada
  Дата 3.7.2009, 22:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 153
Регистрация: 9.2.2009

Репутация: нет
Всего: нет
Здравствуйте, помогите пожалуйста.
В memo1 загружается список слов. На каждой строке по 1 слову.
В edit вводится число. Надо сделать так, чтобы Число\Количество слов memo1. И это будет у нас количество для каждого слова из memo1. В memo2 Составить этот ряд. Пример:

Memo1:          Edit: 12 

Слово1
Слово2
Слово3
Слово4

12/4=3

Результат 
Memo2:

Слово1
Слово1
Слово1

Слово2
Слово2
Слово2

Слово3
Слово3
Слово3

Слово4
Слово4
Слово4

Понимаете? Помогите кодом пожалуйста. Очень надо.
PM MAIL   Вверх
V0LT
Дата 3.7.2009, 23:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 91
Регистрация: 16.6.2009

Репутация: нет
Всего: 2
А ларчик просто открывался  smile 
Код
procedure TForm1.Button1Click(Sender: TObject);
var
  i,j:Integer;
begin
  for i:=0 to Memo1.Lines.Count-1 do
  begin
    for j:=1 to StrToInt(Edit1.Text) div Memo1.Lines.Count do
      Memo2.Lines.Add(Memo1.Lines.Strings[i]);
    Memo2.Lines.Add('');
  end;
end;


Пардон - поспешил чуть чуть ... теперь поправил ... теперь работает  smile 

Это сообщение отредактировал(а) V0LT - 3.7.2009, 23:24
PM MAIL ICQ   Вверх
Canada
Дата 4.7.2009, 12:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 153
Регистрация: 9.2.2009

Репутация: нет
Всего: нет
 smile  Спасибо большое. День ужасный был. Вообще сил не было. Спасибо!
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Для новичков | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0384 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.