Mal wieder der Listenindex...

[Akut-Programming]

Hi,

ich hab da ein Problem in meiner ListView, und zwar wenn ich da die folgende procedur aufrufe (bei Button.Click) bekomme ich die Fehlermeldung, "der Listenindex überschreitet das maximum(1)".

Delphi-Quellcode:

procedure TfrmMain.ToolButton14Click(Sender: TObject);
begin
     ShowMessage(IntToStr(lvFiles.SelCount));
     if lvFiles.SelCount <> 0
     then begin
          cmdDeleteFile.CommandText:='delete from files_tbl where path = '''+lvFiles.Selected.SubItems[1]+'''';
          cmdDeleteFile.Execute;
          StatusBar1.SimpleText:='Projektdateien: Datei "'+lvFiles.Selected.SubItems[0]+'" wurde entfernt';
          Timer1.Enabled:=true;
          lvFiles.Selected.Delete;
     end;
end;

- Bei ner anderen ListView mache ichs aber nicht anderst. Kann mir vielleicht jemand sagen, warum der Fehler auftritt?

Gruß,

[Matze]

Ändere bitte deinen Titel, so krass musst du's ja auch nicht ausdrücken.


Edit: Was ist denn "cmdDeleteFile"?

[Akut-Programming]

So Titel ist geändert... cmdDeleteFile ist ein TADOCommand.

[alcaeus]

Hi Akut-Programming,

hat das ausgewählte ListView-Item auch 2 (!) SubItems?

Greetz
alcaeus

[Akut-Programming]

Ich dank dir... an den subitems lags...