создание массива

[lg12]

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

Извините, но в файле нет ни одного слова Россия, чего же Вы хотите?

изменил файл. Посмотри пожалуйста

[puporev]

procedure TForm1.Button1Click(Sender: TObject);
var L:Tstrings;
    i:integer;
    s,data,vr,per:string;
begin
L:=TStringlist.Create;  //создаем список строк
L.LoadFromFile('file1.txt');//заносим в него строки из файла, файл в папке программы
if pos('Россия',L.Strings[1])>0 then //если во второй строке файла(1-й строке массива)
 begin                               //есть слово Россия
   s:=L.Strings[0];  //читаем первую(нулвую) строку
   delete(s,1,pos('>',s)); //удаляем начало
   data:=copy(s,1,pos('<',s)-1); //читаем дату
   Memo1.Lines.Add(data);//заносим в Мемо1
   Memo1.Lines.SaveToFile('file2.txt');// можно в файл
   Memo1.Lines.Add('Канал Россия');//заносим в Мемо1
   Memo1.Lines.SaveToFile('file2.txt');// можно в файл
   for i:=2 to L.Count-1 do   //далее с третьей строки все по старому
    begin
     s:=L.Strings[i]; //обрабатываем строки
     if pos(':',s)>0 then //если в строке есть двоеточие
      begin
       delete(s,1,pos('>',s));//удалям начало строки до времени
       vr:=copy(s,1,pos('<',s)-1);//время
       delete(s,1,pos('>',s));//удаляем до названия передачи
       per:=copy(s,1,pos('<',s)-1);//название
       if length(vr)=4 then vr:='0'+vr;//если время типа 9:05, добавим для выравнивания впереди 0
       vr:=vr+'   '+per; //объединим строки
       Memo1.Lines.Add(vr);//заносим в Мемо1
       Memo1.Lines.SaveToFile('file2.txt');// можно в файл
      end;
     end;
 end;
L.Free; //кстати в первом варианте тоже надо  L.Free;
end;

[lg12]

if ('Россия',L.Strings[1])>0 then //если во второй строке файла(1-й строке массива)
дело в том что я же буду загружать в файл всю html страницу. и Россия не будет 2 строкой

[puporev]

Это Ваши проблемы, я Вам написал пример. Я же не вижу Вашу страницу, читайте, думайте, весь инструментарий я Вам выложил.