Несколько ошибок разом. Касательно памяти.

@VanSant · Регистрация: 05.12.2010

Author24 — интернет-сервис помощи студентам

День добрый всем. Проблема следующая: при компиляции программы вылетают ошибки:
1)"Project Project1.exe raised exception class EReadError with message 'List capacity out of bounds (%d)'.
2)"Project Project1.exe raised exception class EReadError with message 'Property is read-only'.
3)'Stack overflow' -> Access violation.

Погуглил.
Увеличил размер стека до максимума.
Убрал из процедур форм вызовы тех процедур, которые ещё не созданы\уже разрушены.
В целях экономии памяти в процедурах прописывал form*.destroy вместо form*.close\form*.hide
Проверил нет ли рекурсивных процедур, либо зацикленных операций.
Ни в одной процедуре не описан в качестве переменной массив. Его как переменной не существует(если не считать grid).

Программа пока не содержит ни одной серьёзной процедуры - в основном только ссылки на другие формы и проверки.
Вот те немногие процедуры, которые существуют.
2 процедуры поиска и 2 процедуры авторизации.

Я в печали... В чём проблема - не соображаю.

Delphi

procedure TForm1.Button4Click(Sender: TObject);
var
f:string;
begin
f:=form1.Edit1.text;
with form1.adoQuery1 do begin
form1.close;
ADOQuery1.SQL.Clear;
ADOQuery1.Active :=false;
ADOQuery1.SQL.LoadFromFile('select * From " guns " WHERE +item+ like "' +f+ '%"');
ADOQuery1.Active :=true;
open;
end;
end;

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
s:string;
begin
i:=form1.RadioGroup1.ItemIndex;
case i of
0 : s:='Автоматическое';
1 : s:='Полуавтоматическое';
2 : s:='Неавтоматическое';
3 : s:='Аксессуары';
4 : s:='Комплектующие';
end;
with form1.adoQuery1 do begin
form1.close;
ADOQuery1.SQL.Clear;
ADOQuery1.Active :=false;
ADOQuery1.SQL.LoadFromFile('select * From " guns " WHERE +type+ like "' +s+ '%"');
ADOQuery1.Active :=true;
open;
end;
end;

Delphi

procedure TForm3.Button1Click(Sender: TObject);
begin
if form3.Edit2.Text='993' then
begin;
form3.close;
form6.show;
end;
if form3.Edit2.Text<>'993' then form7.show;
end;

Delphi

procedure TForm11.Button1Click(Sender: TObject);
begin
  if (form11.Edit1.Text='vansant') and (form11.Edit2.Text='993') then
begin;
form11.close;
form10.show;
end;
if (form11.Edit1.Text<>'vansant') and (form11.Edit2.Text<>'993') then form7.show;
end;

@MsGuns · 25.05.2011, 15:27

У Вас по всем признакам зацикливание

@VanSant · 25.05.2011, 15:29 **[ТС]**

Так то оно так. Да вот только ему появиться неоткуда. Это все процедуры, которые могли бы хоть что-то сделать.

@MsGuns · 25.05.2011, 15:32

Delphi

1	ADOQuery1.SQL.LoadFromFile('select * From " guns " WHERE +item+ like "' +f+ '%"');

Это что за чудо-юдо О_о
Вы, наверное хотели сделать так :

ADOQuery1.SQL.Text := 'select * From guns WHERE+item+like '+QuotdStr(f+ '%');
ADOQuery1.Open;

Добавлено через 1 минуту
QuotedStr

@VanSant · 26.05.2011, 06:40 **[ТС]**

Справился с проблемой написанием программы с нуля.
Теперь вылетает одна оч неприятная ошибка в процедуре поиска. Не могли бы вы помочь исправить.
Говорю заранее - это оч глупый вариант поиска, но мне он почему то приглянулся.

Delphi

procedure TForm6.Button1Click(Sender: TObject);
var
find:string[12];
begin
find:=form6.Edit1.Text;
form6.ADOTable1.Filter:=find;
form6.Panel1.Visible:=true;
end;

в панели собственно находятся гриды для отображения найден... отфильтрованного. в чём фейл плз скажите:/
[quota]First chance exception at $7C812AFB. Exception class EOleException with message 'Аргументы имеют неверный тип, выходят за пределы допустимого диапазона или вступают в конфликт друг с другом'. Process Project2.exe (472)[/quota]

@MsGuns · 26.05.2011, 10:20

Не вдаваясь в обсуждения "оптимальности" поиска..
Фильтрация делается 2-мя способами:

1) Св-во Filter.
В это св-во записывается SQL-выражение условия, например FIO LIKE 'Иванов%' AND VOZRAST BETWEEN 18 AND 22:

Table.Filtered := false;
Table.Filter := 'FIO LIKE ''Иванов%'' AND VOZRAST BETWEEN 18 AND 22';
Table.Filtered := true;

Проверить корректность подставляемого выражения очлегко - для этого дстаточно в любом скл-эксплорере написать
SELECT * FROM TABLE
WHERE <сюда занести ваши условия из Filter>
Если запрос выполнится правильно смело запускайте код на выполнение

2) Событие OnFilterRecord
В обработчике этого события пишете

with DataSet do
Accept = (Copy(AnsiUpperCase(FieldByName('FIO').AsString),1,6)='Иванов') and
((FieldByName('FIO').AsInteger>=18) and (FieldByName('FIO').AsInteger<=22));

Добавлено через 1 минуту
with DataSet do
Accept = (Copy(AnsiUpperCase(FieldByName('FIO').AsString),1,6)='Иванов') and
((FieldByName('VOZRAST').AsInteger>=18) and (FieldByName('FIO').AsInteger<=22));

Добавлено через 46 секунд
with DataSet do
Accept = (Copy(AnsiUpperCase(FieldByName('FIO').AsString),1,6)='Иванов') and
((FieldByName('VOZRAST').AsInteger>=18) and (FieldByName('VOZRAST').AsInteger<=22));

@harmless · 26.05.2011, 12:52

'Автоматическое';'Полуавтоматическое';'Неавтоматическое';'Аксессуары'; 'Комплектующие';- вынести в отдельную таблицу БД.

@VanSant · 26.05.2011, 14:14 **[ТС]**

2 harmless
хм... идея. но слишком много гемора. трабл в том просто, что я просто напросто не умею делать sql запросы вообще

поэтому вот так вот извращаюсь.
2 MsGuns
ниодин вариант не подошёл. ругается что переменные перекрывают друг дружку... а вот какие показывать увы не хочет(

@MsGuns · 26.05.2011, 14:37

Тогда эта.. в дворники, там всегда дефицит рабочих рук

@VanSant · 26.05.2011, 16:20 **[ТС]**

не, дворники эт не мое

А проблему решил.
Я подрубил tquery и... Пришлось таки составить sql запрос... Ну не люблю я их

@MsGuns · 26.05.2011, 16:47

Delphi

1	Ну не люблю я их

Вы просто не умеете их готовить (с)

@SAMZ · 26.05.2011, 17:35

Сообщение от VanSant

Пришлось таки составить sql запрос... Ну не люблю я их

Либо придется полюбить, либо подумать о предложении MsGuns

@MsGuns 1497 / 1238 / 245 Регистрация: 04.04.2011 Сообщений: 4,363
	25.05.2011, 15:27	2
	У Вас по всем признакам зацикливание 0

@VanSant 0 / 0 / 1 Регистрация: 05.12.2010 Сообщений: 21
	25.05.2011, 15:29 [ТС]	3
	Так то оно так. Да вот только ему появиться неоткуда. Это все процедуры, которые могли бы хоть что-то сделать. 0

@MsGuns 1497 / 1238 / 245 Регистрация: 04.04.2011 Сообщений: 4,363
	26.05.2011, 10:20	6
	Не вдаваясь в обсуждения "оптимальности" поиска.. Фильтрация делается 2-мя способами: 1) Св-во Filter. В это св-во записывается SQL-выражение условия, например FIO LIKE 'Иванов%' AND VOZRAST BETWEEN 18 AND 22: Table.Filtered := false; Table.Filter := 'FIO LIKE ''Иванов%'' AND VOZRAST BETWEEN 18 AND 22'; Table.Filtered := true; Проверить корректность подставляемого выражения очлегко - для этого дстаточно в любом скл-эксплорере написать SELECT * FROM TABLE WHERE <сюда занести ваши условия из Filter> Если запрос выполнится правильно смело запускайте код на выполнение 2) Событие OnFilterRecord В обработчике этого события пишете with DataSet do Accept = (Copy(AnsiUpperCase(FieldByName('FIO').AsString),1,6)='Иванов') and ((FieldByName('FIO').AsInteger>=18) and (FieldByName('FIO').AsInteger<=22)); Добавлено через 1 минуту with DataSet do Accept = (Copy(AnsiUpperCase(FieldByName('FIO').AsString),1,6)='Иванов') and ((FieldByName('VOZRAST').AsInteger>=18) and (FieldByName('FIO').AsInteger<=22)); Добавлено через 46 секунд with DataSet do Accept = (Copy(AnsiUpperCase(FieldByName('FIO').AsString),1,6)='Иванов') and ((FieldByName('VOZRAST').AsInteger>=18) and (FieldByName('VOZRAST').AsInteger<=22)); 0

@harmless 151 / 151 / 3 Регистрация: 05.05.2010 Сообщений: 570
	26.05.2011, 12:52	7
	'Автоматическое';'Полуавтоматическое';'Неавтоматическое';'Аксессуары'; 'Комплектующие';- вынести в отдельную таблицу БД. 0

@VanSant 0 / 0 / 1 Регистрация: 05.12.2010 Сообщений: 21
	26.05.2011, 14:14 [ТС]	8
	2 harmless хм... идея. но слишком много гемора. трабл в том просто, что я просто напросто не умею делать sql запросы вообще поэтому вот так вот извращаюсь. 2 MsGuns ниодин вариант не подошёл. ругается что переменные перекрывают друг дружку... а вот какие показывать увы не хочет( 0

@MsGuns 1497 / 1238 / 245 Регистрация: 04.04.2011 Сообщений: 4,363
	26.05.2011, 14:37	9
	Тогда эта.. в дворники, там всегда дефицит рабочих рук 0

@VanSant 0 / 0 / 1 Регистрация: 05.12.2010 Сообщений: 21
	26.05.2011, 16:20 [ТС]	10
	не, дворники эт не мое А проблему решил. Я подрубил tquery и... Пришлось таки составить sql запрос... Ну не люблю я их 0

@SAMZ 1263 / 706 / 62 Регистрация: 21.12.2009 Сообщений: 2,256
	26.05.2011, 17:35	12
	Сообщение от VanSant Пришлось таки составить sql запрос... Ну не люблю я их Либо придется полюбить, либо подумать о предложении MsGuns 0