Форум: "Основная";
Текущий архив: 2002.04.29;
Скачать: [xml.tar.bz2];
ВнизПрервать процедуру. Найти похожие ветки
← →
gek (2002-04-16 09:32) [1]begin
GLOBAL_CANCEL:=false;
DM.clImport.First;
while not dm.clImport.Eof do
begin
Application.Processmessages;
if GLOBAL_CANCEL then
BREAK;
dm.oqImport.ClearVariables;
dm.oqImport.SetVariable ("KOD",dm.clImport.FieldByNameApplication.Processmessages;
("KOD").Value);
dm.clImport.Next;
Application.Processmessages;
end;
ShowMessage("Импорт товаров завершен!");
DM.odsGodova.Close;
DM.odsGodova.Open;
fmGod.Show;
fmImport.Close;
end;
procedure TMain_Form.ToolBtn_stopcicleClick(Sender: TObject);
begin
GLOBAL_CANCEL:=true;
end;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.04.29;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.005 c