Написать прогу на Delphi, меняющую месяца

[Sianessa]

Задание такое, нужно написать программу, которая делала так, чтобы в текстовом поле при очередном нажатии кнопки выходили по очереди месяца.
Вроде как просто, но в то же время я запуталась

[mihali4]

Есть такая функция, которая вас спасет - FormatDateTime...

[maladoy]

обьяви глобальные переменные

var a:array[1..12] of string[8] = ('январь','февраль','март','апрель','май','июнь','июль','август','сентябрь','октябрь','ноябрь','декабрь');
i:integer;

в событии oncreate формы

i:=1;

в событии onclick кнопки

if i<=12 then edit.text:=a[i]
else  begin
 i:= i  mod 12;
edit.text:=a[i];end;
i:=i+1;

[Sianessa]

mihali4, ээ... не слышала о такой к сожалению... и что с ней делать то? Х_х

[Sianessa]

maladoy, большое спасибо, всё работает)

[maladoy]

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

maladoy, большое спасибо, всё работает)

но если вы кликните мышкой по весам под моим аватаром буду признателен!!!!!

[puporev]

Можно и так.

var
  Form1: TForm1;
  i:integer;
implementation

{$R *.dfm}
procedure TForm1.FormActivate(Sender: TObject);
begin
i:=0;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
i:=i+1;
case i mod 12 of
1:Edit1.Text:='январь';
2:Edit1.Text:='февраль';
3:Edit1.Text:='март';
4:Edit1.Text:='апрель';
5:Edit1.Text:='май';
6:Edit1.Text:='июнь';
7:Edit1.Text:='июль';
8:Edit1.Text:='август';
9:Edit1.Text:='сентябрь';
10:Edit1.Text:='октябрь';
11:Edit1.Text:='ноябрь';
0: Edit1.Text:='декабрь';
end;

end;

[Sianessa]

maladoy, уже сделано))

[Sianessa]

puporev, да, тоже выход, вот я так же пыталась сделать как и вы, но запуталась =___=

[mihali4]

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

mihali4, ээ... не слышала о такой к сожалению... и что с ней делать то? Х_х

Универсальный способ при любом затруднении:
применительно к данному случаю - набираем слово "FormatDateTime", ставим куда-нибудь в серединку ее мышиный курсор и... внимание - это очень важная часть операции - аккуратненько жмем пальчиком на клавишу F1.
И, о чудо! Вся подноготная этой непонятности перед нами!