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

Help   Найти похожие ветки 

← →
orlov ©   (2002-10-28 18:28) [0]

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;

---

← →
McSimm ©   (2002-10-28 18:29) [1]

Правда?

---

← →
Dr_Mike ©   (2002-10-28 18:30) [2]

Ну и что дальше ?

---

← →
McSimm ©   (2002-10-28 18:31) [3]

:)

Можно предположить, например, что при пустом ListBox3 возникнет исключение

---

← →
yukuz ©   (2002-10-28 18:31) [4]

в if попробуй:
if s[1]="-" then
и первый символ 0 строки "-"

---

← →
MBo ©   (2002-10-28 18:32) [5]

Зачем i?
Где проверка ListBox3.Items.Count>0 ?

---

← →
yukuz ©   (2002-10-28 18:33) [6]

я бы еще семафорчик сделал, чтобы оверфлоо не вылазило....

---

← →
yukuz ©   (2002-10-28 18:42) [7]

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;

---

← →
TTCustomDelphiMaster ©   (2002-10-28 19:15) [8]

семафорчик не нужен.

---

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

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



Память: 0.46 MB
Время: 0.011 c