Необходимо реализовать небольшую программку с распорядком дня

[Bobick]

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

Странное какое-то расписание со временем по середине

Я имею в виду время по середине, которое трогать не надо.
Но вначале строки может быть два времени 08:00 10:00

[Лунатик222]

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

Я имею в виду время по середине, которое трогать не надо.
Но вначале строки может быть два времени 08:00 10:00

Значит перебирай определенное количество символов и до середины строки не дойдет перебор, делай перебор до определенного символа - разграничителя например "#"

[maladoy]

Но вначале строки может быть два времени 08:00 10:00

тогда что тебе даст вытаскивание первых 5 символов надо минимум 7 тащить

[Bobick]

Я тут прикинул - есть еще и другая проблема. В строке ведь может быть и три времени и больше... Чтобы не спутать время с другими числами, разумеется будет стоять символ ':' Но этот символ может встретиться в тексте (разумеется рядом с ним чисел не будет уже). Какой код нужно написать, чтобы наверняка выдрать из строки все числа с ЧЧ:ММ?

[maladoy]

юзай Бд и не каких проблем!

[Bobick]

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

юзай Бд и не каких проблем!

Никаких БД. Нужно именно на Дельфе написать.

[maladoy]

тогда нужно узнать чем отделяется время от действия и от этого плясать!

[Bobick]

Ничем не отделяется. Надо искать четыре цифры разделенные между собой символом ':' и плясать от этого. А как это сделать я не знаю

[Лунатик222]

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

Ничем не отделяется. Надо искать четыре цифры разделенные между собой символом ':' и плясать от этого. А как это сделать я не знаю

делаешь оброботчик типа if a[i]:=":" и a[i+1]:=1,2,3,4 ... и т д это при a:char

[Serge_Bliznykov]

примерная реализация:

const
 Digits=['0'..'9'];
var s : string;
  i: integer;
begin
  s := 'Примерно в 12:05 прийдёт приход и будет до 13:45, потой отпустит... :-)'; 
  for i:=3 to Length(s)-2 do
    if (s[i]=':') 
      and (s[i-2] in Digits) and (s[i-1] in Digits)  
      and (s[i+1] in Digits) and (s[i+2] in Digits) then
        WriteLn('FOUND TIME: '+Copy(s,i-2,5));
end.

Вместо WriteLn - своё действие!