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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 01.06.2015, 12:14   #1
S_007
Форумчанин
 
Регистрация: 22.11.2014
Сообщений: 109
По умолчанию Ограничить количество символов в столбце - DBGridEh

Если в ячейке ввести больше символов чем задано в Access то появляется ошибка
Как это избежать, или как можно ограничить ввод символов для всего столбца?
S_007 вне форума Ответить с цитированием
Старый 01.06.2015, 13:31   #2
S_007
Форумчанин
 
Регистрация: 22.11.2014
Сообщений: 109
По умолчанию

Похоже такого свойства у DBGridEh нет, может есть способ сделать это программно?
S_007 вне форума Ответить с цитированием
Старый 01.06.2015, 13:50   #3
evg_m
Старожил
 
Регистрация: 20.04.2008
Сообщений: 5,526
По умолчанию

TDataSet.BeforePost ?

Код:
(sender as TdataSet).fieldByname(..).String :=copy((sender as TdataSet).fieldByname(..).String, 1, maxlenfiled);
программа — запись алгоритма на языке понятном транслятору

Последний раз редактировалось evg_m; 01.06.2015 в 13:52.
evg_m вне форума Ответить с цитированием
Старый 01.06.2015, 14:02   #4
S_007
Форумчанин
 
Регистрация: 22.11.2014
Сообщений: 109
По умолчанию

evg_m Спасибо! Не могу в вашей строке разобраться, все подчеркивает, будьте любезны поподробнее, пожалуйста!
S_007 вне форума Ответить с цитированием
Старый 01.06.2015, 14:07   #5
S_007
Форумчанин
 
Регистрация: 22.11.2014
Сообщений: 109
По умолчанию

И может быть в событии DataSource3DataChange, чтоб сразу при наборе не пропускало больше чем надо чисволов
S_007 вне форума Ответить с цитированием
Старый 01.06.2015, 14:31   #6
S_007
Форумчанин
 
Регистрация: 22.11.2014
Сообщений: 109
По умолчанию

evg_m, если знаете, ответьте пожалуйста!
По Вашей строке ничего и в гугле не могу найти....
S_007 вне форума Ответить с цитированием
Старый 01.06.2015, 15:57   #7
evg_m
Старожил
 
Регистрация: 20.04.2008
Сообщений: 5,526
По умолчанию

Цитата:
Код:
(sender as TdataSet).fieldByname(..).String :=copy((sender as TdataSet).fieldByname(..).String, 1, maxlenfiled);
Код:
f:=(sender as TDataSet).fieldByName(..); //находим поле которое хотим контролировать
f.AsString:=copy(f.AsString, 1, maxlenfield); //обрезаем данные до наперед заданной величины
так понятнее?
программа — запись алгоритма на языке понятном транслятору
evg_m вне форума Ответить с цитированием
Старый 01.06.2015, 17:06   #8
S_007
Форумчанин
 
Регистрация: 22.11.2014
Сообщений: 109
По умолчанию

evg_m, я даже не знаю как Вас благодарить, Спасибо Вам! Теперь понятно!
Почему я не могу поставить вам отзыв, выскакивает такое окно и ничего не происходит?
21.jpg
S_007 вне форума Ответить с цитированием
Старый 01.06.2015, 17:39   #9
S_007
Форумчанин
 
Регистрация: 22.11.2014
Сообщений: 109
По умолчанию

подчеркивает в двух местах во второй строке AsString и maxlenfield

Что опять не так?


Код:
procedure TForm2.DataSource5DataChange(Sender: TObject; Field: TField);
var f:String;
begin
     f:=(sender as TDataSet).fieldByName('A9'); //находим поле которое хотим контролировать
    f.AsString:=copy(f.AsString, 1, maxlenfield); //обрезаем данные до наперед заданной величины
end;
S_007 вне форума Ответить с цитированием
Старый 02.06.2015, 10:17   #10
evg_m
Старожил
 
Регистрация: 20.04.2008
Сообщений: 5,526
По умолчанию

Цитата:
подчеркивает в двух местах
кроме этого он еще и пишет, почему он это подчеркнул.
Код:
f.value:=copy(..., 1, 100);
Цитата:
//обрезаем данные до наперед заданной величины
А задавать-то кто будет?
чтобы использовать какой-либо идентификатор, вначале ОН должен быть описан(объявлен как переменная или константа) и ему должно быть задано значение.
Об этом он писал когда подчеркивал.

Цитата:
Почему я не могу поставить вам отзыв, выскакивает такое окно
Опять же надо ПРОЧИТАТЬ что там написано русским языком.
программа — запись алгоритма на языке понятном транслятору

Последний раз редактировалось evg_m; 02.06.2015 в 10:26.
evg_m вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Ограничить ввод символов mixon-21 Windows Forms 2 10.04.2014 19:19
Перебор слова, ограничить количество символов Gameboy C# (си шарп) 0 17.01.2013 20:27
ограничить количество строк vostok Microsoft Office Excel 7 02.01.2013 18:42
Потоки, как ограничить количество? bakanaev Общие вопросы Delphi 2 16.08.2012 16:55
Ограничить количество клиентов SwiP Работа с сетью в Delphi 1 16.06.2010 19:17