[Nastya777]

Нужна помощь в написании программы в Delphi.Извините,что так прошу.Сегодня за 2 пары сделала и сдала 3 программы.А эту дали дополнительно чтоб получить модуль.Сказали завтра сдать.Помогите пожалуйста написать,не поняла ее совсем,да и лишнего дня нет,чтоб не спеша сделать,делаю другие сейчас(((

Задание
На форме располагаются: таблица StringGrid 4х5, два набора радиокнопок с соответст-вующими надписями для выбора номеров строк и столбцов таблицы, главное меню с оп-циями “Занесение” и “Закрытие окна”. Выбор ячейки таблицы и опции «Занесение» приводит к появлению в данной ячейке названия группы. При этом в другой ячейке надпись исчезает. Опция «Закрытие окна» заканчивает программу.

[Snake22]

Nastya777 держи
кода там на пару строчек))

[Alegun]

Ещё вариант, но строчек там чуть поболе будет чем пара

[Nastya777]

Спасибр большое!!!))Попробую разобраться....потом отпишусь как получится.
А задания да непонятные,сама вот поэтому и не поняла как это делать и что нужно.Но вот такие нам дают номера.Не знаю откуда их она(препод) берет.Они все такие странные

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

[orion_asm]

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

Не знаю откуда их она(препод) берет.Они все такие странные

Не по теме: Есть такие преподаватели, которые специально дают задания, чтобы им на лапу шекель дали (взятку). Это легко проверить, если прийти к ним на консультацию с какими-то набросками кода, и если он так посмотрит лениво, скажет "ничего не понимаю", то или готовить деньги или искать помощи программистов, как здесь например ребята вам помогли.

[Nastya777]

Да,эти правильноработают.Спасибо!!!)))Еще спрошу точнее у препода само задание,если что изменю по ходу дела.
А вот в другой программе проблема.Вот задание: На форме располагается StringGrid,две линейки ScrollBar,задающие количество строк и столбцов.На форме также распологаются 3 кнопки:"Заполнить"(Заполняет матрицу случай-ными числами),"Очистить"(очищает матрицу),"Закрыть"(закрывает форму).

Как сделать очистить и заполнить???
Заполнить так : for i:= .... do
for j:= .... do
Ячейка[i,j] = Random(100);
Очистить можно я думаю простым StringGrid.Clear;Да????

Если что не так,напишите правильно что сделать???

[Страдалецъ]

Ну заполнить не сложно:

Код:

procedure TForm1.Button1Click(Sender: TObject);
Var Row,Col: Integer;
begin
 for Row := StringGrid1.FixedRows to StringGrid1.RowCount - 1
 do for Col := StringGrid1.FixedCols to StringGrid1.ColCount - 1
    do StringGrid1.Cells[Col,Row] := IntToStr(Random(100));
end;

[Страдалецъ]

Коллега, а с чего это вы решили, что группа имеет какое-то отношение к RadioGroup? Совершенно не факт. Это может быть название группы абитуриентов например. Может вы и правы конечно, но что-то мне подсказывает, что это не так.

[Страдалецъ]

Совершенно неясно откуда возьмется Название группы и откуда в какой-то ячейке уже была какая-то надпись.
Видимо это задание основано на более ранних примерах. Без них половина задания бессмысленна.