Hola de nuevo...
el codigo funciona bien....solo que el recorre el listbox y no me avisa cuando paso al siguiente item (ej.: 01 al 02)...y si me avisa cuando llego al final..
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
begin
ListBox2.Items.LoadFromFile('C:\IPCapitulo.txt');
end;
IPCapitulo.txt :
01
01
01
02
02
03
03
03
04
Código Delphi
[-]
procedure TForm1.SpeedButton1Click(Sender: TObject);
var anterior : String;
begin
anterior := '';
with ListBox2.Items do begin
if ListBox2.ItemIndex < Count-1 then begin
ListBox2.ItemIndex := ListBox2.ItemIndex + 1;
if (ListBox2.Items[ListBox2.ItemIndex] <> anterior) and (anterior <> '') then
showmessage('cambio');
anterior := ListBox2.Items[ListBox2.ItemIndex];
end
else MessageDlg('Final del curso !',mtInformation,[mbOk],0);
end;
end;
tambien estaba probando con esta otra procedure que encontre por el foro:
Código Delphi
[-]
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
begin
with ListBox2 do
begin
ItemIndex:= (ItemIndex + 1) mod Count;
if ItemIndex < Count then
if Items[ItemIndex] <> Items[ItemIndex] then
begin
showmessage('cambio');
end;
end;
end;
end;
nuevamente gracias por la ayuda...
saludos