[Resolvido] [DELPHI] Erro Simples 'AND'

[alfbru 71]

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 por alfbru (veja o histórico de edições)

[Kimoszin 1160]

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

PosX é oque?

[alfbru 71]

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

[Kimoszin 1160]

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;

[alfbru 71]

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

[thiagobji 409]

Dúvida Sanada?

[Kimoszin 1160]

Aqui não precisa mover, já botei a TAG.

Pra onde se move duvidas sanadas é só de OT, aqui não é.