Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.025 c