Samples Datenbank -> EArgumentOutOfRangeException

[nikosophi]

Hy,

Bei jedem Beispielprogramm bekomme ich noch vor dem Form.Create eine Exception:
hier: c:\Users\Public\Documents\Embarcadero\Studio\18.0\ Samples\Object Pascal\Database\FireDAC\Samples\Getting Started\SQLite\GettingStarted.dproj

Erste Gelegenheit für Exception bei $75B8DB18. Exception-Klasse EArgumentOutOfRangeException mit Meldung 'Argument außerhalb des Bereichs'. Prozess GettingStarted.exe (3640)

Ich habe im unveränderten Source alles kontrolliert auf connected = FALSE, active = FALSE. Ich bekomme keins von den Beispielprogrammen ans laufen.

Das Berlin (Enterprise) Update 1 ist eingespielt. Alles in den vorgeschlagenen Standardpfaden.
Habe auch mal Delphi als Admin gestartet.
Alle Beispiele ( die ich getestet habe) ohne Datenbank laufen.

Muss man bezüglich Datenbank noch etwas installieren/intialisieren?

Danke für Denkanstöße!

[MasterDetail]

Habe versucht dein Problem mit Delphi 10 Seattle nach zu produzieren, trat aber kein Problem auf. :?:

[nikosophi]

Danke für deinen Versuch.
Ich habs leider vorher ohne Berlin Update oder mit Seattle nicht getestet.

Werde das Beispiel wohl mal Schritt für Schritt nachbauen müssen und gucken woran es liegt. :glaskugel:

[himitsu]

Deine Beispiele sind auch aktuell?

Die aktuellsten Demos findet man auf https://sourceforge.net/projects/radstudiodemos/,
bzw. man kann sie damit zurücksetzen, falls einem da drin was kaputt gegangen ist.

[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;