[Ildar-tsr]

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

Спасибо!
Решил задачку несколько по-другому:

Код:

procedure TForm1.Button10Click(Sender: TObject);
var
date2: string;
pos1, pos2:integer; //символы в записи
begin
date2:=table1.Cell(j, 3).Range.Text;
Label10.Caption:=date2;
pos1:= pos('1',date2);
pos2:= pos('0',date2);
      if ((pos1 = 4) and  (pos2 = 5))
       then
        begin
    Label11.Caption:='выполнено в октябре';
        end
      else
        begin
   Label11.Caption:='Error!';
        end;
end;

Ты уж прости, но тебе не кажется, что твое решение немного идиотски не универсальное? А что если не октябрь будет, а ноябрь?

Код:

procedure TForm1.Button10Click(Sender: TObject);
var
  date2: string;
  y,m,d: word;
begin
date2:= table1.Cell(j, 3).Range.Text;
Label10.Caption:=date2;
DecodeDate(strtodate(date2),y,m,d);
case m of
1: Label11.Caption:= 'выполнено в январе';
2: Label11.Caption:= 'выполнено в феврале';
3: Label11.Caption:= 'выполнено в марте';
4: Label11.Caption:= 'выполнено в апреле';
5: Label11.Caption:= 'выполнено в мае';
6: Label11.Caption:= 'выполнено в июне';
7: Label11.Caption:= 'выполнено в июле';
8: Label11.Caption:= 'выполнено в августе';
9: Label11.Caption:= 'выполнено в сентябре';
10: Label11.Caption:= 'выполнено в октябре';
11: Label11.Caption:= 'выполнено в ноябре';
12: Label11.Caption:= 'выполнено в декабре';
end;
end;