VPF::Почему запрос выполняется дважды?

RelictOs

Дата 6.5.2012, 08:00 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 45
Регистрация: 14.2.2012

Репутация: нет
Всего: 1

Код


//Вывод аукциона в текст
function ShowAucList(var SG,DBS : TStringGrid; filt : string) : boolean;
var
 curline,filtid : string;
 i : integer;
 prevguid : string;
begin
 result := false;

 ConCount := ConCOunt + 1;
 with ThreadQuery('SELECT * FROM auction WHERE guid >= 0;',DBCHAR) do
  begin
   if Fields[0].AsString = '' then
   begin
    Connection.Disconnect;
    Connection.Free;
    Free;
    ConCount := ConCount -1;
    exit;
   end;
   repeat
    begin
     ConCount := ConCount + 1;
     with ThreadQuery('SELECT entry FROM item_template WHERE entry='+Fields[2].AsString+filt+';',DBWORLD) do
      begin
       filtid := Fields[0].AsString;
       Connection.Disconnect;
       Connection.Free;
       Free;
      end;
     ConCount := ConCount -1;

     if (filtid <> '') then
      begin
       ShowMessage(Inttostr(Length(filtid)));
       with SG.Rows[SG.RowCount-1] do
        begin
         ShowMessage(GetItemName(Fields[2].AsInteger));
         Add(GetItemName(Fields[2].AsInteger));
         Add(GetCharName(Fields[1].AsString));
         Add(GetItemPrice(Fields[3].AsInteger,Fields[4].AsString,Fields[5].AsString));
        end;
       with DBS.Rows[SG.RowCount-1] do
        begin
         Add(Fields[0].AsString);
         Add(Fields[1].AsString);
         Add(Fields[2].AsString);
         Add(Fields[3].AsString);
         Add(Fields[4].AsString);
         Add(Fields[5].AsString);
        end;
       SG.RowCount := SG.RowCount + 1;
       prevguid := Fields[0].AsString;
       DBS.RowCount := SG.RowCount;
      end;
     next;
    end;
    until eof;
    SG.RowCount := SG.RowCount -1;
    result := true;
  end;
  ConCount := ConCount -1;
end;

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

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »