InterBase, D7, Query

Категория: ---
Просмотров: 6

Доброго времени суток!

Второй день не могу разобраться почему не работает (а может и работает, но хз как) sql запрос в приложении

База DBabonent.gdb , таблица abonentko, поле neispravnost

Использовался Ibquery или ibDataset

IBDataSet1.Active:=false;
IBDataSet1.SelectSQL.Clear;
IBDataSet1.SelectSQL.add('select * from ABONENTKO where NEISPRAVNOST='+Combobox1.Text);
IBDataSet1.open;

в общем записи должны фильтроваться по полю неисправность, но как было так и осталось всё без изменения.
Ошибку не выдаёт, но ничего не делает.
Что я делаю не так?

Браузеры в Delphi

Категория: ---
Просмотров: 5

Компонент WebBrowser просматривает страницы с помощью IE. Скажите как реализовать это каким нить другим путем?

P.S.: Хотеось бы спросить, будет ли кому-нибудь интересно попробовать создать какой нибудь простенький совместный проект, т.е. я например выкладываю проект с кодом рабочего браузера с уже реализоваными всякими мелочами, а желающие дополняют его всяческими подобными фишками, плюшками и прочим. (=

Access violation at adress (Listbox, массив строк)

Категория: ---
Просмотров: 6

ругаецо на этот код

for i:=0 to form6.slistbox1.Count-1 do begin
m[i]:=form6.slistbox1.items[i];
ML:=ML+1; end

(полный код)

procedure TForm8.sButton1Click(Sender: TObject);
var  m:array of string;
     a:array of string;
     M2:array of integer;
     Z,i,g,ML,AL,j:integer;
begin
for i:=0 to form6.slistbox1.Count-1 do begin
m[i]:=form6.slistbox1.items[i];
ML:=ML+1;
end;

{for i:=0 to IBtable2.recordcount do
begin
a[i]:=IBTable2.fieldbyname('NOMERATS').asstring;
AL:=AL+1;
for Z:=0 to AL do
begin
  for j:=0 to ML do
    begin
      IBTable1.first;
      for g:=0 to IBtable1.recordcount do
            begin
               if IBtable1.fieldbyname('NOMER_ATS').AsString=A[Z] then
               if IBTable1.fieldbyname('neispravnost').AsString=m[i] then M2[i]:=M2[i]+1;
               IBTable1.next;
             end;
             end;
     smemo1.lines.add(A[z]+' '+ m[i]+' Количество'+ inttostr(M2[i]));
end;
end; }
end;

В чем проблема? (Access violation at adress )

---

Поясню суть
Задание: Сколько неисправностей каждого типа есть на каждой АТС

Сначала "загружаются" неисправности из Листбокса (который их загружает из тхт файла)
Затем из Таблицы АТС берётся номер АТС и дальше по таблице заявки сравниваецо, подсчитывацо и записываецо в мемо

(правда пока это в теории :) практика не работает )

Transparent & PNG Support Image Button v.1.0 для CodeGear Delphi 2009

Категория: ---
Просмотров: 6

Подскажите как установить Transparent & PNG Support Image Button v.1.0 вот от сюда: http://www.torry.net/quicksearchd.php?String=png&...
на CodeGear Delphi 2009 или он ставиться только на D7, если только на D7, то не подскажите где найти аналогичный компонент для D2009?

Драйвер Delphi 7

Категория: ---
Просмотров: 7

Пытаюсь получить список загруженных драйверов под NT но чет не пашет.
Где ошибка подскажите ?
[code delphi]
unit Unit1;
interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

const
DRIVER_INFORMATION = 11;

type
TPDWord = ^DWORD;
TDriverInfo = packed record
Address: Pointer;
Unknown1: DWORD;
Unknown2: DWORD;
EntryIndex: DWORD;
Unknown4: DWORD;
Name: array [0..MAX_PATH + 3] of Char;
end;

type
TForm1 = class(TForm)
ListBox1: TListBox;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
NtQuerySystemInformation: function (infoClass: DWORD;
buffer: Pointer;
bufSize: DWORD;
returnSize: TPDword): DWORD; stdcall = nil;
implementation

{$R *.dfm}

function GetDriverInfo: string;
var
temp, Index, numBytes, numEntries: DWORD;
buf: TPDword;
driverInfo: ^TDriverInfo;
begin
if @NtQuerySystemInformation = nil then
NtQuerySystemInformation := GetProcAddress(GetModuleHandle('ntdll.dll'),
'NtQuerySystemInformation');
NtQuerySystemInformation(DRIVER_INFORMATION, @temp, 0, @numBytes);
buf := AllocMem(numBytes * 2);
NtQuerySystemInformation(DRIVER_INFORMATION, buf, numBytes * 2, @numBytes);
numEntries := buf^;
driverInfo := Pointer(DWORD(buf) + 12);
Result := '';
for Index := 1 to numEntries do
begin
Result := Result + #0$D#0$A+'Address: $' + IntToHex(DWORD(driverInfo^.Address), 8) +
'Name: "' + (driverInfo^.Name) + '"';
Inc(driverInfo);
end;
Delete(Result, 1, 2);
FreeMem(buf);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
ListBox1.Items.Add(GetDriverInfo)
end;

end.
[/code]

Помогиете с циклом с накоплением

Категория: ---
Просмотров: 6

Вычеслить количество положительных значений Z
Z=R+3a R?[RN,RK] dR

A=max(d,N) , если С > 1 A это система из данных выражений
А=min(l,R) , если C < 1
Если количество положительных значений Z > = 5( >= это больше или равно), то вычеслить произведение отрицательных значений функции
Распечатать табличные значения
Зарание благодарен

книги по дельфи

Категория: ---
Просмотров: 6

Недавно себе на работу покупал книгу, для наших новичков.

Совершенно случайно купил Технология Delphi. Автор Бобровский. Замечательнейшая вещь. В этой книге всего понемногу. Основы языка, ООП, VCL, БД, .NET, COM, LifeCycle

Delphi + OpenGL

Категория: ---
Просмотров: 7

Есть здесь люди, которые занимались OpenGL?

Посоветуйте профилер для Дельфи.

Категория: ---
Просмотров: 5

Пишу очень важную прогу. Критично все, скорость работы, утечки памяти. Но что-то я не знаю ни одного профилера для Дельфи. Подскажите плиз.

ЗЫ, Варианты переписать прогу не любой другой язык кроме Pascal (Kylix, FreePascal), не подходят.

Программирование увлечение или работа?

Категория: ---
Просмотров: 9

Вот охото узнать: для вас программирование увлечение или работа?
Для меня пока лишь увлечение, т.к. пока ещё учусь(9 класс), но надеюсь со временем перерастёт в работу.

Опросы

Оцените работу движка

Geek informed