Jeg må være blind

Hvad sker der når koden udføres?
Kommer der en fejl eller hvad?

Den giver et forkert resultat.
Dette er mit array

myarray[0] := 22;
myarray[1] := 56;
myarray[2] := 44;

Den giver
no match
no match
no match
no match
no match
no match
match
match

Det burde være

no match
match
match
match

Stoney

Nedenstående kode giver no match, match, match, match hos mig.

procedure TForm1.Button1Click(Sender: TObject);
var
  strlist : tstringlist;
  aint,i : integer;
  Match: Boolean;
begin
  strlist := tstringlist.Create;
  strlist.Add('11');
  strlist.Add('56');
  strlist.Add('44');
  strlist.Add('22');
  memo1.Clear;
  for i := 0 to strlist.Count - 1 do begin
    Match := False;
    for AInt := low(myarray) to high(myarray) -1 do Begin
      if strlist.IndexOf(inttostr(myarray[i])) = -1 then
      Else Begin
        Match := True;
        Break;
      End;
    End;
    If Match Then
      memo1.Lines.Add('match')
    Else
      memo1.Lines.Add('no match')
  End;
  strlist.free;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  myarray[0] := 22;
  myarray[1] := 56;
  myarray[2] := 44;
end;

Snowball

1.
Du behøver ikke trække 1 fra når du bruger High(array)
2.
if strlist.IndexOf(inttostr(myarray[i])) >= 0 then
memo1.Lines.Add('match')

for AInt := low(myarray) to high(myarray) -1 do
skal vist være
  for AInt := low(myarray) to high(myarray) do
som doc404 også gør opmærksom på :-)

Dernæst, så prøv at fjerne

for i := 0 to strlist.Count - 1 do

Derfor:

var
  strlist : tStringList;
  aint : Integer;
begin
  strlist := tStringList.Create;
  strlist.Add('11');
  strlist.Add('56');
  strlist.Add('44');
  strlist.Add('22');
  memo1.Clear;

  for AInt := low(myarray) to high(myarray) do
    if strlist.IndexOf(inttostr(myarray[AInt])) = -1 then
      memo1.Lines.Add('match')
    else
      memo1.Lines.Add('no match');

  strlist.Free;
end;

Det her er testet og virker:

var
  strlist : tStringList;
  aint, I: Integer;
  myarray: Array [0..2] of Integer;
begin
  myarray[0] := 22;
  myarray[1] := 56;
  myarray[2] := 44;

  strlist := tStringList.Create;
  strlist.Add('11');
  strlist.Add('56');
  strlist.Add('44');
  strlist.Add('22');
  memo1.Clear;

  for I := 0 to strlist.Count - 1 do
    for AInt := low(myarray) to high(myarray) do
      if strlist[I] = inttostr(myarray[AInt]) then
      begin
        memo1.Lines.Add('match');
        Break;
      end
      else if AInt = high(myarray) then
        memo1.Lines.Add('no match');

  strlist.Free;
end;

snowball > Den giver det omvendte resultat. (jeg kan nu godt
selv rette det)

athlon-pascal virker 100%, så det vel ham der skal have point.
Skriv lige hvis du er utilfreds.

Stoney

Svar :-)

Snowballs løsning kommer til at virke den rigtige vej, hvis du udskifter
  for i := 0 to strlist.Count - 1 do begin
med
  for i := strlist.Count - 1 downto 0 do begin
:-)

Ved ikke lige helt hvad jeg fik lavet om her til sidst. Det virkede da jeg skrev det. Oh, well - it's a strange world we live in ;)

Snowball

athlon-pascal > som jeg sagde "jeg kan nu godt
selv rette det" :-)

Tak for hjælpen

Stoney