задача по delphi 7

[aleks155]

1. На форме располагаются компоненты: таблица StringGrid 3х6, шесть кнопок Button c но-мерами 1 – 6 и кнопка Close. Нажатие кнопки с номером приводит к появлению 1 в соответствующей ячейке второй строки таблицы. Остальные ячейки этой строки при этом очищаются.

2. На пространстве формы изображен календарь за май текущего года с горизон-тальным расположением недель. Рамка красного цвета в виде квадрата с закругленными уг-лами и толщиной линии в 3 пикселя движется по датам с дискретом времени 0.4 сек. Запуск движения – главное меню, остановка – кнопка «Стоп», что приводит к установке рамки на первую дату.

помогите плиз решить эти задачки, буду очень благодарен!!))

[phomm]

200 рублей на телефон и готовое задание - Ваше!
альтернатива - пишите код, кидаете сюда архив с проектом и конкретным вопросом - "вот тут вот (строка кода) - застрял"

[Merc]

1.
объявляем процедуру в privat
procedure grid(Xbutton:int);
жмём cntr+shift+с
procedure grid(Xbutton:int);
var i:integer;
begin
for i:=3 to 6 do stringgrid1.cells[2,i]:='';
stringgrid1.cells[2,Xbutton]:='1';
end;
Процедура вызывается с нажатия кнопки, например на баттонк клик 1 ты должен поставить процедуру в таком виде:
procedure grid(1);

2. идея в том что по нажатии старт включается таймер(enabled)
с интервалом в 0,4 сек (Единицы таймера в миллисекундах) таймер каждый период прибавляет единицу к какой-то переменной.
координаты всех позиций рамки ты заранее определяешь и записываешь в массивы или в два отдельных массива.
Примерно процедура обработки таймера будет выглядеть как-то так

step:=step+1 ;
координата рамки по Х:=координаты по Х[step];
координата рамки по Y:=координаты по Y[step];

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

[phomm]

Новичок решает для новичка, интересно )
Ладно бы хоть тогда проверяли...

for i:=3 to 6 do stringgrid1.cells[2,i:='';

надо ведь чистить всю строку... т.е. хотя бы от 1 до 6
Ну а вообще, неплохо бы знать, что нумерация почти во всех местах в программировании - начинается с 0 и писать надо везде с отнятием единицы, т.е. цикл от 0 до 5, вторая строка - индекс 1
Да и порядок нумерации проверьте, пожалуйста, cells[колонка, строка] а не наоборот, т.е. stringgrid1.cells[Xbutton,1]:='1';
Ну в общем, не стоит советовать там, где сами не ступали, можете оказать медвежью услугу.

Календарь с рамкой для второго задания надо бы сперва создать и заполнить - хотя бы на том же стринггриде, а уж потом делать таймер и обход рамки по ячейкам