Jump to content

Tommi Prami

Members
  • Content Count

    511
  • Joined

  • Last visited

  • Days Won

    6

Everything posted by Tommi Prami

  1. Using CopyFileEx with quick and dirty simplem,entation, fixed my problem, more than less.. I bet dzlib one is not as crude as mine, have to check that out... -Tee-
  2. Nice... Have to check out that... -Tee-
  3. That raise : if not DoCopy(SourceFileName, DestFileName, Overwrite) then raise EInOutError.Create(SysErrorMessage(GetLastError));
  4. What is the point of this Exception? And how to handle it 🙂 IT sems that Actually file is not copied 😄 This is so weird 😄 -Tee-
  5. I need to have one in the Command Line APP. Most likely it'll be OK for me to use TFile.Copy, as this small utility will run in one single machine. But had got interesting errors while testing it just now over Slow 4G connection and VPN. Did not take screenshots but one was something like "Operation failed successfully" or something similar weirdness. And network path disappeared underneath and so on. Now that Schools are out my Internet bandwidth in here in rural areas of Finland plummeted totally. All house wifes watching PiornHUB and kids YouTube, I think.
  6. To make results easier to read, could the numbers have thousand separators? At least for me it is hard to compare two numbers if they aren't next to each other: 23432422 .... .... .... .... .... .... ... .... ... 4343241 Are they even at same ballpark. Some people have very good eye on are things on same line, for me it is almost impossible 🙂 -Tee-
  7. Tommi Prami

    Out parameter is read before set

    Very glad to everyone that brought this in my attention. Did not know all this. Now just have to remember this. -Tee-
  8. Tommi Prami

    Delphi and Azure DevOps?

    Is anyone using it or planning on migration? Don't know personally nothing about those (basically), but if anyone has info about that project and using would be nice to know. "Tools" we use now on our internal Infra are: SVN Jenkins Mantis And most likely result would be Azure DevOps GIT (Possibly Jenkins if makes sense, but maybe not) -Tee-
  9. Tommi Prami

    TArray<T> helper

    Stumbled upon this. https://github.com/WilliCommer/ArrayHelper This really should be part of RTL already. Good job from author, If in RTL would not need add unit to the uses. (OR paste unit of one's own but...) -Tee-
  10. Tommi Prami

    Overloocked Format( ) options

    FixInsight tries to check Format strings and parameter count, which is nice. Not checking types I think. Have found couple of bugs with it. -Tee-
  11. Tommi Prami

    TArray<T> helper

    Dang 🙂 My Bad.
  12. Tommi Prami

    Main screen tab error

    I've got the same problem
  13. Could someone point into nice implementation? Would be nice (but not 100% necessary) that would have similar functionality than RTL version have. More than less drop in replacement (Easy to port) -Tee-
  14. You got good Delphi implementation of that 😄
  15. OK, Let me try again, any reasonably fast, Free and OpenSource implementation of good Random number generator algorithm, that is tested statistically to give better randomness than Stock RTL one.. I have no knowledge on which algorithm is best for what, that is why I am asking. I have an impression that Mersenne twisters are not suggested anymore. As mentioned above xoshiro / xoroshiro generators I have heard are good. But again, have no idea how to choose better one. I would not ask if I had all needed info 🙂 -Tee-
  16. I just need random numbers that have better quality than stock Random() function in the RTL. I think that is valid requirement. -Tee-
  17. For now, I am open to all suggestions 🙂 Just need to get random numbers and have some Randomize-functionality. As long it is way better tna build in RTL version. If can use it to replace RTL version in code, way or other, I am happy 🙂 -Tee-
  18. Sometimes removing withs, especially nested ones, are really tricky. Easy to mess up. Just got bit by this other day. IDE/Compiler/LSP must know which is which, so it would get first pass way faster than doing it manually. https://quality.embarcadero.com/browse/RSP-18953?filter=-2 On a side note thee has not been too much love towards refactoring features in IDE. Hope it would get more and ones we have to get better. -Tee-
  19. Exactly. And also removing withs are quite pain by hand. More complicated it is. Nested with clauses are pure evil. Even ones that seems trivial are pain to remove sometimes. -Tee-
  20. Hello, Is there a way to tell TDataset that now would be preferred time to do some filtering of records? Current record or all. -Tee-
  21. Tommi Prami

    How to kick TDataset to filter record(s)

    That is discussion of another time,. That code Above was satisfactory for my needs. But maybe helpful for some other tough. Or different use case. Thanks for your suggestion. -Tee-
  22. Tommi Prami

    How to kick TDataset to filter record(s)

    Sure that works, but I think that filters whole dataset, which I did not want. -Tee-
  23. Tommi Prami

    How to kick TDataset to filter record(s)

    I do not present the problem at there. That was my Quick and dirty solution to the problem -.Tee.-
  24. Tommi Prami

    How to kick TDataset to filter record(s)

    Hmmm... No wonder... 🙂 Dataset have emails, I load filtered emails on startup to the TSringList. Andf use OnFilerRecord (Etc event of dataset to filter those out). I need also to filtr out rows from dataset on runtime, and I need to kick the TDataset that Hey Dude, Filter current work right now. And code above more than less filled my need. Using GotoBookMark(). -Tee-
  25. Tommi Prami

    How to kick TDataset to filter record(s)

    Problem was that I Have filtered dataset, but the Filtering criteria or filtered rows criteria is changed separate from data on dataset.. I have something like: function KickDatasetFilterRecord(const ADataSet: TDataSet): TBookmark; var LBookmark: TBookmark; begin LBookmark := ADataSet.GetBookmark; try if not ADataSet.Eof then ADataSet.Next else ADataSet.Prior; Result := ADataSet.GetBookmark; finally if ADataSet.BookmarkValid(LBookmark) then ADataSet.GotoBookmark(LBookmark); end; end; procedure Foo(const AEmail: string); begin FFilteredEmails.Add(AEmail) ; // Filter current wor now. Dataset.GotoBookmark(KickDatasetFilterRecord(Dataset)); end;
×