Навигация
Главная
Поиск
Форум
FAQ's
Ссылки
Карта сайта
Чат программистов

Статьи
-Delphi
-C/C++
-Turbo Pascal
-Assembler
-Java/JS
-PHP
-Perl
-DHTML
-Prolog
-GPSS
-Сайтостроительство
-CMS: PHP Fusion
-Инвестирование

Файлы
-Для программистов
-Компонеты для Delphi
-Исходники на Delphi
-Исходники на C/C++
-Книги по Delphi
-Книги по С/С++
-Книги по JAVA/JS
-Книги по Basic/VB/.NET
-Книги по PHP/MySQL
-Книги по Assembler
-PHP Fusion MOD'ы
-by Kest
Professional Download System
Реклама
Услуги

Автоматическое добавление статей на сайты на Wordpress, Joomla, DLE
Заказать продвижение сайта
Программа для рисования блок-схем
Инженерный калькулятор онлайн
Таблица сложения онлайн
Популярные статьи
OpenGL и Delphi... 65535
Форум на вашем ... 65535
21 ошибка прогр... 65535
HACK F.A.Q 65535
Бип из системно... 65535
Гостевая книга ... 65535
Invision Power ... 65535
Пример работы с... 65535
Содержание сайт... 65535
ТЕХНОЛОГИИ ДОСТ... 65535
Организация зап... 65535
Вызов хранимых ... 65535
Создание отчето... 65535
Имитационное мо... 65535
Программируемая... 65535
Эмулятор микроп... 65535
Подключение Mic... 65535
Создание потоко... 65535
Приложение «Про... 65535
Оператор выбора... 65535
Реклама
Сейчас на сайте
Гостей: 15
На сайте нет зарегистрированных пользователей

Пользователей: 13,361
новичок: uehuat
Новости
Реклама
Выполняем курсовые и лабораторные по разным языкам программирования
Подробнее - курсовые и лабораторные на заказ
Delphi, Turbo Pascal, Assembler, C, C++, C#, Visual Basic, Java, GPSS, Prolog, 3D MAX, Компас 3D
Заказать программу для Windows Mobile, Symbian

Моделирование работы перекрёстка по регулированию движения на GPSS + Поя...
Моделирование регулировочного участка цеха на GPSS + Пояснительная записка
Моделирование работы узла коммутации сообщений на GPSS + Пояснительная з...

Работа с табличной информацией - String Grid
Компонент String Grid (страница Additional) представляет собой
таблицу, ячейки которой содержат строки символов. Он используется при
решении задач с выводом какой-либо последовательности чисел (массива),
букв. Таблица состоит из N столбцов и M строк для отображения двумер-
ной информации. Если зафиксировать необходимое количество строк и
столбцов, то можно задавать заголовки, постоянно присутствующие у
компонента (шапку). Каждая ячейка находится на пересечении строк и
столбцов, нумерация которых начинается с нуля: адрес ячейки [3,5] – 4
столбец, 6 строка. Основные свойства компонента приведены в табл. 5.2.
Таблица 5.2. Свойства компонента String Grid
Свойства компонента String Grid
Для определения поведения таблицы используется комбинированное
свойство Options , принимающее значения False или True. Рас-
смотрим вложенные свойства исходя из того, что каждое из них находится
в значении True:
goFixedVertLine - фиксированные ячейки разделяются вертикаль-
ными линиями;
goFixedHorzLine - фиксированные ячейки разделяются горизон-
тальными линиями;
goVertLine - ячейки (кроме фиксированных) разделены вертикаль-
ными линиями;
goHorzLine - ячейки (кроме фиксированных) разделены горизон-
тальными линиями;
goRangeSelect - допустимо выделение нескольких ячеек;
goDrawFocusSelected - активная ячейка закрашивается тем же цве-
том, что и выделенная, иначе (false) цветом нейтральных ячеек;
goRowSizing - высота строк может меняться;
goColSizing - ширина столбцов может меняться;
goRowMoving - строки могут перемещаться (обмен);
goColMoving - столбцы могут перемещаться (обмен);
goEditing - ячейки могут редактироваться;
goTabs - перемещение между ячейками клавишами или
+;
goRowSelect - выделение только целых строк таблицы (отдельно
ячейку false);
goAlwaysShowEditor - признак нахождения ячейки в режиме редак-
тирования. Если false, то для того чтобы в ячейке появился курсор,
надо нажать клавишу или щелкнуть мышью;
goThumbTracking - перемещение подвижной части таблицы син-
хронно с перемещением полосы прокрутки (ползунка). Если false,
то ползунок опустится до конца, а потом будет двигаться таблица.
Пример. Найти среднее арифметическое элементов одномерного мас-
сива (с использованием компонента StringGrid).
Поместим компоненты на форме в соответствии с рис. 5.14 и устано-
вим их свойства в соответствии с табл. 5.3.
Таблица 5.3. Свойства и их значения
Свойства и их значения


Рис. 5.14. Форма на этапе конструирования


Рис. 5.15. Форма на этапе выполнения

Для формирования заголовков таблицы необходимо сгенерировать со-
бытие для формы FormCreate (можно вызвать процедуру двойным щелч-
ком по форме):
procedure TForm1.FormCreate(Sender: TObject);
begin
//формирование заголовка таблицы
sgMass.Cells[0,0]:='1-ый элемент';
sgMass.Cells[1,0]:='2-ый элемент';
sgMass.Cells[2,0]:='3-ый элемент';
sgMass.Cells[3,0]:='4-ый элемент';
sgMass.Cells[4,0]:='5-ый элемент'
end;



Программный код для кнопки Вычислить:
var a: array[1..5] of real;
summ: real; //сумма элементов
sr: real; //среднее арифметическое
aa: real;
ssumm,ssr: string;//переменные для вывода результатов
i, code: integer;
begin
summ:=0;
for i:=1 to 5 do
begin
if length(sgMass.Cells[i-1,1])<>0
then // если ячейка не пуста,
begin // определяем значение элемента
val(sgMass.Cells[i-1,1],aa,code);
a[i]:=aa
end
else //если ячейка пуста, то элемент равен 0
a[i]:=0;
summ:=summ+a[i]
end;
sr:=summ/5;
str(summ:6:3,ssumm);
str(sr:6:3,ssr);
laRes.Caption:='Сумма='+ssumm+#13+' Ср.ар. ='+ssr
end;



Для исключения ошибок ввода для компонента таблицы генерируем
событие OnKeyPress, которое определяет переход по ячейкам при нажа-
тии клавиши , допускает ввод цифр и нажатие клавиши
, а также определяет разделитель целой и дробной частей.
procedure TForm1.sgMassKeyPress(Sender: TObject; var Key:
Char);
begin
case Key of
'0'..'9',#8: ; //разрешен ввод цифр и нажатие Backspase
#13: if sgMass.Col
then sgMass.Col:=sgMass.Col+1
else btVithisl.SetFocus;
'.',',':
begin //разделитель целой и дробной частей числа
if Key<>DecimalSeparator //заменим разделитель
then Key:=DecimalSeparator; // на допустимый
if Pos(DecimalSeparator,sgMass.Cells[sgMass.Col,1])<>0
then Key:=Chr(0)//запрет ввода второго разделителя
end;
'-': //минус можно ввести только первым
if length(sgMass.Cells[sgMass.Col,1])<>0
then Key:=Chr(0);
else Key:=Chr(0)
end {case}
end;



Примечание: глобальная переменная DecimalSeparator определяет,
какой символ допустим в текущей настройке Windows в качестве раздели-
теля целой и дробной частей. Разделитель разрядов целой и дробной час-
тей установлен в настройках ОС Windows, как правило, по умолчанию это
«,». Для изменения можно воспользоваться командой Пуск/Настройка/
Панель управления/Язык и региональные стандарты
, далее вкладка
Региональные параметры, кнопка Настройка, поле Разделитель целой и
дробной частей.
При работе с массивами возникают ошибки времени выполнения. На-
пример, заявлен массив с индексами от 1 до 5 , а в программе просмотр
элементов массива организован с i=0.
var A: array [1..5] of real;
begin
for i:=0 to 4 do A[i]:=StrToFloat(StringGrid.Cells[i,1]);
{ошибка контроля диапазона}



Для исключения ошибки кон-
троля диапазона необходимо
воспользоваться пунктом главно-
го меню Project/Options, на
вкладке Compiler снять переклю-
чатель Range checking (рис. 5.16).

Рис. 5.16. Исключение ошибки контроля диапазона
Опубликовал Kest December 02 2009 20:52:05 · 2 Комментариев · 32513 Прочтений · Для печати

• Не нашли ответ на свой вопрос? Тогда задайте вопрос в комментариях или на форуме! •


Комментарии
Макс March 08 2010 07:31:50
Отлично!!!
Давно искал такой гайд по Гриду
roamer October 23 2022 17:37:43
Здесь тоже есть ряд функций (в рамках темы):

https://roamer55.ru/main_programming/delphi/delphi_10_2_vcl/d10_funcs_tstringgrid/

Может кому-то будет полезен
Добавить комментарий
Имя:



smiley smiley smiley smiley smiley smiley smiley smiley smiley
Запретить смайлики в комментариях

Введите проверочный код:* =
Рейтинги
Рейтинг доступен только для пользователей.

Пожалуйста, залогиньтесь или зарегистрируйтесь для голосования.

Нет данных для оценки.
Гость
Имя

Пароль



Вы не зарегистрированны?
Нажмите здесь для регистрации.

Забыли пароль?
Запросите новый здесь.
Поделиться ссылкой
Фолловь меня в Твиттере! • Смотрите канал о путешествияхКак приготовить мидии в тайланде?
Загрузки
Новые загрузки
iChat v.7.0 Final...
iComm v.6.1 - выв...
Visual Studio 200...
CodeGear RAD Stud...
Шаблон для новост...

Случайные загрузки
Info
Распознавание тек...
Программирование ...
IpEditAdress
Анекдоты с ostrie.ru
DateEdit
Профессиональное ...
Запрет гостям ск...
Удаление своего EXE
Язык программиров...
Редактор анимаций
около 291 статьи ...
3d Tank [Исходник...
SearchAndReplace
Переработанный пл...
RAS
MxProtector
TrayComp
Borland Delphi 8 ...
Самоучитель C++

Топ загрузок
Приложение Клие... 100772
Delphi 7 Enterp... 97809
Converter AMR<-... 20260
GPSS World Stud... 17014
Borland C++Buil... 14189
Borland Delphi ... 10267
Turbo Pascal fo... 7372
Калькулятор [Ис... 5972
Visual Studio 2... 5206
Microsoft SQL S... 3661
Случайные статьи
Службы
Оригинальная реали...
Точка USR 2450, De...
Клиент для LiveJou...
• тип службы (_lda...
File not assigned
Программирование: ...
Вулкан Платинум иг...
Символы, используе...
Массивы в среде Vi...
Тильда (~)
Какие бонусные про...
Программирование а...
Рабочий стол Windo...
ИЗМЕНЕНИЕ МАРШРУТО...
Подмножество a[i.....
Клуб Слотобаза
Издатель: СогрСАСу...
10.1. Краткое вве...
функции-члены
В чем сложность ст...
Поднятие тИЦ и PR
Обработка транзакц...
Немного о DMOZ
Аннотация
Статистика



Друзья сайта
Программы, игры


Полезно
В какую объединенную сеть входит классовая сеть? Суммирование маршрутов Занимают ли таблицы память маршрутизатора?