[sevarior]

Понедельник, 14 марта
09:00 В мире машин
09:25, 17:10 Пятая передача
09:50, 14:25, 20:20 Мега-стройки
10:45, 21:15, 01:50, 07:05 Как работают машины
11:10, 21:45, 02:20, 07:35 Как это работает
11:40, 17:35, 05:40 Разрушители легенд
12:35, 04:40, 08:00 Головоломы
13:30 Выжить любой ценой
15:20, 22:10, 02:45 Американский чоппер

нужно из текстового файла такого вида добавить к времени коррекцию на заданное число часов.
пока я придумал так: Pos ищет двоеточие, потом копируем кусок строки от Pos-2 до Pos. перевожу их в integer, дальше прибавляю переменную.

procedure TForm1.btnOpenFileClick(Sender: TObject);
begin
OpenDialog1.execute;
assignfile(file_for_correct, OpenDialog1.FileName);
reset(file_for_correct);
While not Eof (file_for_correct) do
begin
ReadLn(file_for_correct, strTime);
number := Pos(':',strTime ) - 2;
ShowMessage(Copy(strTime,number, number+1));
end;
CloseFile(file_for_correct);

end;

недостаток метода - если в одной строке сразу два времени через запятую - Pos находит только первый. Как сделать, чтоб он искал позицию дальше в строке (предполагаю вложить ещё цикл, только как флаг окончания строки найти? типа Eof) натолкните товарищи плиззз !
ЗЫ На Дельфи раньше программировал простенькие вещи, но это было лет 8 назад !!! ))))

[Aristarh Dark]

Используй PosEx