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]

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

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