Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Компоненты Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 16.12.2006, 15:21   #1
mEka
 
Регистрация: 16.12.2006
Сообщений: 5
Восклицание Как заполнить StringGrid "стрелочкой" ?

Доброго времени суток!
Очень нужна помощь по заполнению StringGrid'a. Ща объясню как ...

На форме есть StringGrid и кнопка "шаг" . [ну еще две кнопки, изменяющие размеры StringGrid'a (строки, столбцы), но это не важно... ]. Надо, чтобы когда нажимаешь на кнопку "шаг" в StringGrid в центральную строку в первый столбец вскакивала "1". Потом еще раз нажимаешь "шаг", "1" заскакивала во второй столбец и в след. и предыдущ. строку. Потом еще "шаг" - и т.д. Т.е. получается как бы StringGrid заполняется "стрелочкой" слева направо.

Вот, чтобы было понятно, покажу лучше на примере :

Жмемь первый раз "шаг" :


1


Жмемь второй раз "шаг" :

1
1 1
1

Жмемь третий раз "шаг" :
1
1 1
1 1 1
1 1
1
Ну и т.д.

Пожалуйста, уважаемые товарищи, помогите енто сделать .

Заранее весьма благодарен...

Последний раз редактировалось mEka; 16.12.2006 в 15:33.
mEka вне форума Ответить с цитированием
Старый 16.12.2006, 20:15   #2
Drop
Пользователь Подтвердите свой е-майл
 
Аватар для Drop
 
Регистрация: 14.12.2006
Сообщений: 29
По умолчанию

это работает:

// step - глобальная переменная
procedure TForm1.Button1Click(Sender: TObject);
var
i, j, cr, up, down: integer;
begin
for i:=0 to StringGrid1.RowCount-1 do
StringGrid1.Rows[i].Clear;
cr:=(StringGrid1.RowCount div 2);
up:=cr-step;
down:=cr+step;
for i:=0 to step do
begin
for j:=up to down do
StringGrid1.Cells[i,j]:='1';
inc(up);
dec(down);
end;
inc(step);
end;

мож чуть кривовато, но на скорую руку ничего другого не придумал.
какой вопрос, такой ответ..

Последний раз редактировалось Drop; 16.12.2006 в 20:18.
Drop вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Ошибка при использовании OlePropertyGet("Documents").OleProcedure("Add") в C++ Builder AleksP C++ Builder 7 11.04.2009 13:06
если пользователь наберет какой-то другой символ не "y" или "n" и нажмет enter, программа проигнорирует skobets Общие вопросы C/C++ 2 03.06.2008 06:51
Excel файл открывается не "до конца" (странички "не показываются" только серое поле) Dorvir Microsoft Office Excel 2 28.03.2008 10:03
Создаю диаграмму "Bar". Подскажите как убрать растояние между "столбами" MAcK Компоненты Delphi 11 24.10.2007 10:49