TMS-TAdvStringGrid, Objects, Sort
Hallo,
ich dreh hier noch frei ! Warum wird beim Beenden des Forms eine "ungültige Zeigeroperation" angezeigt. Lasse ich da AddObjects oder das SG.QSortIndexed; weg, klappt es. Ich will doch einfach nur mit dem normalen Objects arbeiten! Was jemand, was beim TAdvStringGrid zu tun ist? PS: Bitte keine allgemeinen Phrasen. Ich kenne mich mit dem TAdvStringGrid aus. Objects wird intern in CellProperties gespeichert. Wie ich mich da schon so geärgert habe, dass die das normale Objects überschrieben haben.
Delphi-Quellcode:
unit Unit74;
interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, BaseGrid, AdvGrid; type TForm1 = class(TForm) SG: TAdvStringGrid; procedure FormCreate(Sender: TObject); procedure FormDestroy(Sender: TObject); private procedure Sort; procedure AddObjects; public { Public-Deklarationen } end; var Form1: TForm1; implementation {$R *.dfm} type TIdItem = class Id: Integer; constructor Create(AId: Integer); end; { TIdItem } constructor TIdItem.Create(AId: Integer); begin Self.Id := AId; end; procedure TForm1.AddObjects; var iRow: Integer; begin for iRow := 0 to SG.RowCount-1 do begin SG.Objects[0,iRow] := TIdItem.Create(iRow); end; end; procedure TForm1.FormCreate(Sender: TObject); begin AddObjects; Sort; end; procedure TForm1.FormDestroy(Sender: TObject); var iRow : Integer; begin (* for iRow := 0 to SG.RowCount-1 do begin SG.Objects[0,iRow] := nil; end; *) inherited ; end; procedure TForm1.Sort; var iFixedRowsOrg : Integer; iFixedRootersOrg : Integer; iRow: Integer; begin SG.BeginUpdate; iFixedRowsOrg := SG.FixedRows; iFixedRootersOrg := SG.FixedFooters; try SG.FixedRows := 2; SG.FixedFooters := 2; SG.SortIndexes.Clear; SG.SortIndexes.Add(1); SG.SortIndexes.Add(2); //SG.SortSettings.NormalCellsOnly := True; SG.SortSettings.SingleColumn:= False; //SG.SortSettings.IgnoreCase:= False; (* for iRow := 0 to SG.RowCount-1 do begin SG.Objects[0,iRow] := nil; end; *) SG.QSortIndexed; finally SG.FixedRows := iFixedRowsOrg; SG.FixedFooters := iFixedRootersOrg; SG.EndUpdate; end; end; end. |
AW: TMS-TAdvStringGrid, Objects, Sort
Moin,
ich habe deinen Source mal 1:1 übernommen - keine Fehlermeldung. Was hast du denn noch für Projekteinstellungen? Ich hatte mal ähnlich gelagerte Probleme beim TAdvStringGrid, da hat mir der TMS-Support empfohlen, die Initialisierung des Grids mit Daten aus dem FormCreate rauszunehmen und zu einem späteren Zeitpunkt zu machen, z.B. im FormShow. Das hat in meinem Fall tatsächlich geholfen. |
AW: TMS-TAdvStringGrid, Objects, Sort
zwei kleine Änderungen habe ich vorgenommen:
1. In der Routine AddObjects lasse ich zusätzlich in Spalte 1 des Grids ein paar Integer-Werte schreiben, um die Sortierung zu sehen - passt, sortiert wird munter, Fehlermeldung: keine. 2. Vom auskommentierten Sourcecode in der Routine Sort habe ich den Part mit nil-Setzen der Objekte wieder aktiviert, Fehlermeldung: Keine - auch nicht mit einem Free-en statt nil-en |
AW: TMS-TAdvStringGrid, Objects, Sort
Hast Du das Grid gruppiert?
Wenn ja pack das Item mal in die zweite Spalte! Die Erste wird beim group "zerschossen" glaube ich mich zu errinnern. cu cg |
AW: TMS-TAdvStringGrid, Objects, Sort
Hallo,
ist nicht gruppiert. Das TCustomGrid.Objects wird vom TAdvStringGrid intern benutzt, ja, dafür hat das TAdvStringGrid ja enin überladenes (reintroduced?) Property Objects, was die Aufrufe in CellProperties.GridObjects umleitet. Was habe ihr denn beide für eine Version des Grids? |
AW: TMS-TAdvStringGrid, Objects, Sort
Mein Grid ist Version 8.2.0.1 (Oktober 2016 - wie, sollte ich das ganze Jahr kein Update gemacht haben?). Delphi Berlin 10.1 Berlin
|
AW: TMS-TAdvStringGrid, Objects, Sort
Hallo,
meine ist viel älter ... Aber ich benutze das an anderer Stelle auch. QSort statt QSortIndexed bringt auch nichts. Objects[1, statt Objects[0 geht auch nicht. |
AW: TMS-TAdvStringGrid, Objects, Sort
Hallo,
so, auf der Suche nach ClearCellProperties habe ich jetzt das
Delphi-Quellcode:
und erledigt !
procedure TForm1.FormDestroy(Sender: TObject);
begin SG.BeginUpdate; SG.Clear; // <<-- hier SG.EndUpdate; inherited ; end; Vielen Danke an alle. |
AW: TMS-TAdvStringGrid, Objects, Sort
Aha. Gibt das Clear auch die in Grid.Objects[x,y] gespeicherten Objektinstanzen frei? Oder verwaltest du die woanders?
|
AW: TMS-TAdvStringGrid, Objects, Sort
Hallo,
ja, der Code fehlt noch. FastMM4 meldet schon mal nichts. |
Alle Zeitangaben in WEZ +1. Es ist jetzt 23:56 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz