Вверх ↑
Разработчик
Ответов: 26066
Рейтинг: 2120
#1: 2011-11-17 11:59:13 ЛС | профиль | цитата
Интересно, а какой получается текущий индекс в случае вылета в методе SetDriveName


  begin
if Err then
if DriveReady(Control.Items[DrvIdx][3]) then
Control.CurIndex := DrvIdx
else
begin // Ïðè âîçâðàòå âîçíèêëà îøèáêà
Drv := #99 + ':';
Control.CurIndex := Control.SearchFor(Drv[1], 0, True);
end
else
Control.CurIndex := Control.SearchFor(Drv[1], 0, True);
_debug(Control.CurIndex); // вот тут мы видим текущий индекс
VolList.Items[Control.CurIndex] := dspc + GetLabelDisk(Drv[1], False);
if FixedDrive(Drv[1]) then Timer1.Enabled := True;
end;
------------ Дoбавленo в 11.59:
1nd1g0 писал(а):
Он про какой-нибудь _Debug, наверное

Все правильно

  _debug;
при успехе будет выдавать -- операция успешно завершена
карма: 22

0