emileverh

The final solution is different than proposed. I did not know but the SUM() function can return NULL values. So on larger datasets I did get 'WideString'!!! conversion error messages on SQLite. So I had to use IFNULL. May be not for all the most elegant solution. But this TFDQUERY works now for both MySQL and SQLite select IFNULL(SUM(AmountValue),0) AS SumVal from camtentries And in the code: var mycurr: currency := qryMyQuery.FieldByName('SumValue').Value; Normally I don't work with .FieldByName and .Value. I prefer this: var mycurr: currency := qryMyQuerySumValue.AsCurrency; But know the app is not complaining. I have hundreds of queries, but only 2 SUM()'s. So I can live with that. I don't use them in a loop, so performance is not an issue. And I develop the app with MySQL. Because I can easy test my data together with HeidiSQL. The field names become also strange select IFNULL(SUM(AmountValue),0) AS "SumVal::DOUBLE:" will be qryMyQuerySumValueDOUBLE.AsCurrency; Although the first answers where not the implemented one. I want to thank all the people in general on this forum. As solo entrepreneur I don't have a collegae to ask. So thank you all!

The ::TYPE syntax is even more elegant! Thanks you helped me a lot!!

I am sorry! Yes it was a bit overwhelming, but you helped me. So thanks 😉 I have a direction now. The code as shown on the EMB website does not compile. With this code it compiles for both versions..... But I am losing data? The dtFloat type does not exist. I am accurate enough with this code? Please no discussions about the "with"-statements, I need to rewrite this.... Thanks in advance! with qrySumPositive.FormatOptions.MapRules.Add do // Need to add the .Add else it does not compile begin SourceDataType := dtDouble; // <<<< THIS IS A GUESS. THE TYPE dtFLOAT DOES NOT EXISTS TargetDataType := dtFmtBCD; end; qrySumPositive.FormatOptions.OwnMapRules := true; with qrySumPositive do begin ParamByName('prmDateStart').AsDateTime := MyStartOfaDay(ADateStart); ParamByName('prmDateEnd').AsDateTime := MyEndOfaDay(ADateEnd); Open; Result := qrySumPositiveSumVal.AsCurrency; Close; end;

Nice. But this is overwhelming, I don't see any practical info for me now....

Team! I have one large application which I compile twice, one is for MySQL and the other for SQLite. For regular queries like select * from everything goes fine. But it goes wrong with SUM() functions. The query defined in a TFDQuery below works fine in MySQL, but when I compile the application for SQLite I get an exception "Type mismatch for field 'SumVal', expecting: FMTBcd actual: Float'. " The definition of AmountValue in the database is: AmountValue DECIMAL(13,4) NOT NULL And here is the query: select SUM(AmountValue) AS SumVal from camtentries Is there a property for this one and only TFDQuery or for the field qrySumPositiveSumVal.AsCurrency where it compiles fine in both applications? I prefer not to set an overall property in the TFDConnection. Thanks!!! -Emile

Correct! But... it's not an easy part of software to write!

Thanks Remy for your help!!!

You are right force deleting a file is not a good idea. The other (unknown for me) process needs the file. Any idea if there is an API to add a kind of duplication number like: file (1).txt, file (2).txt, file (3).txt ? I did Google something but I did not find 1-2-3 an API for that. Anybody knows?

Thanks and agree! I had to check if the file exists. But the DeleteFile() call was recently added. In previous versions of my app it failed on the next statement TFIle.Copy(). So again; is there a way to force delete a file?

Hi! I need to copy a file to the Windows-temp folder. But on some of my clients it fails. I can not reproduce it, but when they open a mail with attachment in Outlook and my app is working on the same filename it fails. The routine below fails. Please do not focus on Outlook, but in general. How can I 'force delete' a file? Or how can I safe save a file to the temp folder without problems? Any suggestions? Please help! -Emile function TdtmBoot.CopyFileToTempFolder(const AFullFileName: TFileName): string; begin var lFileName: string := ExtractFileName(AFullFileName); var lTempFolderFullFileName: string := GetTempFolder + lFileName; try if DeleteFile(lTempFolderFullFileName) = False then; // @17.22 begin SendMadBugReport(Self, 'CopyFileToTempFolder(), delete failed'); // <<<<<<<< HERE IT FAILS!!!!!!! end; except end; Result := lTempFolderFullFileName; try TFile.Copy(AFullFileName, lTempFolderFullFileName, true); // true = overwrite Result := lTempFolderFullFileName; except end; end;

Agree! Hotfixes and/or faster updates would be nice. Good quality goes above new features!

Thanks!

Can you send me the reader too? Thx!

Use GetControls() new since Delphi 11 I believe. Just as an example for me to disable TcxEdit's only. But you can do your own stuff: for var ctrl in frmMain.GetControls([ceftAll]) do begin if (ctrl is TcxEdit) then begin TcxEdit( ctrl).Enabled := false; end; end;

Great! Thanks a lot!!