| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Помогите найти ошибку в тексте программы

Alex Korukin ©   (2006-03-15 06:30:00) 


procedure TForm310119897012005.Table1TeacherChange(Sender: TField);
begin
if flag=false then begin // Если не импортирует из файла
 Query11.Active:=false;
 Query11.SQL.Text:='SELECT Teacher, Teachers."Union", Section FROM "teachers.DB" Teachers Where Teacher="'+Sender.Text+'"';
 Query11.ExecSQL;
 Query11.Active:=true;
 flag2:=true;
 DBGrid1.Columns[10].PickList.Clear;
 while not Query11.Eof do Begin
   DBGrid1.Columns[10].PickList.Add(Query11Union.Text);
   Query11.Next;
 end;
 Table1Union.Text:='';
 Query11.Close;
end;
end;


В строке Table1Union.Text:=''; выдаёт "Stack owerflow". Не знаю как лечть...

---

Плохиш   (2006-03-15 11:17:00) [1]

> procedure TForm310119897012005.Table1Teacher Change(Sender:
>  TField);


>   Table1Union.Text:='';

Советую использовать встроенный в делфи отладчик, а не форум.

PS. А это чёй-то такое?
Query11.ExecSQL;
Query11.Active:=true;
Надо бы почитать чего, перед топтанием кнопок.

---

atruhin   (2006-03-15 07:44:00) [2]

>>У TTable - нет а у поля Union - есть!
Не понял из текста, что это за объект. Возможно в Table1 нет записей. Во вторых где у тебя Table1.Edit; Table1.Post; ?
>>Здесь тоже нету ошибки... это 100%.
Здесь есть 100% :). Я написал как проверить.

---

Alex Korukin   (2006-03-15 07:25:00) [3]

> >>Table1Union.Text:='';
> А что это вообще такое? У TTable вроде нет свойства Text.
>

У TTable - нет а у поля Union - есть!
> >> Teacher="'+Sender.Text+'"'
> Вот здесь тоже будет ошибка. Можешь убедиться введя в Sender.
> Text строку с двойными кавычками. ИСПОЛЬЗУЙ параметры.

Здесь тоже нету ошибки... это 100%. может только в грамотности и правильности подхода... А про пораметры ты прав... только я когда начинал это всё делать про них ещё не знал)))

---

atruhin   (2006-03-15 06:56:00) [4]

>>Table1Union.Text:='';
А что это вообще такое? У TTable вроде нет свойства Text.
>> Teacher="'+Sender.Text+'"'
Вот здесь тоже будет ошибка. Можешь убедиться введя в Sender.Text строку с двойными кавычками. ИСПОЛЬЗУЙ параметры.

---

Наверх