Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Olá Pessoal,
Estou com um problemão por aqui, preciso fazer uma variavel do tipo ponteiro receber um valor de um ListBox (um por vez), mas estou com dificuldades para fazer isto. Será que alguém poderia me ajudar ? Estou passando o código abaixo e indicando onde estou com problema.
for X := 1 to QNT do
begin
ListBox1.Items.Add(IntToStr(RandomRange(N, N2)));
new(atual);
atual^.numero := ListBox1.Items.IndexOf(ListBox1.Items[x]); // ONDE ESTOU COM PROBLEMA
atual^.prox := nil;
if pri = nil then
begin
pri := atual;
ult :=atual;
atual^.ant := nil
end
else
begin
ult^.prox := atual;
atual^.ant := ult;
ult := atual;
end;
end;
Não sei se estou fazendo certo ali, mas o problema dá erro de "LIST INDEX OUT OF BOUNDS(1).
Por favor, preciso de ajuda.
Obrigado
Gilcimar
Carregando comentários...