[qwe]

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

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

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


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

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

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

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;

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117

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. Вывел бы данные следующего элемента, если он есть, во вторые три поля.

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