haentschman

Hi... https://componentace.com/zipforge_features.htm I use it to make zip of a MSSQL database backup. All others stop at 2GB. 6GB -> 1GB For Single Developer with Source Code $149

Hi... https://docwiki.embarcadero.com/Libraries/Seattle/en/System.IOUtils.TDirectory.GetCurrentDirectory Current working directory: 99% <> ExtractFilePath(Application.ExeName) Example: Current working directory can be "C:\Windows\System32" or else a special folder...

...learning by doing. 😎 You can also adapt the example to your circumstances. Release of the stream. etc.

...see editing ...is my case. Sometimes i read the Picture to a new object (Picture = nil)

Hi...😎 try this...😉 if not Qry.FieldByName('Picture').IsNull then begin Stream := TMemoryStream(Qry.CreateBlobStream(Qry.FieldByName('Picture'), bmRead)); try Contact.Picture := TMemoryStream.Create; Contact.Picture.LoadFromStream(Stream); finally Stream.Free; end; end; before...Contact.Picture = nil 😉

Hi... ...this is right. 😉 ...but the language has also changed. "with" is 90's. The "new" TRect was imho the first problem in this case. The structure of TRect was changed. Some "with" had the false scope...AccessViolation. The biggest problem with "with" is: with TTaskDialog.Create(Self) do try Title := 'Warning!'; Text := GetTextFromFunction; CommonButtons := [tcbOk]; Execute; finally Free; end; ...and now you set a breakpoint on "Excecute". Then read the variable content from "Text" under the mouse...you see nothing. More Info ( June 26, 2007 ) https://blog.marcocantu.com/blog/with_harmful.html

In the modern Delphi...always NO. see uses TRect - https://stackoverflow.com/questions/71419/why-should-i-not-use-with-in-delphi ...and other. procedure MainForm.ButtonClick(Sender: Object) begin with TMyForm.Create(nil) do try ShowModal; finally Free; end; ...this means a rebuild of the code if complexity increases...why not "right" with instance variable. ...and the variable display in the debugger does not work. I am out of this discussion...

Clear... I have only TForm1 always renamed to foBlubb etc.

...

Hi... @gkobler: ...thanks But...for the community: please without advertising (link) in the header ...then i install tis to.

Hi...😎 1. multiuser? 2. server?...other maschine? 3. persistent data? ...or daily? 4. program crash? ...which data?

Hi...😎 Show the connection string...

Hi... ...bevore LSP yes. With SLP (D11) not so good. Sometimes Ok, sometimes fail...😕 PS: i am a fan of this code completion 😉 ...but so not. 🙄

Hi... ...always try/finally! In case of error IdHTTP.free is not executed because skipped to the end Better: IdHTTP := TIdHTTP.Create(nil); try try S := IdHTTP.Get(Link); result := S; except ShowMessage('Could not get VERSION information'); end; finally IdHTTP.Free; end;

i had problems with this...Windows Defender is imho good and enough... ...but now back to the topic.

...why? 🤢 (only my opinion)

Hi... ...location of the dll?

Hi...😉 How about using a own TForm as a MessageDlg? ...own design, formatted texts (TStringlist etc.), own icons? 😎

Hi... NOT with WITH: with TFDQuery.Create(self) do

Hi... ...+1

...nothing. 😎 Why you want to change?

Hi...😋 ...not query?

Hi...😎 ...always! Per table or better per database. 😉 Per database = the ID is complete unique. id varchar(10) not null primary key, ... never string! ID int not null primary key,

Hi...welcome here. First: ...why ACCESS and ADO? 🤢 ...😉 For the future: can you change the database? 😉 const ISQL = 'INSERT INTO JobCard (ID ,OrderNo ,JobName) VALUES ( :ID :OrderNo, :JobName)'; ...better than the ADD orgy. It is even better to store the SQL outside the "form" or "datamodule" as SQL file. 😉 ...i know. No problem. Learning by doing... 😉

Two month...What is the status? Which MVP? Imho 10% uses high-dpi. ...make a version without high-dpi. All waiting! Please... PS: why don't you publish it on github or something...?