| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Help [D6]
orlov © (2002-10-28 18:28:00)procedure TForm1.Timer4Timer(Sender: TObject);
var
i:Integer;
s:String;
begin
s:=ListBox3.Items[ListBox3.Items.Count-1];
if s="-" then
begin
Panel7.Visible:=True;
end;
end;
TTCustomDelphiMaster (2002-10-28 19:15:00) [1]семафорчик не нужен.
yukuz (2002-10-28 18:42:00) [2]var semaphore: boolean;
....
....
procedure TForm1.Timer4Timer(Sender: TObject);
var
i:Integer;
s:String;
begin
if not semaphore then Begin
semaphore := True;
if ListBox3.Items.Count > 0 then Begin
s:=ListBox3.Items[ListBox3.Items.Count-1];
if s="-" then
Panel7.Visible:=True;
end;
semaphore := False;
end;
end;
yukuz (2002-10-28 18:33:00) [3]я бы еще семафорчик сделал, чтобы оверфлоо не вылазило....
MBo (2002-10-28 18:32:00) [4]Зачем i?
Где проверка ListBox3.Items.Count>0 ?
McSimm (2002-10-28 18:31:00) [5]:)
Можно предположить, например, что при пустом ListBox3 возникнет исключение
yukuz (2002-10-28 18:31:00) [6]в if попробуй:
if s[1]="-" then
и первый символ 0 строки "-"
Dr_Mike (2002-10-28 18:30:00) [7]Ну и что дальше ?
McSimm (2002-10-28 18:29:00) [8]Правда?
| |
