Estou com um erro tão simples porém não sei como corrigir:

var

v1: integer;

v19: integer;

h: integer;

j: integer;

begin

v19 := (PosY);

v1 := (PosX);

h := StrToInt(LB1.Items.Strings[LB1.ItemIndex]);

j := StrToInt(LB2.Items.Strings[LB2.ItemIndex]);

if v1 = h and v19 = j then

LB1.ItemIndex := LB1.ItemIndex + 1

LB2.ItemIndex := LB2.ItemIndex + 1

end

Está dando erro na linha do and diz:

Incompatible Types

Editado Novembro 4, 2012 12 anos por alfbru (veja o histórico de edições)

Você está comparando string com int...?

PosX é oque?

Int, a posição x do player no jogo.

var

  v1: Integer;

  v19: Integer;

  h: Integer;

  j: Integer;

begin

  v19 := (PosY);

  v1 := (PosX);

  h := StrToInt(LB1.Items.Strings[LB1.ItemIndex]);

  j := StrToInt(LB2.Items.Strings[LB2.ItemIndex]);

  if (v1 = h) and (v19 = j) then

    begin

	  LB1.ItemIndex := LB1.ItemIndex + 1;

	  LB2.ItemIndex := LB2.ItemIndex + 1

    end;

end;

Exato, só tinha que colocar entre os parentes, valeu!