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:
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