Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.04.15;
Скачать: CL | DM;

Вниз

Неправильный Hint :)   Найти похожие ветки 

 
Riply ©   (2007-03-21 03:40) [0]

Здравствуйте !
В ситуациях, похожих на приведенную ниже, стал
появляться Hint (раньше, вроде, не было).
"Значение, присвоенное InternalThreadFunct ну совсем нигде не используется" :).
А оно мне нужно :)
Честно говоря, мне это очень сильно мешает.
function InternalThreadFunct(pParam: Pointer): integer;
begin
Result := 6574;
while True do
 begin
  //////////
 end;
end;

procedure TMainForm.btnStartClick(Sender: TObject);
var
i: integer;
hThread: THandle;
ThreadID: DWord;
begin // Попытка показать, что результат нужен :)
i := InternalThreadFunct(nil);
if i = 8 then Beep;
hThread := BeginThread(nil, 0, InternalThreadFunct, nil, CREATE_SUSPENDED, ThreadID);

Как ей (Delphi) объяснить, что в данной ситуации Result мне нужен ?
P.S. BDS 2006, но попробовала в Delphi 7 - та же картина.


 
Riply ©   (2007-03-21 05:32) [1]

Разобралась.
BDS - ка умная. Она не видела условия при котором
можно выйти из цикла, о чем и сообщала :)



Страницы: 1 вся ветка

Текущий архив: 2007.04.15;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.035 c
11-1156082362
thaddy
2006-08-20 17:59
2007.04.15
Corrected Koldef.inc for D8-D2005-D2006


15-1174386860
Игорь М.
2007-03-20 13:34
2007.04.15
Разрешённые сайты для посещения...


2-1174910685
Sonia
2007-03-26 16:04
2007.04.15
Поиск значения в БД через DBLookupComboBox


3-1169628531
pavel_guzhanov
2007-01-24 11:48
2007.04.15
Как передать параметр в хранимую процедуру


15-1174297229
WG
2007-03-19 12:40
2007.04.15
После переустановки офиса глючит OLE