Jump to content


  • Content Count

  • Joined

  • Last visited

Community Reputation

4 Neutral

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. david_navigator

    Transforming Data (Pivot ?)

    Yes, got it working with the Pivot Grid. If I add some Custom Summary code, then it does what I want 🙂 procedure TForm50.cxDBPivotGrid1Field3CalculateCustomSummary(Sender: TcxPivotGridField; ASummary: TcxPivotGridCrossCellSummary); begin with ASummary do begin if Records.Count >0 then begin Custom := GetValue(Records[0]); end else Custom := ''; end; end; I was also hoping that the TcxPivotGridSummaryDataSet would create a dataset that reflects the grid e.g Fuel Oil Water Temperature Level Ok Ok ================================================== 10 True False Hot 5 True False Warm 100 False True Cold but is seems to just export the same dataset as the source of the Pivot grid. Will need to do some more playing with that. i.e Instance Setting Value ========================================== 1 Fuel Level 10 1 Oil OK True 1 Water OK False 1 Temperature Hot
  2. david_navigator

    Transforming Data (Pivot ?)

    The number settings in a dataset is determined by the user, not the developer. The number of different datasets is also determined by the user. As the developer I have to come up with a row -> column solution that will work for any dataset the user designs.
  3. david_navigator

    Transforming Data (Pivot ?)

    No this was a simplification. There are also many data sets e.g the original sample shown is storing data about an engine, there maybe a similar dataset storing say electrical data. There are [user defined] rows per instance and actually the number of rows can vary between datasets As the table will be filtered by dataset, they're not really relevant to the solution. Since I posted the original Question I have got further with DexExpress's Pivot Grid, so it maybe that it is the prefered solution. Dataset Instance Setting Value ========================================== 1 1 Fuel Level 10 1 1 Oil OK True 1 1 Water OK False 1 1 Temperature Hot 1 2 Fuel Level 5 1 2 Oil OK True 1 2 Water OK False 1 2 Temperature Warm 1 3 Fuel Level 100 1 3 Oil OK false 1 3 Water OK true 1 3 Temperature Cold 2 1 Voltage A 240 2 1 Voltage B 380 2 1 Current A 10 2 1 Current B 30 2 1 Warning Light On 2 1 Filter Colour Red 2 2 Voltage A 440 2 2 Voltage B 120 2 2 Current A 180 2 2 Current B 30 2 2 Warning Light On 2 2 Filter Colour Blue
  4. I have some data that is stored in rows, but I need in columns e.g Instance Setting Value ========================================== 1 Fuel Level 10 1 Oil OK True 1 Water OK False 1 Temperature Hot 2 Fuel Level 5 2 Oil OK True 2 Water OK False 2 Temperature Warm 3 Fuel Level 100 3 Oil OK false 3 Water OK true 3 Temperature Cold Fuel Oil Water Temperature Level Ok Ok ================================================== 10 True False Hot 5 True False Warm 100 False True Cold So the instance field groups the data together and the Setting field describes the Columns and the Value field the data for that intersection. Of course at design time I have no idea how big an instance might be. It could have as little as two settings or maybe as many as 20 (I doubt it would ever be larger than that) The database I'm using has no support for Pivoting data. I could write the transformation in SQL, but that'd be horribly slow to execute. I need to be able to display the data to the end user in a grid format and so I thought a DevExpress Pivot grid might do the job, but that only seems to like numeric data at the intersection - unless I misunderstand how it works. Are there any other solutions available, Google didn't really help (maybe I'm searching on the wrong terms) or is this something that's fairly easy to code (to run efficiently) ? David
  5. david_navigator

    Has anyone tried running Delphi on Windows ARM?

    Is it only me that thinks it's funny that it's faster to run Windows via an emulator on a non-native platform, than it is to run Windows directly on Intel ?
  6. david_navigator


    It's certainly not robust enough for commercial use, but as a hobbyist it allowed me to get an experimental app to the apple store without any real apple device. I now have a powerful macbook and other than the speed and the lack of occasional unexplained crashes, the user experience is pretty much the same.
  7. david_navigator


    If you're just playing and experimenting, then you could try a hackintosh - it's what I used until I had some real work that would justify buying a real mac - that said, it was slow and prone to crashing, but as it was just my own time being wasted, I didn't really mind.
  8. david_navigator

    Learning Delphi

    Depends how much you want to invest (time & money). When I on boarded a new (to programming) developer many years ago, I started off by giving him small project to play with, searching through books/Google gave him the info he needed to write the code, but it was sometime after that I realised that there were fundamentals about developing code missing from his knowledge e.g he had no idea that the concept of break points & watches existed, so was littering his code with showmessages when trying to debug.
  9. It's not just 64 bit - smtpQuit : PostMessage(Form1.Handle, WM_REMOVEOBJ, Integer(Sender), 0); + smtpQuit : PostMessage(Form1.Handle, WM_REMOVEOBJ, WPARAM(Sender), 0); as discussed here,
  10. Can you use the in built delphi REST Debugger to help ?
  11. david_navigator

    Range Check Error ERangeError

    Thanks. That did indeed reproduce the error and also proved that the fix worked. Many thanks
  12. david_navigator

    Range Check Error ERangeError

    Thanks. That makes sense. So now I need to update all of his code 🙂
  13. david_navigator

    Range Check Error ERangeError

    If I was 100% certain that this was the reason for the RangeCheck error, then obviously I'd update the code and spend a load of time testing there were no side effects, but is it ? As I said the code's been like this for 10 years, it's code that executes around the world 1000's of times a day and I've only had a report from one user.
  14. david_navigator

    Range Check Error ERangeError

    32bit It's a colleagues code who's currently on furlough so I'm a bit hesitant to change the code, especially as 1. there are 44 instances where Sender is cast as an Integer and I don't know if they'll be any "gotchas" ? 2. I don't even know if this is the reason for the ERangeCheck as I can't reproduce.
  15. The following code (which has been in my 32 bit app for about 10 years) has just started to throw a range check error for one tester. All I can think of is that the cast of TObject to an Integer is the issue, but in that case why would it only affect one user ? The only difference between this user and others is that he's running under WINE, but I don't know why that would make a difference ? procedure TEqlistFrm.VenueEditMainKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin PostMessage(Handle, CM_SEARCH, Integer(Sender), Key); end;