Samples Datenbank -> EArgumentOutOfRangeException

[nikosophi]

Danke himitsu, den Link kannte ich noch nicht.
Ich hätte gedacht, dass die samples beim update mit kommen.

Da ist auch ein neuer Ordner mit UML drin.
Ich habe doch die richtige runtergeladen: "radstudiodemos-code-2011-trunk.zip"

An meinem Problem hat es aber nichts geändert, da auch diese samples schon was älter sind:

29.01.14 18:04 36.352 fGettingStarted.dfm
27.02.15 17:55 4.578 fGettingStarted.pas
27.02.15 17:55 800 GettingStarted.dpr
29.01.14 18:04 65.870 GettingStarted.htm
30.01.14 23:53 2.520 GettingStarted.res

[nikosophi]

Es ist das TDBGrid.

1) Neues VCL-Projekt erstellt und alles als "GettingStarted" gespeichert.
2) TDBGrid auf das Formular geworfen und F9 gedrückt:
-> EArgumentOutOfRangeException mit Meldung 'Argument außerhalb des Bereichs


Da kann man doch eigentlich nicht soo viel falsch machen oder?

[Der schöne Günther]

Schwer zu glauben, allerdings habe ich mich von Update 1 bislang noch fern gehalten.

Klicke doch mal bitte auf "Anhalten" und sag uns was dann im Fenster "Aufruf-Stack" steht.

[nikosophi]

Ok,
als ichs abgeschickt habe, kam mir die Idee. Es geht nicht ohne Spaltendefinitionen.

Also wieder Demoprojekt geöffnet und in beide TDBGrids mit rechter Maustaste, Spalteneditor, eine neue Spalte hinzugefügt. F9 geht.

Hoffe, das wird noch gefixt. Als Einsteiger kommt man da sicher nicht drauf.

[nikosophi]

Wenn columns.count 0 ist,
dann geht das in Vcl.DBGrids.pas schief:

Delphi-Quellcode:

function TCustomDBGrid.CanEditShow: Boolean;
begin
  Result := (not Columns[SelectedIndex].ReadOnly)
      and (LayoutLock = 0) and inherited CanEditShow;
end;

weil dann in System.Generics.Collections.pas eine Exception kommt, und das ganze Programm abbricht.

Delphi-Quellcode:

procedure TListHelper.CheckItemRange(AIndex: Integer);
begin
  CheckItemRangeInline(AIndex);
end;

[FreiSoftWeb]

Hallo zusammen,

wenn man in der Org. VCL.DBGrids.pas die: „function TCustomDBGrid.CanEditShow: Boolean;“ gegen die vorherige von Berlin 10.1 (ohne Update 1) austauscht, funktioniert das DBGrid wieder ohne Probleme.

Das war übrigens die einzigste Änderung in der VCL.DBGrids.pas beim Update 1
Warum das überhaupt geändert wurde ist mir leider auch ein Rätzel… hoffe auch, dass dieses Problem bald gefixt wird.

Ich schaue immer wieder gern bei Euch rein – aufgrund von Zeitmangel aber leider zu selten Ihr seid alle gut

Alte Version 10.1 (ohne Update 1):

Delphi-Quellcode:

function TCustomDBGrid.CanEditShow: Boolean;
begin
  Result := (ColCount > 0) and (Col > 0) and ((FColumns.Count > 0) and not FColumns[Col - 1].Readonly)
      and (LayoutLock = 0) and inherited CanEditShow;
end;

[nikosophi]

Prima, nach dem downgrade des Updates gehts!

Zur Vollständigkeit: ich habe die Funktion, wie FreiSoftWeb geschrieben hat, in c:\Program Files (x86)\Embarcadero\Studio\18.0\source\data\vclctrls \Vcl.DBGrids.pas geändert ( Delphi als Admin starten, oder direkt mit dem Texteditor rangehen, sonst kann die history nicht geschrieben werden ).
Die beiden Vcl.DBGrids.dcu ( debug und release ) gelöscht, den Pfad zur Vcl.DBGrids.pas in das Projekt übernommen ( damit es neu kompilliert wird ).
F9. Dann ist alles wieder gut!

@ FreiSoftWeb: Ich finde auch die Idee gut neue Namespaces einzuführen:

Zitat: Org.VCL.DBGrids.pas

Wie wärs noch mit: Geht.VCL.DBGrids.pas oder so?

[blawen]

Dieser Thread hat mir x-Stunden Fehlersuche gespart

Bei einer Skalierung von 100% startete meine Anwendung problemlos, auf Rechnern mit einer Skalierung > 100% wurde beim Programmstart jeweils eine EArgumentOutOfRangeException bei 0045782 gemeldet.