Jump to content

Lajos Juhász

  • Content Count

  • Joined

  • Last visited

  • Days Won


Everything posted by Lajos Juhász

  1. Lajos Juhász

    converting string to date time

    var ldt: TDateTime; lFormat: TFormatSettings; begin lFormat:= TFormatSettings.Create; lformat.DateSeparator:='-'; lformat.ShortDateFormat:='yyyy-mm-dd'; ldt:=strtodatetime('2021-06-25 08:04:09', lFormat); ShowMessage(DateTimeToStr(ldt)); end;
  2. Lajos Juhász

    TJSONObject.Format bug

    A quick find in files returned that TJSon is implemented in the REST.Json.pas and it is not in your uses.
  3. You should learn to use the help. aStatusBar.SimpleText := 'selected cell -> ' + strngrd_Point3D.Row.ToString + '/' + strngrd_Point3D.Col.ToString;
  4. Lajos Juhász

    Disable & re-Enable a Procedure

    But you references the object as dm.Orders.Docno with dm that would suggest that it was from outside. In this case it should be: OrdersDOCNO.OnChange := nil; OrdersDOCNO.OnChange := OrdersDOCNOChange;
  5. Lajos Juhász

    Disable & re-Enable a Procedure

    OrdersDOCNOChange is part of the datamodul: dm.Orders.DOCNO.OnChange := dm.OrdersDOCNOChange;
  6. Lajos Juhász

    Alfabetical order of a letter

    ord('C')-ord('A')+1, ORD('E')-ORD('A')+1, ...
  7. Lajos Juhász

    SQL expression evaluation not supported

    Most probably the problem is the group by part. You've there O.Delvdate that is not in the select list. Interbase 2017 Update 1 (http://docwiki.embarcadero.com/InterBase/2020/en/Enhancements_to_GROUP_BY_and_ORDER_BY) introduced the extended syntax. If you're using a version that support you can write: SELECT O.DELVTYPE, SUM(OD.REMAINQTY) QTY, (Case O.DELVTYPE When 'Sea' then O.DELVDATE + 45 else O.DELVDATE + 15 end) as DELVDATE FROM ORDETAIL OD JOIN ORDERS O ON O.RNO=OD.RNO WHERE OD.ITEMNO = 'ABX22' GROUP BY O.DELVTYPE, 3 HAVING SUM(OD.REMAINQTY) > 0
  8. Lajos Juhász

    Delphi compatibility with Windows 11?

    I wonder how hard it will be to turn on UEFI on a laptop.
  9. Lajos Juhász

    What is the difference??

    The first one will create TMyForm instance with no owner. While the second one creates an instance of TMyForm owned by the application object. In case the form is the first form created by the application it will make it the mainform of the application. For more detail open VCL.Forms.
  10. There is no data type TxQuery it's TxQuery<T: TDataset>. Unfortunately in Delphi you cannot have a class reference to a generic class. I've even tried this: type TFDxQuery = TxQuery<TFDQuery>; TxFDQueryClass = class of TFDxQuery ; an it also fails with [dcc32 Error] Unit1.pas(43): E2021 Class type required I would expect that TFDxQuery is a class.
  11. Lajos Juhász

    Round up to next $5

    There is a bug in the code it will round up 5 to 10 so it should be: function RoundUpToFive (AValue : Double) : double; var lTrunc: integer; lMod5: integer; begin lTrunc:=Trunc(Avalue); lMod5:=lTrunc mod 5; if lMod5 = 0 then result:=lTrunc else result:=lTrunc + 5 - lMod5; end; Another interesting case would be how to round up 5.99 should it be $5 or $10?
  12. Lajos Juhász

    base64 encode/decode  TStringDynArray

    You can read a file as a string: TemplateLines := TFile.ReadAllText(afilepath,Tencoding.UTF8 );
  13. Lajos Juhász

    Image attachment in a html email??

    You can find information here: https://www.indyproject.org/2005/08/17/html-messages/
  14. Lajos Juhász

    10.4.2 IDE crashes on start

    I do hope that you're aware that the IDE is still a 32 bit application and can't use additional memory.
  15. Lajos Juhász

    10.4.2 IDE crashes on start

    Delphi 10.4 was unstable however it never failed to load. Something that you've installed made the IDE unstable. As @Vandrovnik wrote you should try bds.exe -r foo.
  16. Lajos Juhász

    Using FDMemTable

    Place a break point in the DataModule most probably you didn't excecuted the code there and fdmAdmin.FieldDefs remains empty. That's the only way you get this error message.
  17. Lajos Juhász

    JCL installation problems in D10.4.2

    Before next time just send a pull request.
  18. Lajos Juhász

    JCL installation problems in D10.4.2

    There is a simple solution for this problem. Reorder the packages in the group, move the design time packages to the bottom.
  19. Is it valid to name en.delphipraxis.net as a platform where you can find answers to your Delphi related problems?
  20. Lajos Juhász

    Problem with Logging on to my.embarcadero.com

    Now it's also working for me.
  21. Lajos Juhász

    Problem with Logging on to my.embarcadero.com

    I cannot load the page: "This site can’t be reached".
  22. I've used that in my example and also it's better to implement the logic in AddObject as in the TStringList where method Add invokes Addobject with nil object.
  23. It really depends on the data for a list of 3-5 elements my guess is a list is faster.
  24. Your implementation of StrExists ignores the CaseSensitive property.
  25. Check out the source and you can easily write your own version (a quick example code): uses System.RTLConsts; type TMyStringList = class(TStringList) public function AddObject(const S: string; AObject: TObject): Integer; override; end; function TMyStringList.AddObject(const S: string; AObject: TObject): Integer; begin if sorted then result:=inherited AddObject(S, AObject) else begin result:=IndexOf(s); if (result=-1) then begin result:=count; InsertObject(result, S, AObject) end else begin case Duplicates of dupIgnore: Exit; dupError: Error(@SDuplicateString, 0); dupAccept: begin result:=count; InsertObject(result, S, AObject); end; end; end; end; end;