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ß,