Форум программистов, компьютерный форум, киберфорум
Наши страницы

Delphi для начинающих

Войти
Регистрация
Восстановить пароль
 
 
Firsts
1 / 1 / 0
Регистрация: 30.08.2010
Сообщений: 25
#1

таймер&memo - Delphi

16.01.2011, 11:56. Просмотров 769. Ответов 19
Метки нет (Все метки)

Просьба ,сильно не ругаться , только начал изучать язык программирования

как сделать по событию таймера
в эдит записывался результат из мемо ,у меня почему то записывается всегда последняя строка
хотя их 10

Delphi
1
2
 i:= Memo1.Lines.Count - 1 ;
 Edit1.Text := Copy(Memo1.Lines.Strings[i], 1, Pos(';',Memo1.Lines.Strings[i]) - 1);
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
16.01.2011, 11:56
Я подобрал для вас темы с готовыми решениями и ответами на вопрос таймер&memo (Delphi):

edit & memo - Delphi
Всем привет) У меня есть программа поиска по словарю синонимов(линейный взял, хоть и долго, но самый простой), вообщем слово то он находит,...

Memo & UTF-8 - Delphi
В общем закинул текстовый файл(LogUpdates.txt) в файловый менеджер, обычный ucoz, написал в файле разную инфу, естественно на русском, в...

Drag&Drop: перенос и копирование выделенных фрагментов и всего текста между тремя компонентами Memo - Delphi
Здравствуйте. Есть задание: Реализовать перенос и копирование выделенных фрагментов и всего текста между тремя компонентами TMemo. Текст...

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

Разбить поровну содержимое Memo между четырьмя другими Memo - Delphi
Здравствуйте, уважаемые форумчане! Я в delphi новичок совсем, только основы осваиваю, так сказать... Ну, не в этом суть. В общем у меня...

Получение номера взятой строки из memo, содержимое которой вставлено рандомно в memo - Delphi
Вообщем есть текстовый файл, из которого берутся все строки, вставляются в memo, а из memo уже в переменную, берущую рандомную строку и...

19
Mad_Dog
Фрилансер
449 / 430 / 27
Регистрация: 01.06.2010
Сообщений: 1,315
16.01.2011, 13:10 #16
Я же тебе писал, используй с-во Tag у Мемы и в обработчике таймера меняй его от Memo.Lines.Count-1 до -1, выбирай строку из Мемы по значению таг и помещай ее в Эдит... Тренируйся, иначе не научишься...

Tmp.rar
1
*~<`PIK`>~*
ﻌﺹ ﺦ ﺖﻀ ﺹ ﻙ ﺵﻔ ﺊ ﺘﺝ
606 / 386 / 18
Регистрация: 15.12.2009
Сообщений: 753
16.01.2011, 15:00 #17
Delphi
1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled:=not Timer1.Enabled;
i:=Memo1.Lines.Count-1;
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Edit1.Text := Copy(Memo1.Lines.Strings[i], 1, Pos(';',Memo1.Lines.Strings[i]) - 1);
i:=i-1;
end;
0
Mad_Dog
Фрилансер
449 / 430 / 27
Регистрация: 01.06.2010
Сообщений: 1,315
16.01.2011, 15:05 #18
*~<`PIK`>~*, использование глобальных переменных в разных процедурах - порочная практика программирования... ИМХО.
Да и до каких пределов будет уменьшаться i? Пока не возникнет исключительная ситуация? А она неизбежна в твоем коде!!!
0
*~<`PIK`>~*
ﻌﺹ ﺦ ﺖﻀ ﺹ ﻙ ﺵﻔ ﺊ ﺘﺝ
606 / 386 / 18
Регистрация: 15.12.2009
Сообщений: 753
16.01.2011, 15:16 #19
Цитата Сообщение от Mad_Dog Посмотреть сообщение
порочная практика программирования
При нажатии Кнопки сначала выключается таймер а потом изменяется переменная так-что все нормально.
Цитата Сообщение от Mad_Dog Посмотреть сообщение
Да и до каких пределов будет уменьшаться i?
Ну я думаю что это Firsts и сам сможет продумать. Не писать же ему весь код, пусть учится.
0
Mad_Dog
Фрилансер
449 / 430 / 27
Регистрация: 01.06.2010
Сообщений: 1,315
16.01.2011, 15:19 #20
Цитата Сообщение от *~<`PIK`>~* Посмотреть сообщение
При нажатии Кнопки сначала выключается таймер а потом изменяется переменная так-что все нормально.
Ага, и пока таймер молотит переменная i все меньше и меньше... И становится уже меньше 0, выходя за пределы Memo.Lines.Count, которое не может быть меньше 0...
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
16.01.2011, 15:19
Привет! Вот еще темы с ответами:

Показать один из компонентов memo поверх остальных memo - Delphi
как сделать так чтобы memo появлялось поверх остальных memo === вот представь что у меня куча кнопок с мемо (в каждом мемо...

Перенести данные из memo в одной форме в memo в другой - Delphi
Как перенести данные из memo в одной форме в memo в другой?

Как из memo вывести в listbox все слова, которые начинаются на ту же букву, что и последнее слово из memo? - Delphi
и при этом сохранить порядок слов которые были в memo

Из DBGrid в memo, из memo печать - Delphi
Помогите, нужен обработчик который будет переносить всю строку из DBGrid в memo, а из memо я мог распечатать FastReportом 4.0


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

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

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