[qwe]

в тхт файле содержится расписание в виде:

1
зарядка
07:00
07:30

2
прием пищи
08:00
08:30


в форме имеется 6 полей(memo) в первых 3-х выводится текущее действие и его временные интервалы. в остальных выводится предстоящее действие в с временными интервалами

также имеются часы.

помогите написать код для осуществления данной задачи

Код:

procedure TForm2.Timer2Timer(Sender: TObject);
var x:integer;
begin

 {Первая мемо}

if filebuffer.stringgrid3.cells[0,1]<>'' then

for x:=1 to 43  do
if obsh_vrm>strtoint(filebuffer.StringGrid3.Cells[0,x]) then
begin
memo8.Text:=filebuffer.StringGrid2.Cells[2,x];
memo9.Text:=filebuffer.StringGrid2.Cells[3,x];

memo4.Text:=filebuffer.StringGrid2.cells[2,x+1];
memo5.Text:=filebuffer.StringGrid2.cells[3,x+1];

if Memo4.Text='99.99' then Memo4.Text:='     ';
if Memo5.Text='99.99' then Memo5.Text:='     ';
if Memo8.Text='99.99' then Memo8.Text:='     ';
if Memo9.Text='99.99' then Memo9.Text:='     ';
end;

end;

Код:

unit Unit13;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, ValEdit, ExtCtrls, StdCtrls, ComCtrls;

type
  Tfilebuffer = class(TForm)
    StringGrid1: TStringGrid;
    StringGrid2: TStringGrid;
    StringGrid3: TStringGrid;
    Button1: TButton;
    ProgressBar1: TProgressBar;
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  filebuffer: Tfilebuffer;
  i:integer;
  o:integer;
  txt:string;
  txt2:integer;
  f:textfile;
  s:string;
  fff:string;
  ii:string;
  ll:string;
  nn:string;
  mm:integer;

implementation

{$R *.dfm}

procedure Tfilebuffer.FormCreate(Sender: TObject);
begin
stringgrid1.Cells[0,0]:='Наименование';
stringgrid1.Cells[1,0]:='Значение';
stringgrid2.Cells[0,0]:='№';
stringgrid2.Cells[1,0]:='Наименование мероприятия';
stringgrid2.Cells[2,0]:='Начало';
stringgrid2.Cells[3,0]:='Конец';
stringgrid3.Cells[0,0]:='Сумма';

end;



procedure Tfilebuffer.FormActivate(Sender: TObject);
var mm:Integer;
begin
if filebuffer.stringgrid1.Cells[0,1]<>'' then
begin
i:=0;
o:=1;
  txt:='';
  txt2:=0;
  fff:='';
  ii:='';
  ll:='';
  nn:='';

 begin
    AssignFile(F,filebuffer.stringgrid1.Cells[1,1]);
    Reset(F);
     while not Eof(F) do
      begin

      Readln(F,S);
        stringgrid2.Cells[i,o]:=S;
        i:=i+1;
        if i=4 then
        begin
        i:=0;
        o:=o+1;
        end;
        if S='' then
        i:=i-1;
         end;
        CloseFile(F);
        filebuffer.Stringgrid2.RowCount:=o+1;
        filebuffer.StringGrid2.Cells[i,o]:=filebuffer.stringgrid2.Cells[1,1];
        filebuffer.StringGrid2.Cells[i+1,o]:=filebuffer.stringgrid2.Cells[2,1];
        filebuffer.StringGrid2.Cells[i+2,o]:=filebuffer.stringgrid2.Cells[3,1];
        end;
    end;
    
stringgrid3.rowcount:=stringgrid2.rowcount;
for mm:=1 to stringgrid3.rowcount do
if stringgrid2.Cells[2,mm]<>'' then
begin
ii:=stringgrid2.Cells[2,mm];
nn:=ii[1]+ii[2];
ll:=ii[4]+ii[5];
stringgrid3.Cells[0,mm]:=inttostr(strtoint(nn)*60+strtoint(ll));

end;
end;

procedure Tfilebuffer.Timer1Timer(Sender: TObject);
begin
progressbar1.Position:=progressbar1.Position+20;
if progressbar1.Position>=100 then
filebuffer.Visible:=false;
end;

end.

вот кусок кода. если надо что-то еще, пиши

[lmikle]

Ну я бы сделал так:
1. Считал бы файл и запихнул бы все в массив. Массив надо отсортировать по времени, например. начала событий.
2. Взял бы текущее время.
3. Нашел бы по текущему времени нужние текущее событие (или ближайшее до).
4. Вывел бы данные найденного элемента в первые три поля
5. Вывел бы данные следующего элемента, если он есть, во вторые три поля.

Все. Задача решена.
Извини, код писать лень, т.к. он довольно примитивный.