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

@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

Блоги программистов
Как перейти с Options API на Composition API в Vue.js BasicMan 06.01.2025 Почему переход на Composition API актуален В мире современной веб-разработки фреймворк Vue. js продолжает эволюционировать, предлагая разработчикам все более совершенные инструменты для создания. . .	Архитектура современных процессоров inter-admin 06.01.2025 Процессор (центральный процессор, ЦП) является основным вычислительным устройством компьютера, которое выполняет обработку данных и управляет работой всех остальных компонентов системы. Архитектура. . .	История создания реляционной модели баз данных, правила Кодда Programming 06.01.2025 Предпосылки создания реляционной модели В конце 1960-х годов компьютерная индустрия столкнулась с серьезными проблемами в области управления данными. Существовавшие на тот момент модели данных -. . .	Полезные поделки на Arduino, которые можно сделать самому raxper 06.01.2025 Arduino как платформа для творчества Arduino представляет собой удивительную платформу для технического творчества, которая открывает безграничные возможности для создания уникальных проектов. Эта. . .	Подборка решений задач на Python IT_Exp 06.01.2025 Целью данной подборки является предоставление возможности ознакомиться с различными задачами и их решениями на Python, что может быть полезно как для начинающих, так и для опытных программистов. . . .	С чего начать программировать микроконтроллеры raxper 06.01.2025 Введение в мир микроконтроллеров Микроконтроллеры стали неотъемлемой частью современного мира, окружая нас повсюду: от простых бытовых приборов до сложных промышленных систем. Эти маленькие. . .
Из чего собрать игровой компьютер inter-admin 06.01.2025 Сборка игрового компьютера требует особого внимания к выбору комплектующих и их совместимости. Правильно собранный игровой ПК не только обеспечивает комфортный геймплей в современных играх, но и. . .	Обновление сайта www.historian.by Reglage 05.01.2025 Обещал подвести итоги 2024 года для сайта. Однако начну с того, что изменилось за неделю. Добавил краткий урок по последовательности действий при анализе вредоносных файлов и значительно улучшил урок. . .	Как использовать GraphQL в C# с HotChocolate Programming 05.01.2025 GraphQL — это современный подход к разработке API, который позволяет клиентам запрашивать только те данные, которые им необходимы. Это делает взаимодействие с API более гибким и эффективным по. . .	Модель полного двоичного сумматора с помощью логических операций (python) AlexSky-coder 04.01.2025 def binSum(x:list, y:list): s=^y] p=x and y for i in range(1,len(x)): s. append((x^y)^p) p=(x and y)or(p and (x or y)) return s x=list() y=list()	Это мы не проходили, это нам не задавали...(асихронный счётчик с управляющим сигналом задержки). Hrethgir 04.01.2025 Асинхронный счётчик на сумматорах (шестиразрядный по числу диодов на плате, но наверное разрядов будет больше - восемь или шестнадцать, а диоды на старшие), так как триггеры прошли тестирование и. . .	Руководство по созданию бота для Телеграм на Python IT_Exp 04.01.2025 Боты для Телеграм представляют собой автоматизированные программы, которые выполняют различные задачи, взаимодействуя с пользователями через интерфейс мессенджера. В данной статье мы рассмотрим,. . .

@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