VPF::Переполнение стека при выполнение процедуры

RinOSpro

Дата 15.10.2007, 09:09 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Есть процедура которая имитирует tab при нажатие на enter:

Код


procedure TForm4.EnterToTab(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
  try
  if (DataSourceChange.State = dsEdit) or (DataSourceChange.State = dsInsert) then PostDataSet(DataSourceChange);
  Key := #0;
  SelectNext(Sender as TWinControl, True, True);
  except
    Exit;
  end;
end;

сначала все работало но потом появилась ошибка преполнения стека, я дошел до того что эта процедура см. выше виновата в этой ошибке.

Помогите исправить процедуру чтоб работала.

Это сообщение отредактировал(а) RinOSpro - 15.10.2007, 09:11

RinOSpro

Дата 15.10.2007, 12:37 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Тут даже дело не в процедуре, а в том как я понял при событие Post, случается ошибка.
Скажу как еще организованы связи может это придаст ясности.

Таблица "Абоненты" зависит от табл. "Контролёры", MasterSours := DataSource14 (контролеры); MasterFields := КодКонтролера;

IndexFields := КодКонтролера;

Таблица "СубАбоненты" зависит от "Абонентов", MasterSours := DataSource1 (абоненты); MasterFields := НомерАбонента; IndexFields :=

НомерСубАбонента;

Как бы получается 3 связь "Контролёры" -> "Абонентов" -> "СубАбоненты".

Или вот в виде картинки:

Помогите пожалуста!!!

Присоединённый файл ( Кол-во скачиваний: 10 )

svz.gif 12,56 Kb

MetalFan

Дата 15.10.2007, 13:41 (ссылка)

(нет голосов)

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: нет
Всего: 128

приведенных данных имхо мало для внятного совета.
зачем try..except?
ошибка наверное в 17й строке метода(процедуры) PostDataSet

--------------------

There are always someone smarter than you...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Базы данных и репортинг \| Следующая тема »