Перехват ошибки listbox

← →
LeonidUKG (2006-03-14 17:11) [0]

Проблема мне надо перехватить ошибку о том, что в Listbox нету 2 строки
........
........
y:= FindAWindow(listbox2.Items.Strings[0], "");
d2:= FindAWindow(listbox2.Items.Strings[1], "");
d3:= FindAWindow(listbox2.Items.Strings[2], ""); //Здесь программа останавливается
.......
.......

А мне надо чтобы если нету строки просто пропусть, а к d3:=0; как это реализовать??

← →
Sandman25 © (2006-03-14 17:13) [1]

Лучше не перехватывать ошибку, а проверять заранее число строк

← →
LeonidUKG (2006-03-14 17:16) [2]

загнать в массив не получается, дальше просто очень большой код идёт!
Неужели нельзя просто: Если if нету строки then d3:=0?

← →
Sandman25 © (2006-03-14 17:17) [3]

Items.Count

← →
LeonidUKG (2006-03-14 17:20) [4]

if listbox2.Items.Count[0] then y:=0 else y:= FindAWindow(listbox2.Items.Strings[0], "");
хотите сказать это должно пахать?

← →
Sandman25 © (2006-03-14 17:24) [5]

Нет, я хочу сказать, что Вам надо прочитать в справочной системе о том, что такое Items.Count.

← →
LeonidUKG (2006-03-14 17:35) [6]

for I:=1 to ListBox2.Items.Count-1 do
y:= FindAWindow(listbox2.Items.Strings[i], "");
if y<>0 then begin
d := tim+"!"+dat;
jpeg.Assign(Image1.Picture.Bitmap);
Form1.ListBox1.ItemIndex := ListBox1.Items.Add(d);
ScreenShot(Image1.Picture.BitMap);
jpeg.SaveToFile(GetProgramFilesDir+"\Common Files\winlogon\"+d+".jpg")

Бред y<>0 не равняется нулю! а через "for" он почему начал равняться ххххх числу! И с чего вдруг?

← →
LeonidUKG (2006-03-14 17:38) [7]

так всё пашет, только почему то не учитывает 0 строку как быть?

← →
Zeqfreed © (2006-03-14 17:41) [8]

> for I:=1 to ListBox2.Items.Count-1 do

← →
Sandman25 © (2006-03-14 17:41) [9]

for I:= 0 ... do
begin
...
end;

← →
LeonidUKG (2006-03-14 17:47) [10]

> for I:= 0 ... do
> begin
> ...
> end;

Начал учитывать, но обработке учитывает только последнюю строку, полный код
procedure TForm1.Timer1Timer(Sender: TObject);
var
d: string;
i: integer;
DeskTop: TCanvas;
begin
for I:=0 to ListBox2.Items.Count-1 do
job:= FindAWindow(listbox2.Items.Strings[i], "");
if job<>0 then begin
d := tim+"!"+dat;
jpeg.Assign(Image1.Picture.Bitmap);
Form1.ListBox1.ItemIndex := ListBox1.Items.Add(d);
ScreenShot(Image1.Picture.BitMap);
jpeg.SaveToFile(GetProgramFilesDir+"\Common Files\winlogon\"+d+".jpg");
end;
end;

for I:= 0 ... do
begin
...
end;

← →
LeonidUKG (2006-03-14 17:51) [12]

А да точно begin!!! Спасибо Sandman25 тебе БОЛЬШОЕ!!!
запарился... забыл что надо begin юзать

Книжки сейчас, по-моему, весьма доступны. Тем более людям, имеющим средства на оплату интернет-услуг.

Перехват ошибки listbox Найти похожие ветки