Показать сообщение отдельно
  #7  
Старый 27.04.2010, 16:48
Аватар для AleD
AleD AleD вне форума
Активный
 
Регистрация: 21.02.2009
Адрес: г.Краснокаменск
Сообщения: 383
Репутация: 91
По умолчанию

Цитата:
Сообщение от Esserg
Но ВОПРОС: как прервать основной поток программы кнопкой Abort?
Т.е. Чтобы все вычисления которые сделаны остались, в ListBox3 стало видно то, что успело сравнится (Я потом оттуда в файл сохраняю).
Переменную заведи, типа FAborted и в конце каждого цикла проверяй её, True - закончить цикл, False - продолжить... а при нажатии на кнопку Abort устанавливай эту переменную в True
__________________
TAleD = class(TUser)
public
function HelpMe(ASubject, ARequest: String): String;
function GiveMeExample(ASubject: String): TStringList;
procedure WriteReview(APost: Integer; ADescription: TStringList);
end;
Ответить с цитированием