определить последнюю строку в list box

[sativan]

уважаемые форумчане помогите разобраться с кодом:

смысл задания в том,чтобы найти первую пару положительных чисел и вывести их в другой лист бокс, пары находит все нормально,но ошибка вылазит если в списке вообще нет пар, то есть,как я понял при переходе на последнюю строку+1,
проверка

If ListBox1.ItemIndex = ListBox1.Count -1
  then
  break;

не срабатывает.

подскажите как правильно написать. Спасибо.

procedure TForm1.ToolButton9Click(Sender: TObject);
var
i,k:integer;
    a,b:real;    fl:boolean;
begin
k:=0; fl:=false;a:=0;b:=0;
for i:=0 to ListBox1.Count-1  do


begin
  If ListBox1.ItemIndex = ListBox1.Count -1
  then
  break;

if (StrTofloat(ListBox1.Items[i])>0) and (StrTofloat(ListBox1.Items[i+1]) > 0 ) then
begin
 fl:=true;

    a:=strtofloat(ListBox1.Items[i]);
    b:=strtofloat(ListBox1.Items[i+1]);
    end;

     if fl=true then
     break;

   end;

        ListBox2.Items.Add(floattostr(a));
        ListBox2.Items.Add(floattostr(b));

   if fl=false then

     ListBox2.Items.Add('Искомой пары нет') ;

_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор

[Serge_Bliznykov]

Сообщение от sativan

If ListBox1.ItemIndex = ListBox1.Count -1
then
break;

этот мусор выкинуть.

Сообщение от sativan

for i:=0 to ListBox1.Count-1  do

исправить на

for i:=0 to ListBox1.Count-2  do

[sativan]

исправил,все тоже самое

[Serge_Bliznykov]

Сообщение от sativan

исправил,все тоже самое

покажите ещё раз ваш код - процедуру после исправления

Сообщение от sativan

смысл задания в том,чтобы найти первую пару положительных чисел

и по заданию вопрос. А разве задание подразумевает, что пара положительных чисел является соседями? Откуда это следует?

[Sciv]

procedure TForm1.Button1Click(Sender: TObject);
var
  i:integer;
  fl:boolean;
begin
  fl:=false;
  // Очистка второго листа
  ListBox2.Items.Clear;

  for i:=0 to ListBox1.Count-2  do
  begin
    // Защита от пустых строк в первом листе
    if (Trim(ListBox1.Items[i]) <> '') and (Trim(ListBox1.Items[i + 1]) <> '') then
    begin
      // Проверка соседних элементов
      fl := (StrTofloat(ListBox1.Items[i]) > 0) and (StrTofloat(ListBox1.Items[i + 1]) > 0);
      if fl then
      begin
        ListBox2.Items.Add(ListBox1.Items[i]);
        ListBox2.Items.Add(ListBox1.Items[i + 1]);
        break;
      end;
    end;
  end;

  if not fl then
    ListBox2.Items.Add('Искомой пары нет') ;
end;

Или вообще сократить всё:

procedure TForm1.Button1Click(Sender: TObject);
var
  i:integer;
begin
  // Очистка второго листа
  ListBox2.Items.Clear;
  ListBox2.Items.Add('Искомой пары нет') ;

  for i:=0 to ListBox1.Count-2  do
  begin
    // Защита от пустых строк в первом листе
    if (Trim(ListBox1.Items[i]) <> '') and 
       (Trim(ListBox1.Items[i + 1]) <> '') and
       (StrTofloat(ListBox1.Items[i]) > 0) and
       (StrTofloat(ListBox1.Items[i + 1]) > 0) 
    then
    begin
        ListBox2.Items.Clear;
        ListBox2.Items.Add(ListBox1.Items[i]);
        ListBox2.Items.Add(ListBox1.Items[i + 1]);
        break;
    end;
  end;
end;

А вот ещё вариант без преобразований во флоат:

procedure TForm1.Button1Click(Sender: TObject);
var
  i:integer;
begin
  // Очистка второго листа
  ListBox2.Items.Clear;
  ListBox2.Items.Add('Искомой пары нет') ;

  for i:=0 to ListBox1.Count-2  do
  begin
    // Защита от пустых строк в первом листе
    if (Trim(ListBox1.Items[i]) <> '') and
       (Trim(ListBox1.Items[i + 1]) <> '') and
       (ListBox1.Items[i][1] <> '-') and
       (ListBox1.Items[i + 1][1] <> '-')
    then
    begin
        ListBox2.Items.Clear;
        ListBox2.Items.Add(ListBox1.Items[i]);
        ListBox2.Items.Add(ListBox1.Items[i + 1]);
        break;
    end;
  end;
end;

[sativan]

исправил,все тоже самое

Сообщение от Serge_Bliznykov

покажите ещё раз ваш код - процедуру после исправления

огромное вам спасибо,сейчас еще раз попробовал,все работает,тестил с различными вариантами.
в первый раз пробуя разные варианты,где то видимо ошибся с исправлением
единственное что при выводе сообщения /нет искомой пары/,в первые две строки
выводит 0,но это не критично.
вот рабочий код может кому пригодится:

procedure TForm1.ToolButton9Click(Sender: TObject);

var
i,k:integer;
    a,b:real;    fl:boolean;
begin
k:=0; fl:=false;a:=0;b:=0;
for i:=0 to ListBox1.Count-2  do


begin



if (StrTofloat(ListBox1.Items[i])>0) and (StrTofloat(ListBox1.Items[i+1]) > 0 ) then
begin
 fl:=true;

    a:=strtofloat(ListBox1.Items[i]);
    b:=strtofloat(ListBox1.Items[i+1]);
    end;

     if fl=true then
     break;

   end;

        ListBox2.Items.Add(floattostr(a));
        ListBox2.Items.Add(floattostr(b));

   if fl=false then

       ListBox2.Items.Add('Искомой пары нет') ;


       end;

_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор

[sativan]

Спасибо за помощь,успехов вам!

[Serge_Bliznykov]

Сообщение от sativan

огромное вам спасибо

не за что.

Сообщение от sativan

все работает

обратите внимание, Sciv выложил пару вариантов решения вашей задачи с улучшенным кодом.

Сообщение от sativan

единственное что при выводе сообщения /нет искомой пары/,в первые две строки
выводит 0,но это не критично.

это легко исправить:

procedure TForm1.ToolButton9Click(Sender: TObject);
var
    i:integer;
    a,b:real;    
    fl:boolean;
begin
  ListBox2.Items.Clear; 
  fl:=false;
  for i:=0 to ListBox1.Count-2  do
  begin
    if (StrTofloat(ListBox1.Items[i])>0) and (StrTofloat(ListBox1.Items[i+1])>0) then begin
      fl:=true;
      a:=strtofloat(ListBox1.Items[i]);
      b:=strtofloat(ListBox1.Items[i+1]);
      break
    end;
  end;


  if fl then begin
        ListBox2.Items.Add(floattostr(a));
        ListBox2.Items.Add(floattostr(b));
  end
  else 
       ListBox2.Items.Add('Искомой пары нет');

end;

но лучше обратите внимание на код в пост #5

[Аватар]

вот рабочий код может кому пригодится

Ну что это за код выставляется на всеобщее обозрение, на него смотреть больно, как курица лапой нацарапано. Правильно форматируй код, тебе же легче будет с ним работать ))

[sativan]

Сообщение от Аватар

Ну что это за код выставляется на всеобщее обозрение, на него смотреть больно, как курица лапой нацарапано. Правильно форматируй код, тебе же легче будет с ним работать ))

ну я не профи, там суть важна)
но спасибо за ценное замечание,буду стараться писать,чтобы приятно было смотреть)