[CrazyMan86]

Delphi 2010, MS SQL 2000

Код:

 
TableCurDeb.Active:=true;
     TableCurDeb.First;
     QueryUpdate.Close;
     for i := 1 to TableCurDeb.RecordCount do
         begin
         if i<>TableCurDeb.RecordCount then QueryUpdate.SQL.Add(''''+s[i]+''',')
                                        else QueryUpdate1.SQL.Add(''''+s[i]+''')');
         end;

Вот такой вот код - QueryUpdate.SQL.Add(''''+s[i]+''',') вот здесь выдает ошибку access violation at address 0056E628 in module 'PrContralDeb.exe'. Read of address 00000000'

просматривал код, заново создавал ADOQuery. Все равно при попытке что-то вставить в SQL выдает ошибку
Вот так тоже пробовал присвоение, точно такую же ошибку выдает QueryUpdate.SQL[23]:=''''+s[i]+''',';

Вот то, что на ЦПУ в потоке при ошибке.
Прямо скажу в Ассемблере не оч мягко говоря разбираюсь.

75D9B727 C9 leave
75D9B728 C21000 ret $0010
75D9B72B CC int 3
75D9B72C CC int 3
75D9B72D CC int 3
75D9B72E CC int 3
75D9B72F CC int 3
KERNELBASE.CloseHandle:
75D9B730 8BFF mov edi,edi
75D9B732 55 push ebp
75D9B733 8BEC mov ebp,esp
75D9B735 56 push esi
75D9B736 8B7508 mov esi,[ebp+$08]
75D9B739 83FEF4 cmp esi,-$0c
75D9B73C 7218 jb $75d9b756
75D9B73E 83FEF6 cmp esi,-$0a
75D9B741 7713 jnbe $75d9b756
75D9B743 8D4508 lea eax,[ebp+$08]
75D9B746 50 push eax
75D9B747 6A00 push $00
75D9B749 56 push esi
75D9B74A E8DD020000 call $75d9ba2c
75D9B74F 85C0 test eax,eax
75D9B751 7403 jz $75d9b756
75D9B753 8B7508 mov esi,[ebp+$08]
75D9B756 56 push esi
75D9B757 FF153C10D975 call dword ptr [$75d9103c]

[Страдалецъ]

А вы ваш QueryUpdate собственно создаете?

[CrazyMan86]

Конечно - компонент кидается на форму, да и при компиляции никаких проблем нет. Проблема возникает при нажатии на соответствующую кнопку, весь остальной код работает нормально.
Вроде нигде ничего лишнего не создаю.
Хотя например - если взять и открыть Strings для это компонента в ObjectInspector'е то все нормально записывается и компилируется.
Кстати у меня тут же имеется другой такой же компонент. Так вот он работает без вопросов и там я тоже применяю присвоение.

[Aristarh Dark]

Я не знаю что там за s, но имхо надо бы:

Код:

for i := 0 to TableCurDeb.RecordCount-1 do