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

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

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 25.04.2007, 16:14   #1
bart77
 
Регистрация: 25.04.2007
Сообщений: 3
По умолчанию StringGrid

Как сделать так, чтобы можно было вносить цифры в StringGrid?
bart77 вне форума Ответить с цитированием
Старый 25.04.2007, 16:30   #2
SERG1980
Участник клуба
 
Аватар для SERG1980
 
Регистрация: 28.03.2007
Сообщений: 1,814
По умолчанию

Или я чего то не понял, или всё просто:
Для программного ввода
StringGrid1.Cells[1,1]:=inttostr(твоя цифра)//записывает твоё число в первый столбец, первую строку
Для ручного ввода в свойствах таблицы нужно поставить goEditing:=true
SERG1980 вне форума Ответить с цитированием
Старый 25.04.2007, 16:47   #3
bart77
 
Регистрация: 25.04.2007
Сообщений: 3
По умолчанию

Мне нужно вручную вводить числа в таблицу, но свойство goEditing я не нашел. Что делать?
bart77 вне форума Ответить с цитированием
Старый 25.04.2007, 21:19   #4
satir
 
Аватар для satir
 
Регистрация: 11.04.2007
Сообщений: 3
По умолчанию

В Option посмотри св-во goEditing
Play whith out rulez
satir вне форума Ответить с цитированием
Старый 26.04.2007, 07:48   #5
Alex21
With best regards
Участник клуба
 
Регистрация: 20.04.2007
Сообщений: 1,448
По умолчанию

Цитата:
Сообщение от satir Посмотреть сообщение
В Option посмотри св-во goEditing
А елси надо вводить только цифры: ставь обработку нажатия клавиш:
Change или KeyPress не скажу точно
Alex21 вне форума Ответить с цитированием
Старый 26.04.2007, 08:13   #6
SERG1980
Участник клуба
 
Аватар для SERG1980
 
Регистрация: 28.03.2007
Сообщений: 1,814
По умолчанию

procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);
begin
if key='.'then key:=',';
if not(key in['0'..'9', ',' ,#8]) then key:=#0;
end;
#8 это бакспейс
Если числа целочисленные то первую строку можно не писать и во второй строке можно удалить ','.
На счёт goEditing
В Инспекторе Обьектов найди свойство Options
Раскрой это свойство(плюсик с левой стороны)
Найди goEditing и поставь его значение в true

Последний раз редактировалось SERG1980; 26.04.2007 в 08:16.
SERG1980 вне форума Ответить с цитированием
Старый 26.04.2007, 13:30   #7
zetrix
Delphi/C++/C#
Участник клуба
 
Аватар для zetrix
 
Регистрация: 29.10.2006
Сообщений: 1,972
По умолчанию

Цитата:
if key='.'then key:=',';
не совсем согласен. Почему? Читайте Флёнова... Всё программирование складывается из тонкостей.
zetrix вне форума Ответить с цитированием
Старый 27.04.2007, 08:23   #8
SERG1980
Участник клуба
 
Аватар для SERG1980
 
Регистрация: 28.03.2007
Сообщений: 1,814
По умолчанию

Насколько я понимаю книга эта называется "Библия программиста". Книгу я читал, но вот этот момент видимо упустил. Если не трудно поскажи в какой главе это описано
SERG1980 вне форума Ответить с цитированием
Старый 27.04.2007, 08:39   #9
zetrix
Delphi/C++/C#
Участник клуба
 
Аватар для zetrix
 
Регистрация: 29.10.2006
Сообщений: 1,972
По умолчанию

Цитата:
Если не трудно поскажи в какой главе это описано
Я не помню где именно, но переменная DECIMALSEPARATOR (uses SysUtils ) содержит символ (char) разделителя дробной и целой частей. (Скорее всего возвратит ',' или '.').
Я пробовал, можно хоть 'Ж' - сделать разделителем (прикольно смотрится)

P.S.: если найдёте описание этой переменной в модуле SysUtils, то там рядом ещё есть переменные, содержащие формат времени, даты и прочие региональные настройки
Код:
var
  CurrencyString: string;
  CurrencyFormat: Byte;
  NegCurrFormat: Byte;
  ThousandSeparator: Char;
  DecimalSeparator: Char;
  CurrencyDecimals: Byte;
  DateSeparator: Char;
  ShortDateFormat: string;
  LongDateFormat: string;
  TimeSeparator: Char;
  TimeAMString: string;
  TimePMString: string;
  ShortTimeFormat: string;
  LongTimeFormat: string;
  ShortMonthNames: array[1..12] of string;
  LongMonthNames: array[1..12] of string;
  ShortDayNames: array[1..7] of string;
  LongDayNames: array[1..7] of string;
zetrix вне форума Ответить с цитированием
Старый 27.04.2007, 09:35   #10
SERG1980
Участник клуба
 
Аватар для SERG1980
 
Регистрация: 28.03.2007
Сообщений: 1,814
По умолчанию

Спасибо!!!
SERG1980 вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
StringGrid Devikss Общие вопросы Delphi 8 25.05.2008 16:14
StringGrid MAcK Общие вопросы .NET 2 31.03.2008 11:40
StringGrid Dimon88 Компоненты Delphi 15 14.02.2008 11:44
StringGrid dj jo Компоненты Delphi 2 15.02.2007 07:47
Код 13 и stringGrid Alar Общие вопросы Delphi 1 08.02.2007 22:44