listbox

[DM2005]

Hola a todos nuevamente, necesitando una vez mas de la ayuda en el foro...
estoy trabajando con un listbox en el que cargo un archivo txt, por medio de un speedbuttom, voy recorriendo el mismo,

seria algo asi:
lleno el listbox con los items del archivo txt

Código Delphi [-]
ListBox2.Items.LoadFromFile('C:\IPCapitulo.txt');

recorro los items del listbox

Código Delphi [-]
procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
   with ListBox2.Items do
    begin
      if ListBox2.ItemIndex < Count-1
         then ListBox2.ItemIndex := ListBox2.ItemIndex + 1
         else MessageDlg(Final del curso !',mtInformation,[mbOk],0);
end;

el contenido del listbox seria:
01
01
01
02
02
03
03
04

y quiero que cuando pase por ejemplo del item 01 al 02..me informe con un mensaje que pase al siguiente item..
muchas gracias por la ayuda..
saludos..

[epuigdef]

Buenas!

Prueba esto:

Código Delphi [-]
procedure TForm1.SpeedButton2Click(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;

Un saludo

Edu

[DM2005]

Hola a todos nuevamente, segun mi duda planteada, epuigdef, me paso una procedure que no es muy clara, ya que da un error, y aparentemente no estaria realizando lo que estoy necesitando...
desde ya muchas gracias por el tiempo..
saludos..

[roman]

¿Eso es todo? Podrías decir por qué no te parece claro o qué error te da. Además, si aparentemente no hace lo que deseas posiblemente sea porque no ha quedado claro que es eso que deseas ¿no crees? ¿Por qué mejor no tratas de aclararlo?

// Saludos

[epuigdef]

Hola!

Pues no le veo el error, pero lo he hecho de memoria porque en este ordenador no tengo el Delphi.

Lo que creo que hace es dar un mensaje a cada cambio de valor, excepto en el primero.

Ya nos dirás algo!

Edu

[DM2005]

Hola... les comento don de me da error...

Código Delphi [-]
procedure TForm1.SpeedButton2Click(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;

en la primer linea.... donde declara la variable... supongo que correctamente seria asi:

Código Delphi [-]
var anterior: String;

2º error es en la linea:

Código Delphi [-]
if (ListBox2.items[ListBox2.itemindex] <> anterior) and (anterior <> '') then

alli cuando compilo me da el siguinte mensaje:
"Missing operator or semicolon"

espero haber aclarado bien mi duda..
gracias

[DM2005]

Muchas Gracias, Hector.
Funciono correctamente como necesitaba.
Saludos