Jump to content

JohnLM

Members
  • Content Count

    369
  • Joined

  • Last visited

Everything posted by JohnLM

  1. Apparently, I did have v3.8.10 installed, but the installation must have missed some things I did not tick at the time of initial installation. I proceeded to uninstall it and reinstall it and making sure I tic the part about adding it the search path. Afterwards, the installation went successfully and I type in PIP and the process worked. Below is a run-through of the process for the command line: PIP install pandas C:\Users\dell>pip install pandas Collecting pandas Downloading pandas-2.0.3-cp38-cp38-win_amd64.whl (10.8 MB) |████████████████████████████████| 10.8 MB 1.3 MB/s Collecting python-dateutil>=2.8.2 Downloading python_dateutil-2.9.0.post0-py2.py3-none-any.whl (229 kB) |████████████████████████████████| 229 kB 1.7 MB/s Collecting numpy>=1.20.3 Downloading numpy-1.24.4-cp38-cp38-win_amd64.whl (14.9 MB) |████████████████████████████████| 14.9 MB 1.6 MB/s Collecting pytz>=2020.1 Downloading pytz-2025.1-py2.py3-none-any.whl (507 kB) |████████████████████████████████| 507 kB 1.3 MB/s Collecting tzdata>=2022.1 Downloading tzdata-2025.1-py2.py3-none-any.whl (346 kB) |████████████████████████████████| 346 kB 1.3 MB/s Collecting six>=1.5 Downloading six-1.17.0-py2.py3-none-any.whl (11 kB) Installing collected packages: six, tzdata, pytz, python-dateutil, numpy, pandas Successfully installed numpy-1.24.4 pandas-2.0.3 python-dateutil-2.9.0.post0 pyt z-2025.1 six-1.17.0 tzdata-2025.1 WARNING: You are using pip version 21.1.1; however, version 25.0 is available. You should consider upgrading via the 'c:\users\dell\appdata\local\programs\pyth on\python38\python.exe -m pip install --upgrade pip' command. C:\Users\dell> I am not sure that it installed in the correct place. I mean, I did not give it a folder/path name. I just opened a comand line prompt via CMD and the default folder showed, thus, c:\users\dell I am not a Python guru. Can anybody confirm that I performed this operation correctly?
  2. Thanks. Okay, I found the last version of Python being made for Windows 7 is v3.8.10 - After that version, only Windows 10 and onward - 😞 link --> https://www.python.org/downloads/release/python-3810/ download link 64b --> https://www.python.org/ftp/python/3.8.10/python-3.8.10-amd64.exe download link 32b --> https://www.python.org/ftp/python/3.8.10/python-3.8.10.exe
  3. pip is not on my machine. I searched around for it. Also, after some time searching some more, I found out how to tell which version of Python I have installed, which is currently at version 2.7.9rc1 and I must have installed it back in 2014 since the date of the folder "Python27" shows that year it was created. To the best of my memory, I got interested in it when I heard about and watched a youtube video on Python4Delphi by Jim Mckeeth and I must have installed to try it out back then and then forgot about it until around now. But the version I have seems to work fine, and I've tried many lessons successfully. Just basic stuff. But now I want to get into it more deeper. Oh, and I searched around for "pandas" or a folder at least, and I did not find any. It looks like I have a bit of research to do.
  4. Specs: Delphi XE7, VCL, windows 7, Dell laptop (i3 core, 2.40GHz) I have been playing around with the Listview control, (via ViewStyle=vsReport) learning how to add items at runtime through code (not using a database/binder), for 100 to a few thousand items. Again, just playing around with throwing together a quick listview of data, and seeing if there is use for it versus going the database dataset route. Note, because I was self-learning about listview from scratch, I did have a lot of trouble figuring out how to populate the listview. And now that I know how to, I am also sharing it here for reference for others struggling to do the same. Below, is the code snippet of how I created the initial fields and then populate them. The ViewStyle should be set to vsReport in the properties section in order to show a table column layout at run time. It works and that's all that matters at this point in this indeviour. procedure TForm1.btnAddClick(Sender: TObject); var itm : TListItem; Col : TListColumn; s : string; et : int64; SW : TStopwatch; begin Col := lv1.Columns.Add; Col.Caption := 'LN'; Col.Alignment := taLeftJustify; Col.Width := 30; Col := lv1.Columns.Add; Col.Caption := 'ItemNo'; Col.Alignment := taLeftJustify; Col.Width := 60; Col := lv1.Columns.Add; Col.Caption := 'Desc'; Col.Alignment := taLeftJustify; Col.Width := 160; setlength(ary,10); // create the array length (1,2,3,4,5,6,7,8,9,0) chars beep; SW := TSTopWatch.StartNew; // start timing it lv1.Items.BeginUpdate; for i := 0 to 25000 do begin // ary := genRandValues; // generate random numbers ie (2,9,8,4,7,5,6,0,1,3) s:=listtostr(ary); // convert array list into a string var ie ('2984756013') itm:=lv1.Items.Add; // create a row itm.Caption := i.ToString(); // add the major field, ie 'LN', thus the populate with variable i as line numbers itm.SubItems.Add(''); itm.SubItems[0]:= s; // itemno ie '2984756013', and so on. itm.SubItems.Add(''); itm.SubItems[1]:= s; // desc ie same, ... end; lv1.Items.EndUpdate; SW.Stop; // finish timing eb1.text:=(intToStr(SW.ElapsedTicks)+' ticks / '+intToStr(SW.ElapsedMilliseconds)+' ms'); beep; end; But the problem I am having is that even when using the .BeginUpdate/.EndUpdate the speed is still a bit slow. For example, to fill a listview with 10,000 elements, it costs me about aprox 1.6 seconds run time, or for 25,000 elements, 7.6 seconds. I had a look at the earlier part of the for/loop, where I am generating the random numbers and then converting them to strings. I REM'ed them out and the time was still the same or ever-so-slightly less, maybe 1.5 seconds for instance. So that does not seem to be a major issue in slowing the listview down. Is this the maximum throughput I can expect from listview? or Is there anything else I can do to speed this up a lot more?
  5. JohnLM

    TListView - manually adding items faster at runtime

    After loading the project into Delphi 12.2, the issue is still present. And setting Doublebuffered=true resolves it. Note, these are win32 bit app.
  6. JohnLM

    TListView - manually adding items faster at runtime

    I am confirming that the issue is also reproducible under Windows 10. I copied the XE7 compiled app over to a usb flash drive and inserted in my Win10 tablet and ran three versions: debugged/released gave issue while the app with dubblebuffered=true gave no issues. Again, the app was developed under Win7/XE7. Next, I will bring the whole project source code over to the Win10/D12.2 tablet and recompile to see if the issue is still present.
  7. JohnLM

    TListView - manually adding items faster at runtime

    Remy, I am not sure that this issue is in other OS's. My main development system is still Windows 7 and Delphi XE7, though I do have a Win10 laptop with D11.2 and a Win10 tablet with D12.2 but I have never developed projects utilizing the Listview for those OS's/Devices to date. But Win7/XE7 is what I use daily. I very rarely use Windows 10, and never have Win11. I don't even have any devices with Win11. Anyway. All apps I create are under Win7. Maybe the issue does not exist in Win10/11? and/or with D11/12+? I should probably test and see because now I am curious.
  8. JohnLM

    TListView - manually adding items faster at runtime

    Update on the issue with the Listview artifacts. . . This has been resolved by setting Doublebufferd to true. And now for the checkboxes.
  9. JohnLM

    TListView - manually adding items faster at runtime

    Remy - no, I am not. I believe it has to do with Rowselect set to True. 1) When I move the mouse around to select a row, the last selected row leaves residual "vertical" outlines of the edges. And, if I just move the mouse cursor across them all (without clicking anywhere on the Listview it will remove the artifacts. 2) When it is set to False, there is no artifacts. Only one cell is highlighted and clean. But I prefer the whole row to show as highlighted when scrolling up/down or clicking into it. So far, I've tried removing the Listview and adding a new one with default criteria and only changing the ownerDraw to True. But no difference. Still shows artifacts. And the Checkboxes no longer show. I'm investigating that as well.
  10. JohnLM

    TListView - manually adding items faster at runtime

    Update on this endeavour. . . a solution has been found and is working, thanks to Alexander S. and Remy for their help. After some time, I managed to get the suggested virtual method posted by Remy working successfully, thank you. But my listview is showing some artifacts in the drawing of the rows. I will have to research that later. I will study this method further in order to understand how it works. Oh, and the run time on my old Dell laptop is now 38ms for the 25k, and 72ms for 100k. A huge difference! Thank you @Alexander Sviridenkov, for first suggesting it to me. I did do some research into it right after your post and was trying but failing to figure out how to put it all together. And also to @Remy Lebeau, for the posted code snippet that showed me the way. Much appreciated!!
  11. JohnLM

    TListView - manually adding items faster at runtime

    Thank you, I will look into it.
  12. I was wondering if there was a program or tool or whatever you want to call it, for taking a VCL project and converting its components over to an FMX project and be able to open and continue working on it in the FMX environment. I have over time been in this situation, where I start out with VCL but later decide I could use this in Android. Today I'm in that situation. I mainly have tbuttons, tmemos, tpanels, tedits, and ttabs.
  13. Specs: XE7, VCL, Win7 I have a Panel with a TabControl in it and a Memo inside the first TabSheet on a Form that was all created and configured during design time. And, on the Form in another Panel, I have a [Add] button to dynamically create a new TabSheet and Memo. The main Memo is the default with all the settings that I would like the dynamically created Memos to have. But setting up all the necessary properties would be tedious and if I change something in the main Memo at design-time, I may not remember to update that to the dynamic ones. var Form1: TForm1; idx: integer=0; // index numb, for adding new tabs to the pagecontrol. procedure TForm1.btnAddClick(Sender: TObject); var TabSheet: TTabSheet; memo: TMemo; begin inc(idx); TabSheet := TTabSheet.Create(PageControl1); TabSheet.Caption := 'Untitled-'+idx.ToString; TabSheet.PageControl := PageControl1; memo := tmemo.Create(pagecontrol1); // settings section memo.Color := $0017110D; memo.Align := alClient; . . . // end of settings section memo.Parent := tabsheet; memo.Show; memo.SetFocus; end; note: I have a lot more properties than what is posted above. Is there a better way to copy all the properties of the main Memo to the dynamically created ones and how can I do this?
  14. Is it possible to set variable size multi-dimentional arrays dynamically at runtime? Or, do I have to be clever about it in another way? My usual ways to create m-a's are the typical triangle shape, not irregularly shaped. I want to create the irregularly shaped, like the examples listed below. I have been playing around with run-time dynamic arrays via SetLength() and then realized I can't create them dynamically with different size Columns. I have been using for/next and repeat/until loops of various kinds to attempt to do the irregularly shapped arrays but when I come to create a new Row and reset the C to 1, the data is wiped or I get strange behavior, which leads me to realize this route is not possible, and that I have to do something really clever, maybe to simulate multi-dim dynamic arrays. I have a string list that I want to parse as values--text for strings, numbers for integers. The multi-dim array can look something like the following examples below: where s=string, n=number, r=row, c=column So, using ex 1, as I parse my string list, (a single column list), R is set to 1 for row 1, and C is set to 1, and as I parse through the list, I inc(C) for row 1, thus, ( 1 [n, n, n] ) When I create row 2, I inc(R), and is now row 2, thus ( 2 [n, n, n, n, n] ), . . ., and so on, for row 3, . . . etc. ex 1 ==== R | C - - - > ----------------- 1 [n, n, n] 2 [n, n, n, n, n] 3 [n, n] 4 [n, n, n, n] 5 [n] ex 2 ==== R | C - - - > ----------------------------------------- 1 [n, n, n, n, n, n, n, n, n, n, n, n, n] 2 [s, s, s] 3 [n, n] 4 [s, s, s, s, s, s, s, s] ex 3 ==== R | C - - - > -------------------------------------------------------------- 1 [s, s] 2 [s] 3 [s, s, s, s, s] 4 [s, s, s, s, s, s, s, s, s, s, s, s, s, s, s, s, s, s, s, s] 5 [s, s, s] 6 [n, n, n, n, n, n, n]
  15. Update. . . Okay, I have finally figured it out. Am running to work but may post an update with a solution or explanation later. . .
  16. @PeterBelow -- that is my idea too. I just realized now, that you had said this earlier--I missed that part. But yes, I believe that is what I have to do, thanks.
  17. I don't know why I am having so much trouble with something that seems too easy to accomplish, yet I am. I just got up and saw these posts, and decided to sketch out an illustration of what I am trying to accomplish. Please forgive me if I seem too slow at all this. I am a very slow person these days in my old age. Okay. I have simplified this in an Excel sheet to help illustrate the basic process. * in the finished product, the "irregularly" shaped array should look like what's shown in blue in fig 4. I believe the main part of my problem is that I am doing this setlength() inside the parser routine and that I have to build the irregularly shaped array afterwards once I have the (R,C) criteria in fig 4. Also, I found this link that may help: https://docwiki.embarcadero.com/RADStudio/Athens/en/Structured_Types_(Delphi)#Multidimensional_Dynamic_Arrays PS: I've just updated the grid in fig 4 to show that they are individual elements in the array, not one string.
  18. note, I am not asking for someone to write the code for me. If it is possible, then I am asking for pointer(s) to which function does this. I will write the code mentioned for the 3 examples listed in my initial post above.
  19. Progress update. . . -- on that last next steps I just mentioned, to pull the text from the active tabsheet for the memo I am focused in. . . I have successfully figured out how to pull the text from the dynamically created memo's. It was quite difficult to solve, but I did it. And I did not copy someone else's code snippet. And the code snippet to accomplish it: procedure TForm1.PageControl1Change(Sender: TObject); var frame : TFrame2; edit : TEdit; pgCount : integer; tabIdx : integer; begin tabIdx := PageControl1.ActivePageIndex; pgCount := pagecontrol1.PageCount; frame := (pagecontrol1.Pages[tabIdx].Components[0] as tframe2); edit := (pagecontrol1.Pages[tabIdx].Components[1] as TEdit); StrLines.Assign(frame.memo.Lines); listbox1.Items.Assign(frame.memo.Lines); end; Output results are: text from each memo (left pane) is copied into the listbox (right pane) for proof of concept. All this is part of a project that I am working on, to create a tiny hobby IDE for Python for myself. It appears that this topic has been solved.
  20. I had to change the memo to frame2. The memo is inside the frame. update code snippet #4 procedure TForm1.btnAddClick(Sender: TObject); var TabSheet: TTabSheet; frame2: unit2.TFrame2; begin inc(idx); TabSheet := TTabSheet.Create(PageControl1); TabSheet.Caption := 'Untitled-'+idx.ToString; TabSheet.PageControl := PageControl1; frame2 := tframe2.Create(nil); frame2.Parent := tabsheet; frame2.Name := 'Untitled'+idx.ToString; frame2.memo1.Align := alClient; frame2.memo1.Lines.Add(frame2.name); // <<-- this line will show the memos .Name portion in each dynamically create new tab/memo. frame2.memo1.Show; frame2.memo1.SetFocus; end; Next steps is to get the text from whichever memo I am typing in the tabsheet. That should be easy, I think I just need to grab the frame.memo1.lines or frame.memo1.text should return the text from any memo I am currently typing in. I will look into later today. I have to get some sleep now. until then. . .
  21. When you add a memo or memos to a form, the default behavior is that Delphi will give the .Name and .Text properties a detault value and assign them the same string to represent that component. Thus, memo1.name=memo1 for instance. It prefills this info for our reference at design-time and we can change it or remove it. I myself usually remove it, the .Text portion and I will usually rename .Name to something much shorter, like .Name=m2 for instance. procedure TForm1.btnAddClick(Sender: TObject); var TabSheet: TTabSheet; memo: unit2.TFrame2; begin inc(idx); TabSheet := TTabSheet.Create(PageControl1); TabSheet.Caption := 'Untitled-'+idx.ToString; TabSheet.PageControl := PageControl1; memo := tframe2.Create(nil); memo.Parent := tabsheet; memo.Name := 'Untitled'+idx.ToString; memo.memo1.Align := alClient; memo.memo1.Lines.Add(memo.name); // <-- this line will show the memo's .Name portion in each dynamically create new tab/memo. memo.memo1.Show; memo.memo1.SetFocus; end; I guess I don't actually need the .Name portion to show. I was just trying to demonstrate to myself that I was creating unique tabs AND memo's successfully as demonstrated above.
  22. Update on progress. . . continues. . . @Remy Lebeau, I have tried your suggestion. And after many hours, I finally got it working, I think. I never worked with Frames before. I still don't understand them but in this case, I do believe I have it working, but with a few slight issues. 1st, the code, now modified for Frame support: procedure TForm1.btnAddClick(Sender: TObject); var TabSheet: TTabSheet; mem: unit2.TFrame2; begin inc(idx); TabSheet := TTabSheet.Create(PageControl1); TabSheet.Caption := 'Untitled-'+idx.ToString; TabSheet.PageControl := PageControl1; mem := tframe2.Create(nil); mem.Parent := tabsheet; mem.Name := 'Untitled'+idx.ToString; mem.memo1.Align := alClient; mem.memo1.Show; mem.memo1.SetFocus; end; And the results: As for the issues: 1) all the tabs I create have the same name, "memo1". (see code) 2) the alignment to client is quirky, but I managed to get it to work to fill the tab area. (see code) 3) the memo's names (for each tab do not show up in the memo's view. They all say the same thing, "memo1". (see code) they should be "Untitled1, Untitled2, Untitled3, ..." in each memo, just like when you add a new memo to your form in the IDE.
  23. Update on my progress. . . You guys can do this! I have no doubt! I know you all can figure this out, lickady-split or a few minutes, but I am not in your category. I am just a lowly hobbiest at best. Unfortunately, I am no component expert, nor am I am Pro at Pascal programming, let alone OOP and all. I am just a casual guy who codes small Windows utilities and other fun and interesting things. Occasionally I will try and learn OOP and component anything but I do not get very far, as I am a very slow learner. Anyway. I have looked into the suggestions here, and also my own searches. I found some resources and spent a great deal of time trying to understand them and then build them, but to no avail. I am just a complete failure in these advanced areas. For instance, in one resource (web search) I did find a routine that shows how to pull properties from all components on the form. And in another resource (web search) I found another routine showing how to pull properties similarly but slitely less detail. And yet in another resource showing similar, I can pull and narrow down to just tmemo's properties, which is just what I was looking for as a start. And then, in another resource, I found where I could: pull the properties of a tmemo and show it in another memo and make changes to the properties in that memo and the routine would show a memo with the changed state. But, I could not get it to copy from another memo, its properties because it would issue an error: "memo has no parent window" and other errors as well. I tried many scenarios of code ideas but to no avail. There is one more resource that I found (from the lazarus website) to try out, the next time I come back from a break from this endeavor. As for now and after three very long days and nights and many many hours, so many hours, of trying to figure this out, I am giving this up. I am taking a break and going back to other projects. Thank you all for your suggestions.
  24. JohnLM

    The Advent of Code 2024.

    delete..
×