ТВ-программа

[ARXangel]

Доброго времени суток!
В своей работе сталкиваюсь с обработкой телепрограммы для газеты. В инете видел программу специально для этого. И хочу разобраться как сделать такую в Delphi.
К примеру
До обработки…
4.55 НТВ утром.
8.30 Следствие вели...
9.30 Чрезвычайное происшествие.
10.00 Сегодня.
10.20 Чистосердечное признание.
10.55 "До суда".
12.00 Суд присяжных.
13.00 Сегодня.
13.25 "Прокурорская проверка".
14.40 Давайте мириться!
15.30 Чрезвычайное происшествие.
16.00 Сегодня.
16.30 Т/с "Улицы разбитых фонарей".
18.30 Чрезвычайное происшествие.
19.00 Сегодня.
19.30 Т/с "Тульский - Токарев".

После после…
4.55 НТВ утром.
8.30 Следствие вели...
9.30, 15.30, 18.30 Чрезвычайное происшествие.
10.00, 13.00, 16.00, 19.00 Сегодня.
10.20 Чистосердечное признание.
10.55 "До суда".
12.00 Суд присяжных.
13.25 "Прокурорская проверка".
14.40 Давайте мириться!
16.30 Т/с "Улицы разбитых фонарей".
19.30 Т/с "Тульский - Токарев".
И так нужно обработать семь дней недели, которые в одном файле.

Вот код который у меня есть, но он записывает все в первый день недели (т.е.) в понедельник.

procedure TForm1.Button1Click(Sender: TObject);
var
 i, i1, i2: integer;
 s: string;
 TimeName : array[0..99] of TimeAndName;
 sFFT : array[0..99] of FFT;
 b : boolean;
begin
  for i := 0 to ListBox1.Count-1 do
  begin
    s := ListBox1.Items.Strings[i];
    TimeName[i].Time := Copy(s, 1, pos(' ', s));
    TimeName[i].Name := Copy(s, pos(' ', s), Length(s));
 
    for i1 := 0 to ListBox1.Count-1 do
    begin
      if pos(TimeName[i].Name, ListBox1.Items.Strings[i1]) > 0 then
      begin
        b := false;
        for i2 := 0 to ListBox2.Count-1 do
        if pos(TimeName[i].Name, ListBox2.Items.Strings[i2]) > 0 then b := true;
 
        if b = false then
        begin
          s := ListBox1.Items.Strings[i1];
          sFFT[i].Times := sFFT[i].Times + ', ' + Copy(s, 1, pos(' ', s));
          sFFT[i].Name  := Copy(s, pos(' ', s), Length(s));
        end;
      end;
    end;
 
    if sFFT[i].Name <> '' then
    ListBox2.Items.Add(Copy(sFFT[i].Times, 3, Length(sFFT[i].Times)) + sFFT[i].Name);
  end;
 
end;

Поскажите как разбить, чтоб обрабатывал все в своем дне недели.

[raxp]

разве ответ AltaVista не удолетворил?

[ARXangel]

Более чем. Большие объемы, надо разбивать. Или резать по дням все или ставить метку где конец дня.

[raxp]

тогда уж по дням.