Skip to content

Instantly share code, notes, and snippets.

@juntalis
Created October 11, 2018 06:19
Show Gist options
  • Save juntalis/2b0381ba1f7e20186e96229eb5bf6225 to your computer and use it in GitHub Desktop.
Save juntalis/2b0381ba1f7e20186e96229eb5bf6225 to your computer and use it in GitHub Desktop.
unit ListViewBug;
interface
uses
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ComCtrls;
procedure ReproduceSegFault;
implementation
procedure ReproduceSegFault;
var
FListView : TListView;
begin
FListView := Tlistview.create(nil);
FListView.OwnerData := true;
FListView.itemindex := -1;
FListView.items.count := 0;
end;
end.
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment