[Gudzik11]

Здравствуйте такой вопрос

Код:

 case DayOfWeek(Date) of
     2: day:='пн';
     3: day:='вт';
     4: day:='ср';
     5: day:='чт';
     6: day:='пт';
     7: day:='сб';
     1: day:='вс';
   end;
   Label11.Caption:=day;
   Label12.Caption:=?;
  end;

так вот Label11.Caption выводиться какой то день а в Label12.Caption мне нужно получить следующий день .
подскажите как это зделать ?

[angvelem]

Нескромный вопрос, сколько вам лет? Арифметику в школе уже изучали?

[Gudzik11]

я знаю звучит глупо

нужно DayOfWeek(Date)+1 но где ?

[angvelem]

Чтобы не городить огород, вынеси все дни недели в константный массив, тогда и вопрос решается гораздо легче.

[Gudzik11]

Код:

  day:= DayOfWeek(Date);
    Case dey of
     1: Caption:='вс';
     2: Caption:='пн';
     3: Caption:='вт';
     4: Caption:='ср';
     5: Caption:='чт';
     6: Caption:='пт';
     7: Caption:='сб
  end;
  
   Label11.day;
   Label12.day+1;
 end;
 

';

может как то так

а где можно поподробней почитать про константный массив

[angvelem]

Вот, если не напутал.

Код:

const
  aDay : array[0..6] of String = ('вс', 'пн', 'вт', 'ср', 'чт', 'пт', 'сб');
var
  I : Integer;
begin
  Label11.Caption := aDay[DayOfWeek(Date) - 1];;
  I := DayOfWeek(Date);
  if I = 7 then
    I := 0; 
  Label12.Caption := aDay[i];
end;