Problem beim auslesen eines Subitems von ListView

[sharkx]

hallo !

Schlagt mich, tretet mich, aber ich steh aufm schlauch *g*

Read Error, irgendwas .. auf jeden kakkt er da beim lesen immer ab

Delphi-Quellcode:

function KeyExists(KeyList: TListView; Key: String): Boolean;
var
  i: Integer;
begin
  Result := false;

  if KeyList.Items.Count > 0 then
    begin
      for i := 1 to KeyList.Items.Count do
        begin
          if KeyList.Items.Item[i].SubItems.Strings[0] = Key then
            Result := true
          else
            Result := false;
        end;
    end;
end;

[Muetze1]

Moin!

Bei Items gehts von 0 bis Count-1, daher dürfte ein RangeError kommen...

Delphi-Quellcode:

function KeyExists(KeyList: TListView; Key: String): Boolean;
var
  i: Integer;
begin
  Result := false;

  if KeyList.Items.Count > 0 then
    begin
      for i := 0 to KeyList.Items.Count-1 do
        begin
          if KeyList.Items.Item[i].SubItems.Strings[0] = Key then
            Result := true
          else
            Result := false;
        end;
    end;
end;

MfG
Muetze1

[Delphi_Fanatic]

Dieses if

Code:

 
if KeyList.Items.Count > 0 then 
    begin

vor Eurer for-schleife könnt Ihr doch weg lassen ...

[sharkx]

jop danke Muetze !

[s14]

Wäre es so nicht richtiger
Wenn Keylist nur einen Eintrag hat würde er ja gar nicht erkannt werden.

Delphi-Quellcode:

function KeyExists(KeyList: TListView; Key: String): Boolean; 
var 
  i: Integer; 
begin 
  Result := false; 
  for i := 0 to KeyList.Items.Count-1 do 
    if KeyList.Items.Item[i].SubItems.Strings[0] = Key then 
    begin
      Result := true;
      Exit; // wenn einer gefunden wird kann man ja auch gleich raus
    end; 
end;