Работа с Мемо

[Fahman]

Всем доброго времени суток) Чет форум молчит Решил я создать одну тему, у меня задача такая...
есть Мемо и в нем я спарсил текст.... Например он будет таким...
13:00
14:35
15:23
16:30

Это время, как мне обратиться к каждой строке? Я хочу чтоб когда время которое записано в Мемо и время на компе сходилось чтоб программа делала некое действие, это будет на подобие будильника.... Каждый день разное время...

[raxp]

http://programmersforum.ru/showthread.php?t=252512
рука дрогнула?

[Fahman]

Сообщение от raxp

http://programmersforum.ru/showthread.php?t=252512
рука дрогнула?

Нет, извините чет с интернетом произошло и так получилось...

[eval]

все неправильно

[alextrof94]

Ты же вроде спрашивал подобную фигню 2-3 недели назад... Поищи по форуму.
Юзай TTimer, TTime массив для хранения времени и просто сравнивай этот массив с функцией Now.

[Fahman]

Сообщение от alextrof94

Ты же вроде спрашивал подобную фигню 2-3 недели назад... Поищи по форуму.
Юзай TTimer, TTime массив для хранения времени и просто сравнивай этот массив с функцией Now.

Чет я не помню что спрашивал, сравнить я хочу с label1 там будет показывать время...
К примеру текущее всермя в label 12:59 а в мемо записано так
13:00
14:00
15:00
И т.д.
и код поставить на таймер чтоб каждые 10 сек проверял например настало 13:00 то выполнялось действие, 1 раз ну действие я сам сделаю и чтоб программа при наступлении 14:00 выполнила то же самое действие.... Все очень просто)

[Прик]

Если "все очень просто", то почему появились вопросы и тема?
Обращение к отдельной строке мемо, действительно, очень просто: Memo1.Lines[I]; (где I - переменная цикла).
Проблема появляется когда требуется выполнить действие "1 раз".
Время в течении минуты не меняется, а интервал таймера 10 секунд.
Следовательно, действие будет выполнено не один раз, а до 5 раз.
Нужен какой-то ограничитель количества выполнений действия.

[Stilet]

Без ограничителей повторов:

procedure TForm1.Timer1Timer(Sender: TObject);
var i:integer;
begin
 i:=Memo1.Lines.IndexOf(TimeToStr(time));
 if i<>-1 then begin
   i указывает на строчку в мемо, в которой найдено текущее время
 end;
end;

Годится?

[Fahman]

Сообщение от Stilet

Без ограничителей повторов:

procedure TForm1.Timer1Timer(Sender: TObject);
var i:integer;
begin
 i:=Memo1.Lines.IndexOf(TimeToStr(time));
 if i<>-1 then begin
   i указывает на строчку в мемо, в которой найдено текущее время
 end;
end;

Годится?

Спасибо, буду дома проверю....=) если что отпишусь)
Все работает, просто класс) только мне надо будет Timetostr сделать так чтоб без секунд показывала, это я сам) где-то урок есть сделаю... Спасибо еще раз...

[Stilet]

i:=Memo1.Lines.IndexOf(FormatDateTime('hh:nn',time));