haentschman

Hi... finally Form2.Free; Form1.Release; // <- end; Whats that? https://docwiki.embarcadero.com/Libraries/Seattle/en/Vcl.Forms.TCustomForm.Release Note: Sorry, you want close Form1. I thought of a typing error.

...Delphi Community Edition https://www.embarcadero.com/products/delphi/starter/free-download More modern then Delphi 7...

...VCS? (VersionControlSystem) ...from ZIP? 🤢

Hi... ...please show us your search pathes of Delphi.

Hi... Why if RHini = nil if if the variable is local ? better: RHini := TIniFile.Create(AppDir+'\RemoteHost.cfg'); try RHini.WriteString('RemoteHost','User',UserName); finally RHini.Free; end;

Hi... If you can...change to Firebird. The "mother" of Firebird (many years ago) is Interbase. The licence is free. https://firebirdsql.org/en/server-packages/

Hi... https://www.youtube.com/results?search_query=delphi+tutorial+english ...maybe there is something for you.

...sorry, it is new for me.

Hi...😎 ...wrong. 😉 FastReport Delphi Edition... The right way: 1. use a reporting tool (print, export, preview) 2. do not print the visual component (TDBGrid) ... print the data in the dataset 3. design the report 4. finish...😛 FastReport videos (VCL): https://www.youtube.com/watch?v=H6ntcbqF0MU https://www.youtube.com/@FastReportsAcademy ...nothing is quick and easy. 🙄 You have to learn something new every day.

Delphi: Only the subscription expires. The license remains valid.

Hi... ...encrypt not the file, only the information. 😉 XML like INI: <Password>xbWONK6X9KT/Pq1LFcV+4VRA8tePadM1yL+iVp3hA4rkgkbckH/EG00NYnuCkN22Zyg=</Password> There are several methods of encryption. DEC for example: https://github.com/MHumm/DelphiEncryptionCompendium

...die mit den Bonbons. 😋

Hi...😎 https://dwp.gksoft.ch/en/Delphi-Welcome-Page-Plugin.html ..it is my:

Hi... procedure TfrmDino.BitBtn1Click(Sender: TObject); begin Application.Terminate; end; Terminate is the last option to end the program. With Terminate NO more events are executed. Better to terminate is self.close or close

Why BDE with D12?

FDquery1.Open(query); //or FDquery1.Open('Select * from DAT2'); ...What about queries with parameters...then that doesn't work. 2 notations with or without parameters...no.

Hi...😎 The Query needs the connection. Via ObjectInspector or via code. Check this...😉 FDQuery1.Connection := FDConnection1; // or via ObjectInspector FDQuery1.SQL.Text := query; FDQuery1.Open; // better

...there is a \ missing. "D:\Delphi..." 😎

Hi...😎 Now is Checkbox = True. Than...is it ok.

😢 I put this in the groups... after: uses System.Classes, System.SysUtils, System.Variants, System.Generics.Collections, System.Generics.Defaults, System.DateUtils, System.Math, System.StrUtils, Vcl.Imaging.pngimage, Data.DB, FireDAC.Stan.Param, FireDAC.Stan.Option, FireDAC.Comp.Client, FireDAC.Comp.Script, DataModuleTextConstants, x.Classes.Common, x.Classes.Base, x.Classes.Data, x.Constants, x.Types, x.Tools.Mapping, x.Tools.DateTime, x.Tools.TryFinally, x.Tools.Json, x.Tools.Regex, x.Tools.IO, x.Tools.BitMask, x.Database.Common, x.Preferences; What ist wrong? PS: 15.1.8

Sorry...😉 PS: with "*" ("Form.*") also... PS: FireDAC and more are missing (first test) 😉

...🤔 before: uses System.Classes, System.SysUtils, System.Variants, System.Generics.Collections, System.Generics.Defaults, System.DateUtils, System.Math, System.StrUtils, Vcl.Imaging.pngimage, Data.DB, FireDAC.Stan.Param, FireDAC.Stan.Option, FireDAC.Comp.Client, FireDAC.Comp.Script, DataModuleTextConstants, x.Classes.Common, x.Classes.Base, x.Classes.Data, x.Constants, x.Types, x.Tools.Mapping, x.Tools.DateTime, x.Tools.TryFinally, x.Tools.Json, x.Tools.Regex, x.Tools.IO, x.Tools.BitMask, x.Database.Common, x.Preferences; after: uses System.Classes, System.SysUtils, System.Variants, System.Generics.Collections, System.Generics.Defaults, System.DateUtils, System.Math, System.StrUtils, Vcl.Imaging.pngimage, Data.DB, FireDAC.Stan.Param, FireDAC.Stan.Option, FireDAC.Comp.Client, FireDAC.Comp.Script, DataModuleTextConstants, x.Classes.Common, x.Classes.Base, x.Classes.Data, x.Constants, x.Types, x.Tools.Mapping, x.Tools.DateTime, x.Tools.TryFinally, x.Tools.Json, x.Tools.Regex, x.Tools.IO, x.Tools.BitMask, x.Database.Common, x.Preferences;

@Uwe Raabe Hi...😎 Is it possible to start each group in a new line? uses Winapi.Windows, System.Classes, System.Generics.Collections, System.Generics.Defaults, System.SysUtils, ...

Hi... ...sometimes the internet is not correct. The styleguide from Emba is correct! https://docwiki.embarcadero.com/RADStudio/Sydney/en/Delphi’s_Object_Pascal_Style_Guide +1 better: (indent) if condition then begin code; end else if otherCondition then begin more code; end; //or: if condition then begin code; end else begin if otherCondition then begin more code; end; end;