Aha Momente

[Dennis07]

Zitat von jaenicke:

Das erinnert mich an das alte "file of" Konstrukt. Mit beliebigen generischen Typen würde das allerdings nicht funktionieren.

Die Idee verstehe ich durchaus, aber ich sehe keine Möglichkeit einer Umsetzung. Im Grunde wäre die Anforderung quasi ein ORM auf Streambasis...

Naja sowas gibt es ja u.a. in Sprachen wie Java. Wäre sicher auch in Delphi irgendwie möglich, oder nicht?

[Neutral General]

Zitat von Dennis07:

Zitat von jaenicke:

Das erinnert mich an das alte "file of" Konstrukt. Mit beliebigen generischen Typen würde das allerdings nicht funktionieren.

Die Idee verstehe ich durchaus, aber ich sehe keine Möglichkeit einer Umsetzung. Im Grunde wäre die Anforderung quasi ein ORM auf Streambasis...

Naja sowas gibt es ja u.a. in Sprachen wie Java. Wäre sicher auch in Delphi irgendwie möglich, oder nicht?

Ich bezweifle stark, dass es sowas in Java gibt. Nach JSON serialisieren - ja. Aber generisches binäres Speichern von Objekten kann ich mir nicht vorstellen.
Ich meine man könnte vllt. mit Reflection/RTTI was machen, aber ob da am Ende das rauskommt was man gerne hätte ist fraglich.

[jaenicke]

Zitat von Dennis07:

Naja sowas gibt es ja u.a. in Sprachen wie Java. Wäre sicher auch in Delphi irgendwie möglich, oder nicht?

Den Stream<T>, den es in Java gibt, kann man auch in Delphi umsetzen, ja, wenn auch nicht mit inline LINQ, allerdings hat das nichts mit den Streams zu tun, wie es sie in der Delphi-Welt gibt...

[himitsu]

Gehen täte es schon, aber nicht "generell" für "alle" Datentypen.

Zitat:

LINQ

ginge auch, über OleVariants, nur da fehlt dann im Delphi wiederum die Codevervollständigung .... aber egal ... die funktioniert ja eh nie

[DataCool]

Hallo zusammen,

recht interessant finde ich in dem Zusammenhang:

Binary Json

Bson spec

Gretes Data

[himitsu]

nja, hatte schon vieles probiert ... nix half



alljährliches hohoho hahaha

https://www.kaufland.de/product/300851894/
schnell kaufen ... ist heute einen Euro günster, als wie letzte Woche.
Bei Amazon-BFW leider verpasst ... kurz vor Mitternacht geguckt und plötzlich war's teurer ... da waren es mal wirklich fast 20% unterm Preis, was Idealo zum letzten Jahr zu sagte.


Nja, wie war das letztens im Saturn-Werbespot?
bis 60 Prozent Rabat ... bla bla bla

Ja nee, wer's glaubt, wird seelig.
Prozente gegen die UVP, aber der Preis immernoch höher, als wie vor der Black Friday Week, bzw. wie der durchschnittliche Preis im letzten halben Jahr.

[Sinspin]

Der Aha-Moment ist bei bisher bei mir ausgeblieben. Da musst du mir mal helfen. Der kommt erst wenn ich verstanden habe wie man für eine altmodische MAUS (nur ansersrum) mit Ball der immer verdreckt 587€ ausgeben kann!

Kensington_Trackball.JPG

[himitsu]

Aha, Sonderangebote sind nachweislich teurer, als der angepriesene Rabatt.

Normal sind es hier um die 70-80€, auch mal bis 145€ in der letzten Chipkrise (grade hatte Google im ersten Suchergebnis Einen für 72.327,00 € · ‎Nicht auf Lager ... direkt beim Hersteller. vielleicht isses ja eine gute Wertanlage?)
Der verpasste Deal am ersten Black Friday Week-Day, war unter 60

Leider geht Meiner nach vielen Jahren langsam kaputt und ich suche schon 'ne Weile nach Ersatz. (der nachfolger gefällt mir nicht und auch andere Hersteller sind bisher nicht so meines)

[Sinspin]

Ich denke mal, das bei mir der irre Preis durch einen Anzeigefehler kommt. Die packen einfach ein Euro-Zeichen dahinter, zeigen mir aber einen Preis in Dirham an. Warum auch immer. Die Beschreibung ist bei mir übrigens in Holländisch (sollte aber Deutsch sein, ist auf meinem Rechner auch so eingestellt), wollte ich aber nicht zeigen damit der Aha-Moment nicht flöten geht.

Allerdings bleibt für mich nach wie vor die Frage warum dir der Ball gefällt. Da fällt aller möglicher Kram rein. Bei den Mäusen mit Ball hat das schon zu Reinigungsorgien geführt, und da ist der Ball nach unten.
Die optischen Mäuse sind deutlich weniger pflegeintensiv.

Schon mal eine vertikale Maus ausprobiert? Ist anfangs komisch, aber man kommt damit schnell klar.

[himitsu]

Sieht was wirklich nach dossigem TurboPascal-Code im aktuellen Delphi aus?

Zitat:

---------------------------
Fehler
---------------------------
Assertion failure: "(pi != &pef->pageInfoVec[pef->nPages])"
in ..\win32src\proc32.cpp at line 3664
---------------------------
OK Details >>
---------------------------

[5F05AF3C]{dbkdebugide280.bpl} Debug.TDebugKernel.msgBox (Line 5945, "Debug.pas" + 30) + $0
[01307F8D]{bordbk280.dll} Unbekannte Funktion bei @isDbkLoggingOn$qv + $E0B5
[0184A5BC]{bordbk280N.dll} Unbekannte Funktion bei @isDbkLoggingOn$qv + $2F744
[0181C6BF]{bordbk280N.dll} Unbekannte Funktion bei @isDbkLoggingOn$qv + $1847
[0185F0E3]{bordbk280N.dll} Unbekannte Funktion bei POSTEDHOOKPROC + $E22B
[01843640]{bordbk280N.dll} Unbekannte Funktion bei @isDbkLoggingOn$qv + $287C8
[01843473]{bordbk280N.dll} Unbekannte Funktion bei @isDbkLoggingOn$qv + $285FB
(000073A6){bordbk280N.dll} [018183A6]
(00006F62){bordbk280N.dll} [01817F62]
[0183DF8B]{bordbk280N.dll} Unbekannte Funktion bei @isDbkLoggingOn$qv + $23113
[01843934]{bordbk280N.dll} Unbekannte Funktion bei @isDbkLoggingOn$qv + $28ABC
[018239CA]{bordbk280N.dll} Unbekannte Funktion bei @isDbkLoggingOn$qv + $8B52
[01857D3D]{bordbk280N.dll} Unbekannte Funktion bei POSTEDHOOKPROC + $6E85
[01851672]{bordbk280N.dll} Unbekannte Funktion bei POSTEDHOOKPROC + $7BA
[0185163F]{bordbk280N.dll} Unbekannte Funktion bei POSTEDHOOKPROC + $787
[01862288]{bordbk280N.dll} Unbekannte Funktion bei POSTEDHOOKPROC + $113D0
[01862297]{bordbk280N.dll} Unbekannte Funktion bei POSTEDHOOKPROC + $113DF
[0185BC3B]{bordbk280N.dll} Unbekannte Funktion bei POSTEDHOOKPROC + $AD83
[0182391A]{bordbk280N.dll} Unbekannte Funktion bei @isDbkLoggingOn$qv + $8AA2
[018620EE]{bordbk280N.dll} Unbekannte Funktion bei POSTEDHOOKPROC + $11236
[01827115]{bordbk280N.dll} Unbekannte Funktion bei @isDbkLoggingOn$qv + $C29D
[0185F64F]{bordbk280N.dll} Unbekannte Funktion bei POSTEDHOOKPROC + $E797
[018520FE]{bordbk280N.dll} Unbekannte Funktion bei POSTEDHOOKPROC + $1246
[0185290A]{bordbk280N.dll} Unbekannte Funktion bei POSTEDHOOKPROC + $1A52
[01852887]{bordbk280N.dll} Unbekannte Funktion bei POSTEDHOOKPROC + $19CF
[01851FE7]{bordbk280N.dll} Unbekannte Funktion bei POSTEDHOOKPROC + $112F
[01851851]{bordbk280N.dll} Unbekannte Funktion bei POSTEDHOOKPROC + $999
[0183BBDB]{bordbk280N.dll} Unbekannte Funktion bei @isDbkLoggingOn$qv + $20D63
[0183BCA9]{bordbk280N.dll} Unbekannte Funktion bei @isDbkLoggingOn$qv + $20E31
[018456D2]{bordbk280N.dll} Unbekannte Funktion bei @isDbkLoggingOn$qv + $2A85A
[01845985]{bordbk280N.dll} Unbekannte Funktion bei @isDbkLoggingOn$qv + $2AB0D
[01854953]{bordbk280N.dll} Unbekannte Funktion bei POSTEDHOOKPROC + $3A9B
[01854926]{bordbk280N.dll} Unbekannte Funktion bei POSTEDHOOKPROC + $3A6E
[01854953]{bordbk280N.dll} Unbekannte Funktion bei POSTEDHOOKPROC + $3A9B
[018480D3]{bordbk280N.dll} Unbekannte Funktion bei @isDbkLoggingOn$qv + $2D25B
[01854FEF]{bordbk280N.dll} Unbekannte Funktion bei POSTEDHOOKPROC + $4137
[5E296049]{dcc32280.dll} C:\PROJECTS\OLYMPUS\TP\INTERMEDIATE\DEBUG\COM\DCC32\CODEGEN.OBJ.BufferConst + $5F5
[5E2944F9]{dcc32280.dll} C:\PROJECTS\OLYMPUS\TP\INTERMEDIATE\DEBUG\COM\DCC3 2\CODEGEN.OBJ.AfterMakeVarAddressable + $3735
[5E1EA51F]{dcc32280.dll} C:\PROJECTS\OLYMPUS\TP\INTERMEDIATE\DEBUG\COM\DCC3 2\SYMTAB.OBJ.CompTypes + $133
[5E294417]{dcc32280.dll} C:\PROJECTS\OLYMPUS\TP\INTERMEDIATE\DEBUG\COM\DCC3 2\CODEGEN.OBJ.AfterMakeVarAddressable + $3653
(000073A6){bordbk280N.dll} [018183A6]
(00006F62){bordbk280N.dll} [01817F62]
[0184700A]{bordbk280N.dll} Unbekannte Funktion bei @isDbkLoggingOn$qv + $2C192
[018473CF]{bordbk280N.dll} Unbekannte Funktion bei @isDbkLoggingOn$qv + $2C557
[01829D17]{bordbk280N.dll} Unbekannte Funktion bei @isDbkLoggingOn$qv + $EE9F
[01829DCB]{bordbk280N.dll} Unbekannte Funktion bei @isDbkLoggingOn$qv + $EF53
[61C2EF46]{vcl280.bpl } Vcl.Styles.TSeStyleObject.DrawChild (Line 4607, "StyleAPI.inc" + 7) + $17
[61C31518]{vcl280.bpl } Vcl.Styles.TSeBitmapObject.Draw (Line 5830, "StyleAPI.inc" + 186) + $C
[0181EDA6]{bordbk280N.dll} Unbekannte Funktion bei @isDbkLoggingOn$qv + $3F2E
[0183BCFB]{bordbk280N.dll} Unbekannte Funktion bei @isDbkLoggingOn$qv + $20E83
[0183BF95]{bordbk280N.dll} Unbekannte Funktion bei @isDbkLoggingOn$qv + $2111D
[0183D88E]{bordbk280N.dll} Unbekannte Funktion bei @isDbkLoggingOn$qv + $22A16
[6024477A]{rtl280.bpl } System.@FinalizeRecord (Line 32799, "System.pas" + 72) + $2
[619FE32C]{vcl280.bpl } Vcl.Graphics.TGDIHandleRecall.Destroy (Line 11489, "Vcl.Graphics.pas" + 4) + $6
[6023FDF4]{rtl280.bpl } System.TObject.Free (Line 17991, "System.pas" + 1) + $4
[61C460DD]{vcl280.bpl } Vcl.Styles.TCustomStyle.DoDrawElement (Line 1635, "Vcl.Styles.pas" + 552) + $16
[60240D8C]{rtl280.bpl } System.TMonitor.TryEnter (Line 19933, "System.pas" + 10) + $0
[602408AC]{rtl280.bpl } System.TMonitor.Enter (Line 19594, "System.pas" + 4) + $2
[60240D8C]{rtl280.bpl } System.TMonitor.TryEnter (Line 19933, "System.pas" + 10) + $0
[602408AC]{rtl280.bpl } System.TMonitor.Enter (Line 19594, "System.pas" + 4) + $2
[60240D8C]{rtl280.bpl } System.TMonitor.TryEnter (Line 19933, "System.pas" + 10) + $0
[602408AC]{rtl280.bpl } System.TMonitor.Enter (Line 19594, "System.pas" + 4) + $2
[0181EDA6]{bordbk280N.dll} Unbekannte Funktion bei @isDbkLoggingOn$qv + $3F2E
[0183D177]{bordbk280N.dll} Unbekannte Funktion bei @isDbkLoggingOn$qv + $222FF
[60240784]{rtl280.bpl } System.TMonitor.Destroy (Line 19530, "System.pas" + 0) + $0
[6023FED5]{rtl280.bpl } System.TObject.CleanupInstance (Line 18232, "System.pas" + 23) + $0
[6023A388]{rtl280.bpl } System.@FreeMem (Line 4985, "System.pas" + 20) + $0
[6023FCFC]{rtl280.bpl } System.TObject.FreeInstance (Line 17928, "System.pas" + 2) + $2
[602404CA]{rtl280.bpl } System.@ClassDestroy (Line 19296, "System.pas" + 0) + $2
[619F94BB]{vcl280.bpl } Vcl.Graphics.TBitmap.Destroy (Line 8130, "Vcl.Graphics.pas" + 5) + $6
[6023FDF4]{rtl280.bpl } System.TObject.Free (Line 17991, "System.pas" + 1) + $4
[61B688EF]{vcl280.bpl } Vcl.Forms.TScrollingStyleHook.DrawHorzScroll (Line 13979, "Vcl.Forms.pas" + 46) + $3
[61B67AFA]{vcl280.bpl } Vcl.Forms.TScrollingStyleHook.TScrollWindow.WMPain t (Line 13625, "Vcl.Forms.pas" + 21) + $D
[61B67B23]{vcl280.bpl } Vcl.Forms.TScrollingStyleHook.TScrollWindow.WMPain t (Line 13629, "Vcl.Forms.pas" + 25) + $D
[61A17F46]{vcl280.bpl } Vcl.Controls.TControl.WndProc (Line 7584, "Vcl.Controls.pas" + 91) + $6
[69D95B2F]{vclactnband280.bpl} Vcl.ActnMenus.CallWindowHook (Line 762, "Vcl.ActnMenus.pas" + 20) + $F
[60240D67]{rtl280.bpl } System.TMonitor.TryEnter (Line 19924, "System.pas" + 1) + $0
[602408AC]{rtl280.bpl } System.TMonitor.Enter (Line 19594, "System.pas" + 4) + $2
[60240714]{rtl280.bpl } System.TMonitor.CheckOwningThread (Line 19508, "System.pas" + 2) + $0
[60240A3A]{rtl280.bpl } System.TMonitor.Exit (Line 19698, "System.pas" + 1) + $2
[61A202C5]{vcl280.bpl } Vcl.Controls.TWinControl.Update (Line 12727, "Vcl.Controls.pas" + 1) + $12
[61A202DD]{vcl280.bpl } Vcl.Controls.TWinControl.Repaint (Line 12733, "Vcl.Controls.pas" + 2) + $4
[61B693ED]{vcl280.bpl } Vcl.Forms.TScrollingStyleHook.PaintScroll (Line 14283, "Vcl.Forms.pas" + 5) + $2
[61B6A206]{vcl280.bpl } Vcl.Forms.TScrollingStyleHook.WMKeyUp (Line 14788, "Vcl.Forms.pas" + 2) + $4
[61B263C9]{vcl280.bpl } Vcl.Themes.TStyleHook.WndProc (Line 7689, "Vcl.Themes.pas" + 38) + $6
[61B265AA]{vcl280.bpl } Vcl.Themes.TMouseTrackControlStyleHook.WndProc (Line 7788, "Vcl.Themes.pas" + 1) + $4
[61B6A3B0]{vcl280.bpl } Vcl.Forms.TScrollingStyleHook.WndProc (Line 14863, "Vcl.Forms.pas" + 0) + $0
[5F211144]{themeloader280.bpl} IDETheme.IDEStyleHooks.TEditControlIDEStyleHook.Wn dProc (Line 449, "IDETheme.IDEStyleHooks.pas" + 0) + $0
[61B25BEE]{vcl280.bpl } Vcl.Themes.TStyleHook.HandleMessage (Line 7394, "Vcl.Themes.pas" + 20) + $6
[61C49A6E]{vcl280.bpl } Vcl.Styles.TStyleEngine.HandleMessage (Line 3601, "Vcl.Styles.pas" + 22) + $7
[61B22638]{vcl280.bpl } Vcl.Themes.TStyleManager.HandleMessage (Line 5858, "Vcl.Themes.pas" + 11) + $11
[61A1B0CF]{vcl280.bpl } Vcl.Controls.TWinControl.DoHandleStyleMessage (Line 9449, "Vcl.Controls.pas" + 0) + $F
[60240D8C]{rtl280.bpl } System.TMonitor.TryEnter (Line 19933, "System.pas" + 10) + $0
[602408AC]{rtl280.bpl } System.TMonitor.Enter (Line 19594, "System.pas" + 4) + $2
[60240714]{rtl280.bpl } System.TMonitor.CheckOwningThread (Line 19508, "System.pas" + 2) + $0
[60240A3A]{rtl280.bpl } System.TMonitor.Exit (Line 19698, "System.pas" + 1) + $2
[2385D65D]{cxLibraryRS28.bpl} Cxcontainer. + $0
[237EABE9]{cxLibraryRS28.bpl} Dxhooks. + $0
[237EA9FD]{cxLibraryRS28.bpl} Dxhooks. + $0
[61B64297]{vcl280.bpl } Vcl.Forms.TApplication.ProcessMessage (Line 11462, "Vcl.Forms.pas" + 25) + $1
[61B642D2]{vcl280.bpl } Vcl.Forms.TApplication.HandleMessage (Line 11490, "Vcl.Forms.pas" + 1) + $4
[61B64611]{vcl280.bpl } Vcl.Forms.TApplication.Run (Line 11629, "Vcl.Forms.pas" + 27) + $3
[01088082]{bds.exe } bds.bds (Line 227, "" + 16) + $2