Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 24.05.2009, 10:57   #1
Алексей_xXx
Пользователь
 
Регистрация: 29.04.2009
Сообщений: 54
Смущение Вывод в memo.lines значения R:=random

нАРОД ПОДСКАЖИ ПОЖАЛУСТА, КАК ВЫВЕСТИ ЗНАЧЕНИЕ В ПОЛЕ MEMO1.lINES?
Алексей_xXx вне форума Ответить с цитированием
Старый 24.05.2009, 11:19   #2
Neeter
Форумчанин
 
Аватар для Neeter
 
Регистрация: 22.02.2009
Сообщений: 875
По умолчанию

Замена выделенного текста или просто вставляется в позицию каретки.
Код:
procedure TForm6.Button1Click(Sender: TObject);
begin
 Memo1.SelText := IntToStr(Random(100));
end;
Вот замена первой строки:
Код:
procedure TForm6.Button2Click(Sender: TObject);
begin
 Memo1.Lines[0] := IntToStr(Random(100));
end;
Вот добавление в конец первой строки:
Код:
procedure TForm6.Button3Click(Sender: TObject);
begin
 Memo1.Lines[0] := Memo1.Lines[0] + IntToStr(Random(100));
end;
Везде используется значение random(100), что означает случайное значение между 0 и 100 включительно. Можете заменить на то что вам нужно
Чтобы обнаруживать ошибки, программист должен иметь ум, которому доставляет удовольствие находить изъяны там, где, казалось, царят красота и совершенство.

Последний раз редактировалось Neeter; 24.05.2009 в 11:24.
Neeter вне форума Ответить с цитированием
Старый 24.05.2009, 11:22   #3
Алексей_xXx
Пользователь
 
Регистрация: 29.04.2009
Сообщений: 54
По умолчанию

не мне надо в LInes чтоб по строкам выводило
Алексей_xXx вне форума Ответить с цитированием
Старый 24.05.2009, 11:26   #4
Neeter
Форумчанин
 
Аватар для Neeter
 
Регистрация: 22.02.2009
Сообщений: 875
По умолчанию

Добавляет строку
Код:
procedure TForm6.Button4Click(Sender: TObject);
begin
 Memo1.Lines.Add(IntToStr(Random(100)))
end;
Чтобы обнаруживать ошибки, программист должен иметь ум, которому доставляет удовольствие находить изъяны там, где, казалось, царят красота и совершенство.
Neeter вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

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

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Вывод в Memo Siluet Общие вопросы Delphi 18 17.04.2009 19:49
вывод меняющегося значения в ячейку zander Microsoft Office Excel 3 12.02.2009 11:19
Внести в БД значения из Memo Филлип БД в Delphi 2 23.11.2008 11:38
вывод в Memo под курсором Aleksandar Компоненты Delphi 5 22.10.2008 22:43
Вывод значения Febreze Общие вопросы Delphi 13 26.04.2008 07:47