Форум программистов, компьютерный форум, киберфорум
Lazarus
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.61/18: Рейтинг темы: голосов - 18, средняя оценка - 4.61
0 / 0 / 0
Регистрация: 14.08.2015
Сообщений: 5
1

Как исправить ошибку?

14.08.2015, 10:40. Показов 3543. Ответов 2
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Как исправить ошибку?


Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
procedure LoadItemsWithId(AList: TStrings; AQStr: string; AFText, AFId: string;
  AClear: boolean);
var
  Query: TZQuery;
  Id: TId;
begin
  if AClear then
  begin
    ClearListObjects(AList);
    AList.Clear;
  end;
 
  CreateQuery(Query);
 
  if ExecQuery(Query, AQStr, True) > 0 then
    while not Query.EOF do
    begin
      Id := TId.Create;
      Id.Id := Query.FieldByName(AFId).AsString;
      AList.AddObject(Query.FieldByName(AFText).AsString, Id);
      Query.Next;
    end;
  Query.Close;
  FreeThenNil(Query);
end;
 
procedure CreateQuery(AQuery: TZQuery);
begin
  AQuery := TZQuery.Create(nil);
  AQuery.Connection := dmData.ZConnection1;
end;
 
function ExecQuery(AQuery: TZQuery; AQStr: string; ASelect: boolean): integer;
begin
  AQuery.SQL.Text := AQStr;  // Ошибка здесь ... 
  if ASelect then
  begin
    AQuery.Active := True;
    Result := AQuery.RecordCount;
  end
  else
  begin
    AQuery.ExecSQL;
    Result := AQuery.RowsAffected;
  end;
end;
 
....
 
LoadItemsWithId(cbxRegion.Items, 'select * from spr_region order by kod_kad',
    'nomi', 'kod');
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
14.08.2015, 10:40
Ответы с готовыми решениями:

Как исправить ошибку?
При компиляции всё ок, но программа вместо того, чтоб запуститься, выдаёт ошибку:

Скажите пожалуйста как исправить ошибку
Пишет ошибку в этом месте case c of строка 65. Хотя с начала вроде всё работало а потом...

Как исправить ошибку: формат теста исправить нельзя, только текст программы
class AmericanDate: def __init__(self, y, m, d): self.get_year = str(y) ...

Подскажите как исправить ошибку. прога ломается на 79 строке. а ошибку не выдает
#include <iostream> #include <cstdlib> #include <ctime> using namespace std; int chisla(int...

2
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
 Аватар для volvo
33049 / 21349 / 8205
Регистрация: 22.10.2011
Сообщений: 36,660
Записей в блоге: 9
14.08.2015, 11:29 2
Pascal
1
2
3
4
5
procedure CreateQuery(var AQuery: TZQuery); // <---
begin
  AQuery := TZQuery.Create(nil);
  AQuery.Connection := dmData.ZConnection1;
end;
, RunTime Error 210 - это Object not initialized, на будущее...
2
0 / 0 / 0
Регистрация: 14.08.2015
Сообщений: 5
14.08.2015, 11:59  [ТС] 3
volvo, спс
0
14.08.2015, 11:59
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
14.08.2015, 11:59
Помогаю со студенческими работами здесь

Структура: Не могу понять, почему выдает ошибку и как собственно эту ошибку можно исправить?
Привет,не могу понять почему ошибку выдает и как сбстно эту ошибку можно исправить? #include...

Как исправить исправить ошибку в коде
Здравствуйте,помогите пожалуйста исправить ошибку в коде.using System; using System.Threading; ...

Выводит ошибку MBS6006 "CL.exe" exited with code 2. Как исправить эту ошибку?
Иногда возникает эта ошибка и не понимаю, мол откуда она. Погуглил - ничего дельного. Подскажите,...

Выводит ошибку MBS6006 "CL.exe" exited with code 2. Как исправить эту ошибку?
#pragma once #include &quot;iostream&quot; #include &quot;conio.h&quot; #include &quot;cmath&quot; #include &lt;string&gt;...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Новые блоги и статьи
[Golang] 121. Best Time to Buy and Sell Stock
alhaos 28.01.2025
В этой задаче мы получаем слайс целых чисел, которые означают цену акции в разные моменты времени, и должны вернуть максимально возможную прибыль от купли продажи акции. / / . . .
Проектирование и моделирование
hw_wired 28.01.2025
Введение в моделирование Моделирование представляет собой один из фундаментальных методов научного познания, который позволяет изучать объекты и явления через создание их упрощенных аналогов. В. . .
Алгоритмы и исполнители
hw_wired 28.01.2025
Введение в алгоритмы В современном мире информационных технологий алгоритмы играют основополагающую роль в решении различных задач и автоматизации процессов. Алгоритм представляет собой точную. . .
Хранение информации
hw_wired 28.01.2025
Введение: Роль систем хранения информации в современном мире В современную эпоху цифровых технологий эффективное хранение информации становится одним из ключевых факторов успешного развития любой. . .
Обработка числовой информации
hw_wired 28.01.2025
Введение в обработку числовой информации В современном мире обработка числовой информации стала неотъемлемой частью как профессиональной деятельности, так и повседневной жизни. Электронные таблицы. . .
Мультимедиа
hw_wired 28.01.2025
Введение в мультимедийные технологии В современном мире мультимедийные технологии стали неотъемлемой частью нашей жизни, проникнув во все сферы человеческой деятельности. Термин "мультимедиа". . .
Обработка текстовой информации
hw_wired 28.01.2025
Введение в обработку текстовой информации В современном мире обработка текстовой информации играет фундаментальную роль в различных сферах человеческой деятельности. Текстовые редакторы стали. . .
Обработка графической информации
hw_wired 28.01.2025
Введение в компьютерную графику Компьютерная графика стала неотъемлемой частью современного цифрового мира, пройдя впечатляющий путь развития от простейших черно-белых изображений до сложных. . .
Python в Алгоритмике: Решение задач
hw_wired 28.01.2025
Введение в Python и Алгоритмику В современном мире программирование стало неотъемлемой частью образования и профессионального развития. Python зарекомендовал себя как один из самых популярных и. . .
Компьютер как универсальное устройство для работы с информацией
hw_wired 28.01.2025
Введение в устройство компьютера Компьютер представляет собой универсальное электронное устройство, предназначенное для автоматической обработки информации. В современном мире компьютер стал. . .
Информация и информационные процессы
hw_wired 28.01.2025
Понятие информации и ее виды В современном мире информация является одним из фундаментальных понятий, пронизывающих все сферы человеческой деятельности. Под информацией понимают любые сведения об. . .
Алгоритмика
hw_wired 28.01.2025
Введение: Основы алгоритмики и её роль в информатике В современном мире программирование и алгоритмическое мышление стали неотъемлемой частью образования и профессиональной деятельности. . . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru