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

[Sianessa]

mihali4 XDDD
Спасибо теперь буду знати)))

[vasek123]

Поправочка , так вернее будет :

procedure TForm1.Button1Click(Sender: TObject);
var
   i:array[0..11]of integer;
begin
i:=i+1;
case i mod 12 of
   0:Edit1.Text:='январь';
   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:='декабрь';
end;

[maLoy*508]

первый вариант на мой взгляд правильнее, точнее надежнее чем второй...

[_Engine_]

Вариант от puporev обладает большим недостатком, а вариант vasek123 мало того, что неправильный, так он еще и не откомпилируется

[vasek123]

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

Вариант от puporev обладает большим недостатком, а вариант vasek123 мало того, что неправильный, так он еще и не откомпилируется

Если создать событие onCkick для клавиши Button1-откомпилируется !!!!!!!

[_Engine_]

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

Если создать событие onCkick для клавиши Button1-откомпилируется !!!!!!!

Даже если и откомпилируется, то работать всё равно не будет

[puporev]

Вариант от puporev обладает большим недостатком

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

[_Engine_]

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

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

А что тут пояснять, запустите свой вариант, смените пару месяцев, затем переключитесь между приложениями (главное, чтобы ваше приложение потеряло на фокус), затем попробуйте поменять значение месяца -> всё пошло с самого начала, а не с того места, на котором мы остановились

[puporev]

И откуда Вы все берете. Сделал так как Вы написали. И ничего подобногог. Месяцы продолжали выводиться с того места на котором я закончил. И вообще не понимаю какого хрена Вам надо? Если хотите блеснуть своим умом, то место неудачно выбрали, заверяю Вас, что на форуме есть люди, которым Вы и в подметки не годитесь и нехрен выделываться.

[_Engine_]

puporev - Вы не можете адекватно реагировать на критику? Лично к Вам у меня нет претензий. Скажите мне только, когда у формы будет происходить OnActivate?