Форум: "Основная";
Текущий архив: 2002.01.17;
Скачать: [xml.tar.bz2];
ВнизВопрос по TThread Найти похожие ветки
← →
Romul (2001-12-29 17:38) [4]Вот процедура после выполнения которой выводится количество номеров
procedure Capacity(ADOQuery1:TADOQuery; Label5:TLabel);
var
str:String;
begin
str:="+";
if ADOQuery1.Active then ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add("Select mb_number from MB where");
ADOQuery1.SQL.Add("mb_active="+QuotedStr(str)+" and mb_number>=convert(bigint, 3000) and mb_number<convert(bigint, 4000)");
try
ADOQuery1.Open;
except
on DBException:Exception do
ShowMessage("Error, mother fucker!");
end;
Label5.Caption:=IntToStr(ADOQuery1.RecordCount);
ADOQuery1.Close;
end;
Эта процедура соответственно запускается после нажатия кнопки следующим образом
T1:=TMyThread.Create(true);
T2:=TMyThread.Create(true);
T1.FreeOnTerminate:=True;
T2.FreeOnTerminate:=True;
T1.Resume;
Потом идет следующее
T2.FreeOnTerminate:=True;
T2.Resume;
А этот поток запускает примерно аналогичную процедурку, но там запрос намного больше записей возвращает, плюс там еще кое-чего надо подсчитать, а потом резалты тоже через лэйблы выводятся
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.01.17;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.003 c